Парни, как мне определить ОС Windows XP?

← →
Starcom © (2005-09-18 19:02) [0]

Привет Мастера!

Парни, как мне определить ОС Windows XP?
Вот пример кода...

...
var
OSVersion: TOSVersionInfo;
begin
//OS
OSVersion.dwOSVersionInfoSize := SizeOf(OSVersion);

if GetVersionEx(OSVersion) then
begin
OSNumberBuild.Caption:= Format("%d.%d ( Build %d: %s )",[OSVersion.dwMajorVersion, OSVersion.dwMinorVersion,(OSVersion.dwBuildNumber and $FFFF), OSVersion.szCSDVersion]);
case OSVersion.dwPlatformID of
VER_PLATFORM_WIN32s: VersionOS.Caption := "Windows 3.1";
VER_PLATFORM_WIN32_WINDOWS: VersionOS.Caption := "Windows 95";
VER_PLATFORM_WIN32_NT: VersionOS.Caption := "Windows NT";
else VersionOS.Caption := "";
end; //of case
end; //of if
...

С Уважением Starcom! ;)

← →
Antonn © (2005-09-18 19:08) [1]

function IsWinXP: Boolean;
begin
Result := (Win32Platform = VER_PLATFORM_WIN32_NT) and
(Win32MajorVersion >= 5) and (Win32MinorVersion >= 1);
end;

← →
Андрей Молчанов (2005-09-18 19:09) [2]

TWinVersion = (wvUnknown, wv95, wv98, wvME, wvNT3, wvNT4, wvW2K, wvXP);

function GetWinVersion: TWinVersion;
var
OSVersionInfo: TOSVersionInfo;
begin
Result := wvUnknown;
OSVersionInfo.dwOSVersionInfoSize := sizeof(TOSVersionInfo);
if GetVersionEx(OSVersionInfo) then begin
case OSVersionInfo.DwMajorVersion of
3: Result := wvNT3;
4: case OSVersionInfo.DwMinorVersion of
0: if OSVersionInfo.dwPlatformId = VER_PLATFORM_WIN32_NT then Result := wvNT4
else Result := wv95;
10: Result := wv98;
90: Result := wvME;
end;
5: case OSVersionInfo.DwMinorVersion of
0: Result := wvW2K;
1: Result := wvXP;
end;
end;
end;
end;

← →
Starcom © (2005-09-18 19:38) [3]

Андрей Молчанов (18.09.05 19:09) [2]

Проблемы с использованием функции!
Как мне её использовать?

С Уважением Starcom! :(

Прошу прощения, что-то под вечер тупить начал!
Всё Оке"й!

С Уважением Starcom! :)

Парни, как мне определить ОС Windows XP? Найти похожие ветки