Versão OS

Delphi

22/06/2006

Opa pessoal...

Alguem sabe como q eu faço para descobrir a versão do OS??

Abraço,

Eduardo


Eduardobuffara

Eduardobuffara

Curtidas 0

Respostas

Ericksasse

Ericksasse

22/06/2006

A JCL tem funções para isso:
http://homepages.borland.com/jedi/jcl/


GOSTEI 0
Adriano Santos

Adriano Santos

22/06/2006

procedure TForm1.Button1Click(Sender: TObject);

var verInfo : TOSVERSIONINFO;
    str : String;
    I : Word;
begin
   verInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
   if GetVersionEx(verInfo) then
      begin
         Edit1.Text := IntToStr(verInfo.dwOSVersionInfoSize);
         Edit2.Text := IntToStr(verInfo.dwMajorVersion);
         Edit3.Text := IntToStr(verInfo.dwMinorVersion);
         Edit4.Text := IntToStr(verInfo.dwBuildNumber);
         case verInfo.dwPlatformId of
         VER_PLATFORM_WIN32s : Edit5.Text := ´Win16 running Win32s´;
         VER_PLATFORM_WIN32_WINDOWS : Edit5.Text := ´Win32 Windows, probably Win95´;
         VER_PLATFORM_WIN32_NT : Edit5.Text := ´WinNT, full 32-bit´;
      end;

         str := ´´;

         for I := 0 to 127 do
            str := str + verInfo.szCSDVersion[I];

          Edit6.Text := str;
      end;
end;



GOSTEI 0
POSTAR