Código
function WinVersion: Cardinal;
var
Ver: TOsVersionInfo;
begin
Ver.dwOSVersionInfoSize := SizeOf(Ver);
GetVersionEx(Ver);
Result := Ver.dwPlatformId;
end;
{$ELSE}
function WinVersion: String;
const
sNT: array[Boolean] of string[3] = ('', ' NT');
var
Ver: Longint;
begin
Ver := GetVersion;
Result := Format('Windows%s %d.%d',[sNT[not Boolean(HiByte(LoWord(Ver)))],
LoByte(LoWord(Ver)),HiByte(LoWord(Ver))]);
end;
{$ENDIF WIN32}
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009