Obter a versão do Sistema Operacional

[Marcelo R Moura 0]

Amigos,

 

existe alguma função nativa do delphi que retorne a versão do sistema operacional da máquina??

 

Vlw's

[Yoshi 1]

Tenta essa função peguei no DTDelphi testei aki e trouxe as informações da uma olhada pra ver se é o q você precisa.

 

:D

 

procedure TForm1.FormCreate(Sender: TObject);
var
  verInfo : TOsVersionInfo;
  str : String;
  I : Word;
begin
verInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
if GetVersionEx(verInfo) then begin
stOSVersao.Caption := 'Versão : '+ IntToStr(verInfo.dwMajorVersion) +
IntToStr(verInfo.dwMinorVersion);
OSBuilder.Caption := 'Compilação : '+IntToStr(verInfo.dwBuildNumber);
str := 'Sistema Operacional : ';
case verInfo.dwPlatformId of
VER_PLATFORM_WIN32s : stOS.Caption := str +'Windows 95';
VER_PLATFORM_WIN32_WINDOWS : stOS.Caption := str +'Windows 95 Osr2 / 98';
VER_PLATFORM_WIN32_NT : stOS.Caption := str +'Windows NT';
end;
str := '';
for I := 0 to 127 do
str := str + verInfo.szCSDVersion[I];
stOSService.Caption := 'Informações Adicionais : '+ str;
end
end;

Abs T++ http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif