Programowanie w języku Delphi » FAQ

Jak rozpoznać w jakim systemie operacyjnym działa program

Oto kod:
var 
 OS:TOsVersionInfo;
begin
 OS.dwOSVersionInfoSize:=SizeOf(os);
 GetVersionEx(os);
 case os.dwPlatformId of
  VER_PLATFORM_WIN32s: Caption:='WIN 3.1';
  VER_PLATFORM_WIN32_WINDOWS: Caption:='WIN 9x';
  VER_PLATFORM_WIN32_NT: Caption:='WIN NT';
 end;
end;


Jeżeli chcesz mieć dokładną wersję systemu to pola:
dwMajorVersion oraz dwMinorVersion zawierają dokładny numer systemu.
Np. Win NT 3.51:
dwMajorVersion = 3
dwMinorVersion = 51
Np. Win NT 4.0:
dwMajorVersion = 4
dwMinorVersion = 0
Np. Win 2000:
dwMajorVersion = 5
dwMinorVersion = 0
Np. Win XP:
dwMajorVersion = 5
dwMinorVersion = 1

3 komentarze

wotek 2005-03-18 16:21

to jest odczytanie rodziny systemow, a nie konkretnej wersji :D

aZgon 2003-07-14 16:42

A ja chciałbym dożucić coś od microsoftu gdzie jest rozwiniecie tych dwMinor i dwMajor
http://msdn.microsoft.com/libr[...]nfo/base/osversioninfo_str.asp