erface uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, CommDlg;
type
TForm1 =
(TForm)Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
TOSVersion = (osUnknown, os95, os95OSR2, os98, os98SE, osNT3, osNT4, os2K, osME, osXP);
var
Form1: TForm1;
implementation
{$R *.DFM}
function GetOS :TOSVersion;
var
OS :TOSVersionInfo;
begin
ZeroMemory(@OS,SizeOf(OS));
OS.dwOSVersionInfoSize:=SizeOf(OS);
GetVersionEx(OS);
Result:=osUnknown;
OS.dwPlatformId=VER_PLATFORM_WIN32_NT then begin
OS.dwMajorVersion of3: Result:=osNT3;
4: Result:=osNT4;
5: Result:=os2K;
end;
(OS.dwMajorVersion=5) and (OS.dwMinorVersion=1) thenResult:=osXP;
end
begin (OS.dwMajorVersion=4) and (OS.dwMinorVersion=0) then beginResult:=os95;
(Trim(OS.szCSDVersion)='B') thenResult:=os95OSR2;
end
(OS.dwMajorVersion=4) and (OS.dwMinorVersion=10) then beginResult:=os98;
(Trim(OS.szCSDVersion)='A') thenResult:=os98SE;
end
(OS.dwMajorVersion=4) and (OS.dwMinorVersion=90) thenResult:=osME;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
os:TosVersion;
osVersion:
; begin
os:=Getos;
OS ofos95, os95OSR2: OSVersion:='Windows 95';
os98: OSVersion:='Windows 98';
os98SE: OSVersion:='Windows 98 第 2版';
osME: OSVersion:='Windows Millenium Edition';
osNT3, osNT4: OSVersion:='Windows NT';
os2K: OSVersion:='Windows 2000';
osXP: OSVersion:='Windows XP';
end;
showmessage(osversion);
end;
end.
最新评论