Люди, помогите с реестром! (СРОЧНО)

← →
[BAD]Angel (2003-03-07 22:50) [0]

Мастера! Тут такое дело:
На машине установлен Антивирус Касперского для рабочих станций, в целях удаленного администрирования, надо написать прогу, которая сносила бы антивирус (деинсталировала). Этой проблемы не было бы, если бы некоторые "умные" люди из лаборатории Касперского сделали один параметр для setup.exe (есть правда недокументированный /uninst), но он задает много вопросов :(
А мне надо, как говорится: "Без шуму и пыли"(с).
Так вот, кокретно к моему вопросу:
Эта версия антивируса не ведет лог установки, след. и пути, куда он ставится некуда не пишутся, кроме как в реестр. Но они туда записываются под уникальными ключами (которые различны на разных машинах) :( Как мне осуществить поиск значения (Value или Key) в реестре, зная примерное его местоположение???
Или подскажите другой путь!

Заранее благодарен!

← →
Intell (2003-03-08 09:15) [1]

Не знаю наверняка, но вот простейший способ работы с реестром:

uses registry;

procedure TForm1.Button1Click(Sender: TObject);
var
reg: tregistry;
begin
reg:=tregistry.Create;
reg.rootkey:=HKEY_LOCAL_MACHINE;
try
if reg.openkey("\SOFTWARE\3Dlabs\INTELL\", true) then begin
if not reg.keyexists("reg") then reg.createkey("reg");
if reg.openkey("\SOFTWARE\3Dlabs\INTELL\reg", false) then begin
reg.writestring("register", edit1.text);
reg.writedatetime("date", now);
reg.closekey;
MessageDlg("Перезапустите программу", mtInformation, [mbOk], 0);
end;
end;
finally
reg.free;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
reg1: tregistry;
begin
reg1:=tregistry.Create;
reg1.rootkey:=HKEY_LOCAL_MACHINE;
try
if reg1.openkey("\SOFTWARE\INTELL\reg", false) then begin
label1.Caption:=reg1.readstring("register");
reg1.closekey;
end;
finally
reg1.free;
end;
end;

Intell
sergein@nojabrsk.ru

← →
Beglec (2003-03-08 20:20) [2]

Совершенно согласен

← →
[BAD]Angel (2003-03-11 09:49) [3]

Не то! Видать Вы не поняли вопрос!
Как работать с реестром я знаю, не ламер! :)
Мне нужно произвести поиск в реестре, например на наличие параметра "kav32.exe". Причем, допустим, во всех подразделах ключа HKLM.

← →
Beginer1 (2003-03-11 15:20) [4]

а на сайте искать не пробывал. была такая тема пару дней назад

← →
Anatoly Podgoretsky (2003-03-11 15:22) [5]

[BAD]Angel © (11.03.03 09:49)
"Как работать с реестром я знаю" не наблюдается

← →
andrey_pst (2003-03-11 15:26) [6]

Есть такая штука, называется Kaspersky Administration Kit - пакет для удаленного администрирования Антивируса Касперского для рабочих станций Windows.
Позволяет устанавливать, удалять модули антивируса и т.п.
Лично я пользуюсь и Вам советую - не изобретайте колесо :) "умные" люди из лаборатории Касперского это уже сделали.

← →
[BAD]Angel (2003-03-11 21:02) [7]

andrey_pst © Спасибо попробую :)
Но эти "умные", как ты говоришь люди, что-то совсем не шарят... Я им звонил, задавал вопрос, мало того, что они меня отправили к документации по КАВу, но потом они же сказали, что там такого нет :) почле чего прислали прогу... которая, якобы, сносит КАВ... но она сырая до чертиков :))) Вот тебе и "умные" люди...

Anatoly Podgoretsky © - это к чему?

← →
Anatoly Podgoretsky (2003-03-11 21:08) [8]

Это к твоему вопросу и твоему утверждению насчет умения работать с реестром, не стыкуется.

← →
[BAD]Angel (2003-03-11 21:11) [9]

Intell © мне привео простейший пример, в котором даже неопытный програмер сможет разобраться :) но я то, наверное спрашиваю, то что не знаю?! или как?

Люди, помогите с реестром! (СРОЧНО) Найти похожие ветки