ktos wie może jak wykryć wersję systemu operacyjnego w kompie czy to jest np 95 ,98 ME XP NT ?
0
0
Polecenie ver :). A tak na poważenie to poszukaj w Windows SDK--Jest jeszcze jeden błąd ... :)
------------Reklama-------------
Szukasz pomocy?
Najszybsza pomoc dostępna na IRC:
serwer: warszawa.ircnet.pl
sieć: POLNet
kanał: #4programmers.net lub #4programmers
0
No dobra proszę:
var
wersja:TOSVersionInfo;
Platforma:string;
begin
wersja.dwOSVersionInfoSize:=sizeof(wersja);
if GetVersionEx(wersja) then begin
case wersja.dwPlatformId of
VER_PLATFORM_WIN32s='Win32 na Windows 3.1';
VER_PLATFORM_WIN32_WINDOWS='Win32 na Windows 9x/ME';
VER_PLATFORM_WIN32_NT='Win32 na Windows NT';
end;
ShowMessage('Wersja:'+IntToStr(wersja.dwMajorVersion)+'.'+IntToStr(wersja.dwMinorVersion)+#10#13+'Kompilacja:'+IntToStr(wersja.dwBuildNumber)+#10#13+'Platforma: '+Platforma+#10#13+'Service Pack: '+wersja.szCSDVersion);
end;
end;
Przy czym Windows 2000 ma oznaczenie 5.0 a Windows XP 5.1
Jakie oznaczenia mają inne nie wiem.--Jest jeszcze jeden błąd ... :)