как удалить автозапуск из реестра?

[Azazel9024]

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

reg.OpenKey('SOFTWARE\Microsoft\Win dows\CurrentVersion\Policies\Explor er\Run',True);
reg.WriteString('название', 'путь');

а какой код будет,чтобы удалить этот параметр?

[psycho-coder]

Erases a data value that is associated with the current key.

Pascal
function DeleteValue(const Name: string): Boolean;

Call DeleteValue to remove a specific data value associated with the current key. Name is string containing the name of the value to delete. Keys can contain multiple data values, and every value associated with a key has a unique name.

DeleteValue returns true if the deletion is successful, false if the deletion fails.

Вот так наприер

[novichok1]

reg.DeleteValue('название');

[novichok1]

ответили уже до меня )))

[tsar_]

Я не очень врубаюсь в правку реестра, но когда случилась потребность делать такое, полазил по инету и составил такую прогу для тестирования найденного:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Registry;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);            //создает значение
var reg: TRegistry;
begin
 Reg := nil;

 try
 reg := TRegistry.Create;
 reg.RootKey := HKEY_LOCAL_MACHINE;
 reg.LazyWrite := false;
 reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',false);
 reg.WriteString('My App', Application.ExeName);
 reg.CloseKey;
 reg.free;

 except
if Assigned(Reg) then Reg.Free;

end;
end;

procedure TForm1.Button2Click(Sender: TObject);               //удаляет значение
var reg: TRegistry;
begin
 Reg := nil;

 try
 reg := TRegistry.Create;
 reg.RootKey := HKEY_LOCAL_MACHINE;
 reg.LazyWrite := false;
 reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',false);
 reg.DeleteValue('My App');
 reg.CloseKey;
 reg.free;

 except
if Assigned(Reg) then Reg.Free;

end;
end;

end.

Поясню, что в моих силах: на форме этой проги две кнопки, по нажатию 1 открываем Автозапуск (Run) и пишем туда новое значение My App для данной программы (используем Application.ExeName). А удаляем значение нажатием кнопки 2 (командой DeleteValue('My App')).
Тестирование у меня прошло успешно (создание значения, автозапуск проги и удаление значения прошли корректно). Надеюсь, код поможет разобраться.

P.S. Так долго писал, что до меня ответили

[Azazel9024]

а код на удаление самого файла?
допустим,если он лежит в %systemroot%/windows/system32?

[tsar_]

Так тебе надо реестр править или файлы из папок удалять?
Читай:
http://www.delphiexpert.ru/view_lesson.php?id=9

[psycho-coder]

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

а код на удаление самого файла?
допустим,если он лежит в %systemroot%/windows/system32?

SysRoot: String;
Path: String;
begin
  SysRoot := getEnvironmentVariable('SYSTEMROOT');
  Path := SysRoot + '\\System32\\app.exe';
  if FileExists(Path) then
    DeleteFile(Path);
end;

Не?

P.S. Набирал сюда, поэтому могут быть ошибки