Как определить какая Windows установлена на компьютере?

← →
Иван_1 (2004-08-26 14:56) [0]

Нужно узнать какая конкретно система установлена - Win98 или WinXp.
Функция GetVersion тут не подходит. Как это сделать?

Попробовал использовать функцию GetVersionEx, но бесполезно.

var
WinVer:_OSVERSIONINFO;

begin

GetVersionEx(WinVer);

ShowMessage(WinVer.szCSDVersion); // = ""

end;

В 98-ом WinVer.szCSDVersion ="" , а в Xp какой-то белиберде

← →
s999 (2004-08-26 15:02) [1]

Используешь непрвильно. Надо:

var
OSInfo: TOSVersionInfoA;
begin
OSInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfoA);
GetVersionEx(OSInfo);
....
end;

← →
VMcL © (2004-08-26 15:03) [2]

WinVer.dwOSVersionInfoSize := SizeOf(WinVer);
GetVersionEx(WinVer);

http://delphibase.endimus.com/

Как определить какая Windows установлена на компьютере? Найти похожие ветки