Delphi dicas

Rotina que retorna a versão e a compilação do seu windows

Function WinVersao: string;

var

OsInfo: TOSVERSIONINFO;

Versao:string;

begin

        OsInfo.dwOSVersionInfoSize := SizeOf(TOSVERSIONINFO);

        GetVersionEx(OsInfo);

        Versao := Format('Versão %d. %d (Compilação %d)',

        [OsInfo.dwMajorVersion, OsInfo.dwMinorVersion,

        LOWORD(OsInfo.dwBuildNumber)]);

        Result := Versao;

end;

Exemplo de uso:

procedure TForm1.XPSpeedBtn1Click(Sender: TObject);

begin

        Caption:=WinVersao;

end;

por : Abel André Da Silva