Mega Code Archive

 

Categories / Delphi / Files

 

Run program not in StartUp Folder

Title: Run program not in StartUp Folder Create a new string type record in HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run Implementation of this idea is so: procedure TForm1.Button2Click(Sender: TObject); begin if Edit1.Text&lt&gt'' then begin with TRegistry.Create do begin RootKey:=HKEY_LOCAL_MACHINE; if OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', TRUE) then WriteString('UserProgram', Edit1.Text) else MessageDlg('Registry record error', mtError, [mbOk], 0); CloseKey; end; end; end;