Obter a versão do Sistema Operacional

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