Delphi
关注
分享
扫一扫
文章平均质量分 54
ck11926375
...................................................
展开
-
文件查找FindFirst FindNext
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click原创 2009-07-26 22:06:00 · 742 阅读 · 0 评论 -
获取操作系统版本号
function TForm1.GetOSVersion:String;var OSVersion:TOSVersionInfo;begin OSVersion.dwOSVersionInfoSize:=SizeOf(OSVersion); GetVersionEx(OSVersion); case OSVersion.dwPlatformId of VER_P原创 2009-12-25 13:11:00 · 473 阅读 · 0 评论