通过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.

查看本文来源