通过API函数得到操作系统类型

unit Unit1;
源代码网推荐
源代码网推荐 interface
源代码网推荐
源代码网推荐 uses
源代码网推荐 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
源代码网推荐 StdCtrls, CommDlg;
源代码网推荐
源代码网推荐 type
源代码网推荐 TForm1 = class(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;
源代码网推荐 if OS.dwPlatformId=VER_PLATFORM_WIN32_NT then begin
源代码网推荐 case OS.dwMajorVersion of
源代码网推荐 3: Result:=osNT3;
源代码网推荐 4: Result:=osNT4;
源代码网推荐 5: Result:=os2K;
源代码网推荐 end;
源代码网推荐 if (OS.dwMajorVersion=5) and (OS.dwMinorVersion=1) then
源代码网推荐 Result:=osXP;
源代码网推荐 end else begin
源代码网推荐 if (OS.dwMajorVersion=4) and (OS.dwMinorVersion=0) then begin

源代码网推荐 Result:=os95;
源代码网推荐 if (Trim(OS.szCSDVersion)="B") then
源代码网推荐 Result:=os95OSR2;
源代码网推荐 end else
源代码网推荐 if (OS.dwMajorVersion=4) and (OS.dwMinorVersion=10) then begin
源代码网推荐 Result:=os98;
源代码网推荐 if (Trim(OS.szCSDVersion)="A") then
源代码网推荐 Result:=os98SE;
源代码网推荐 end else
源代码网推荐 if (OS.dwMajorVersion=4) and (OS.dwMinorVersion=90) then
源代码网推荐 Result:=osME;
源代码网推荐 end;
源代码网推荐 end;
源代码网推荐 procedure TForm1.Button1Click(Sender: TObject);
源代码网推荐 var
源代码网推荐 os:TosVersion;
源代码网推荐 osVersion:string;
源代码网推荐 begin
源代码网推荐 os:=Getos;
源代码网推荐 case OS of
源代码网推荐 os95, os95OSR2: OSVersion:="Windows 95";
源代码网推荐 os98: OSVersion:="Windows 98";
源代码网推荐 os98SE: OSVersion:="Windows 98 第二版";
源代码网推荐 osME: OSVersion:="Windows Millenium Edition";
源代码网推荐 osNT3, osNT4: OSVersion:="Windows NT";
源代码网推荐 os2K: OSVersion:="Windows 2000";
源代码网推荐 osXP: OSVersion:="Windows XP";
源代码网推荐 end;
源代码网推荐 showmessage(osversion);
源代码网推荐 end;
源代码网推荐
源代码网推荐 end.