1 Topic by sibprogsistem (edited by sibprogsistem 2019-02-08 14:01:06)

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Topic: автозапуск

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
reg : TRegistry;
begin
reg:= TRegistry.Create;
reg.RootKey:= HKEY_CURRENT_USER;
reg.OpenKey('SOFTWARE \ Microsoft \ Windows \ CurrentVersion \ Run', True);
reg.WriteString('programm' , ExtractFilePath(Application.ExeName));
reg.CloseKey;
reg.Free;
end;

не получается ((

  • Registered: 2014-02-14
  • Posts: 10,294

Re: автозапуск

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
    reg : TRegistry;
begin
    reg:= TRegistry.Create;
    reg.Access := KEY_ALL_ACCESS;
    reg.RootKey:= HKEY_CURRENT_USER;
    reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', True);
    reg.WriteString('programm', '"'+Application.ExeName+'"');
    reg.CloseKey;
    reg.Free;
end;
Dmitry.
  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: автозапуск

Спасибо!