如何在 Delphi 裡偵測作業系統是 VISTA?
在網路上都找不到相關的方式, 想請問有人有法子嗎?

請參考

[code cpp]
// 判斷作業系統版本
// Delphi 7 Enterprise
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
OS: TOSVersionInfo;
bOsVersionInfoEx : Boolean;
OS_Desc: String;
begin
// ZeroMemory(@OS,SizeOf(OS));
OS.dwOSVersionInfoSize:=SizeOf(OS);
bOsVersionInfoEx:=GetVersionEx(OS);
Memo1.Clear;
Memo1.Lines.Add('dwOSVersionInfoSize : ' IntToStr(OS.dwOSVersionInfoSize));
Memo1.Lines.Add('dwMajorVersion : ' IntToStr(OS.dwMajorVersion));
Memo1.Lines.Add('dwMinorVersion : ' IntToStr(OS.dwMinorVersion));
Memo1.Lines.Add('dwBuildNumber : ' IntToStr(OS.dwBuildNumber));
Memo1.Lines.Add('dwPlatformId : ' IntToStr(OS.dwPlatformId));
Memo1.Lines.Add('szCSDVersion : ' OS.szCSDVersion);
Memo1.Lines.Add('');
// 不支援 Memo1.Lines.Add(bOsVersionInfoEx);
// 不支援 Memo1.Lines.Add(OS.wProductType);
case OS.dwPlatformId of
VER_PLATFORM_WIN32_NT:
begin
if ( os.dwMajorVersion = 6) then OS_Desc:='Microsoft Windows Vista';
if (( os.dwMajorVersion = 5) and (os.dwMinorVersion = 2 )) then OS_Desc:='Microsoft Windows Server 2003';
if (( os.dwMajorVersion = 5) and (os.dwMinorVersion = 1 )) then OS_Desc:='Microsoft Windows XP';
if ( os.dwMajorVersion = 5) and (os.dwMinorVersion = 0 ) then OS_Desc:='Microsoft Windows 2000';
if ( os.dwMajorVersion <= 4 ) then OS_Desc:='Microsoft Windows NT';
end;
6..9: Caption := 'High';
0, 10..99: Caption := 'Out of range';
else
OS_Desc:='N/A';
end;
Memo1.Lines.Add(OS_Desc);
end;
end.
[/code]

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！