Текущий архив: 2004.09.12;
Скачать: CL | DM;

Вниз

Как определить какая 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);

---

← →
Думкин ©   (2004-08-26 15:04) [3]

http://delphibase.endimus.com/

---

Страницы: 1 вся ветка

Текущий архив: 2004.09.12;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.03 c