Как узнать устаовлен ли 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 - то же самое)

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

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;

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