Fórum Sabendo SO do Usuário #286768

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  verInfo: TOsVersionInfo;
  str: String;
begin
verInfo.dwOSVersionInfoSize:=SizeOf(TOSVersionInfo);
if GetVersionEx(verInfo) then
    begin
    case verInfo.dwPlatformId of
        VER_PLATFORM_WIN32s : str:=str + ´Windows 95´;
        VER_PLATFORM_WIN32_WINDOWS : str:=str + ´Windows 95 Osr2 / 98´;
        VER_PLATFORM_WIN32_NT : str:=str +´Windows NT´;
        end;
    end;
ShowMessage(str);
end;