Delphi dicas

Identificando versão do windows

{$IFDEF WIN32}

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}

por : Igor Thurler Martins