Удаление записи из реестра

[logitech12]

Всем привет! Нужно средствами делфи выполнить следующее действие:

[HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432 Node\Microsoft\Windows NT\CurrentVersion\Windows]
"AppInit_DLLs"=""
"LoadAppInit_DLLs"=dword:000000 00

Помогите с кодом пожалуйста!

[logitech12]

Никто не знает чтоли?

[Newbabe]

НУ если только средствами делфи то: Юзаем TRegistry

uses Registry

var 
reg:Tregistry;
goodKey:boolean;
begin
reg:=Tregistry.Create;
reg.rootKey := HKEY_LOCAL_MACHINE;
goodKey := reg.OpenKey('SOFTWARE\Wow6432 Node\Microsoft\Windows NT\CurrentVersion\Windows',false);
if goodKey = true then begin
//Здесь уже делаеш чо хочеш те если не хочеш чтобы библиотеки при старте виндовс
//автоматом подгружала винда то
reg.WriteInteger('LoadAppInit_DLLs',0);
reg.WriteString('AppInit_DLLs',""); //болбше ничего не загрузиться
reg.CloseKey; 
end;
reg.free;
end

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Просьба не забывайть об этом!
Модератор.

[logitech12]

Сообщение от Newbabe

НУ если только средствами делфи то: Юзаем TRegistry
uses Registry

var
reg:Tregistry;
goodKey:boolean;
begin
reg:=Tregistry.Create;
reg.rootKey := HKEY_LOCAL_MACHINE;
goodKey := reg.OpenKey('SOFTWARE\Wow6432 Node\Microsoft\Windows NT\CurrentVersion\Windows',false);
if goodKey := true then begin
//Здесь уже делаеш чо хочеш те если не хочеш чтобы библиотеки при старте виндовс
//автоматом подгружала винда то
reg.WriteInteger('LoadAppInit_DLLs' ,0);
reg.WriteString('AppInit_DLLs',""); //болбше ничего не загрузиться
reg.CloseKey;
end;
reg.free;
end

не работает(
Вы пробовали запустить?

[Newbabe]

А отладка уже на тебе. Я на горячую руку как говориться написал.... Ладно чо компилятор пишет?

[Serge_Bliznykov]

думаю, что автору нужно УДАЛИТЬ записи из реестра..

смотрите в сторону Reg.DeleteKey (это метод компонента, как выше абсолютно правильно сказано, TRegistry)

[Newbabe]

Сори товарищ Модератор.

думаю, что автору нужно УДАЛИТЬ записи из реестра..

Тогда так:

uses Registry

var
reg:Tregistry;
goodKey:boolean;
begin
reg:=Tregistry.Create;
reg.rootKey := HKEY_LOCAL_MACHINE;
goodKey := reg.OpenKey('SOFTWARE\Wow6432 Node\Microsoft\Windows NT\CurrentVersion\Windows',false);
if goodKey = true then begin
//Здесь уже делаеш чо хочеш те если не хочеш чтобы библиотеки при старте виндовс
//автоматом подгружала винда то
reg.DeleteKey('LoadAppInit_DLLs');
reg.DeleteKey('AppInit_DLLs'); //болбше ничего не загрузиться
reg.CloseKey;
end;
reg.free;
end.

[logitech12]

Сообщение от Serge_Bliznykov

думаю, что автору нужно УДАЛИТЬ записи из реестра..

смотрите в сторону Reg.DeleteKey (это метод компонента, как выше абсолютно правильно сказано, TRegistry)

да да да..именно удалить записи

[logitech12]

Сообщение от Newbabe

Сори товарищ Модератор.


Тогда так:

uses Registry

var
reg:Tregistry;
goodKey:boolean;
begin
reg:=Tregistry.Create;
reg.rootKey := HKEY_LOCAL_MACHINE;
goodKey := reg.OpenKey('SOFTWARE\Wow6432 Node\Microsoft\Windows NT\CurrentVersion\Windows',false);
if goodKey := true then begin
//Здесь уже делаеш чо хочеш те если не хочеш чтобы библиотеки при старте виндовс
//автоматом подгружала винда то
reg.DeleteKey('LoadAppInit_DLLs');
reg.DeleteKey('AppInit_DLLs'); //болбше ничего не загрузиться
reg.CloseKey;
end;
reg.free;
end.

if goodKey := true then begin

[DCC Error] Unit1.pas(33): E2029 'THEN' expected but ':=' found

вот ошибка

[Newbabe]

так надо здесь:

if goodKey= true then begin

точки от знака равенства убери там оператор сравнения идет ведь
зы.Онлайн дебаггинг - что то новое :-)))