Używam czagoś takiego:
[code]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 9598';
VER_PLATFORM_WIN32_NT: Caption:='WIN NT';
end;
end; [/code]
, ale ten kod nie pokaże WinXP:-( . Czago trzeba użuć do wyświetlenia na labelu, ze soft działa po WinXP [???]
Jak masz XP to wykryje go jako NT
człowieczku to wez obok NT dopisz i XP!!!!!!! i nie pisz 12 postów na jednej stronie!!!!!! kurde bele
człowieczku to wez obok NT dopisz i XP!!!!!!! i nie pisz 12 postów na jednej stronie!!!!!! kurde bele
Właśnie wotek!!! Jesteś tu od dzisiaj, a już zdążyłes zdenerwowac Lofixa, i przy okazji mnie. Walisz te posty hurtowo??? Płacą Ci za to, czy chcesz awansować [diabel] :-[ :-[ :-[ :-[ :-[ :-[ :-[
Windows 2000 zwraca wersje 5.0, a Windows XP- 5.1
W rejestrze, jak będzie ci się chciało poszukać [diabel] :p :d , to bez problemów znajdziesz:-)
W rejestrze, jak będzie ci się chciało poszukać [diabel] :p :d , to bez problemów znajdziesz:-)
HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersion
ProductName
Oczywiście to można zmienić. Metoda z 5.0 i 5.1 jest chyba bardziej niezawodna.
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 9598';
VER_PLATFORM_WIN32_NT:
if os.dwMajorVersion 5 then
Caption:='WIN NT'
else
if os.dwMinorVersion 1 then
Caption := 'Win 2000'
else
Caption := 'Win XP';
end;