Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как узнать устаовлен ли Service Pack 1 в Windows XP? [D4, WinXP]

Tahion2 © (2004-01-02 13:41:00)
Как узнать, у пользователя голая Windows XP? или уже установлен Service Pack 1 (2) ?

jack128 (2004-01-03 16:11:00) [1]
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;

Tahion2 (2004-01-03 14:16:00) [2]

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

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

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

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

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

Rouse_ (2004-01-03 04:10:00) [4]
Ну а если развить идею... или вам все готовое нужно?

Tahion2 (2004-01-02 20:36:00) [5]
Ты про http://delphibase.endimus.com/?action=viewfunc&topic=sysparams&id=10002

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

Rouse_ (2004-01-02 16:34:00) [6]
UBPFD - Игорем Шевченко был дан полный дизбаланс ....

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »