Скачать: CL | DM;

Как узнать устаовлен ли Service Pack 1 в Windows XP?   Найти похожие ветки 

← →
Tahion2   (2004-01-02 13:41) [0]

Как узнать, у пользователя голая Windows XP? или уже установлен Service Pack 1 (2) ?

---

← →
Rouse_ ©   (2004-01-02 16:34) [1]

UBPFD - Игорем Шевченко был дан полный дизбаланс ....

---

← →
Tahion2   (2004-01-02 20:36) [2]

Ты про http://delphibase.endimus.com/?action=viewfunc&topic=sysparams&id=10002

И где там определение Есть ли ServicePack под XP?

---

← →
Rouse_ ©   (2004-01-03 04:10) [3]

Ну а если развить идею... или вам все готовое нужно?

---

← →
N169   (2004-01-03 10:57) [4]

Можно прочитать в разделе
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion
строчный параметр
CSDVersion
и проанализировать его.
Если SP1 (2) не стоИт, значение этого параметра есть пустая строка.
(Под Win2000 - то же самое)

---

← →
Tahion2   (2004-01-03 14:16) [5]

> Ну а если развить идею... или вам все готовое нужно?

А как ее развивать то? При установке сервиспаков не MajorVersion, не MinorVersion, не BuildNumber (вроде) не  меняется.


> Можно прочитать в разделе
> HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion
> строчный параметр
> CSDVersion
> и проанализировать его.
> Если SP1 (2) не стоИт, значение этого параметра есть пустая
> строка.
> (Под Win2000 - то же самое)


Это работает. Спасибо.
Но может есть какой другой способ, чтоб реестр не читать?

---

← →
jack128 ©   (2004-01-03 16:11) [6]

function IsWinXPServicePack1: boolean;
var
 osver: TOSVERSIONINFO;
begin
 osver.dwOSVersionInfoSize := SizeOf(osver);
 Result := GetVersionEx(osver) and
   (osver.dwPlatformId = VER_PLATFORM_WIN32_NT) and
   (osver.dwMajorVersion = 6) {???} and
   (osver.szCSDVersion = "Service Pack 1")
end;

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.019 c