Fórum Dados do Windows #162786

// VERIFICA E APRESENTA AS INFORMAÇÕES do SISTEMA OPERACIONAL
procedure TfrmSobreManager.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;