檢測系統是不是windows xp (轉)[@more@]

下面的程式碼可以檢查所用的是不是 XP
uses Registry;
...

function Is: Boolean;
begin
Result := False;
if Platfo= VER_PLATFORM_WIN32_NT then
with TRegistry.Create do
try
Key := HKEY_LOCAL_MACHINE;
if OpenKeyReadOnly('SoftwareCurrentVersion') then
Result := (ReadString('ProductName') = 'Microsoft Windows XP');
finally
Free;
end;
end;

//rock
//轉載請保留此資訊

檢測系統是不是windows xp (轉)

相關文章