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<>'' 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;