如何用API在delphi实现将程序加入启动组？

Question

不用api的，改注册表。
{  功能描述:WINDOWS启动时程序自动运行  }
procedure TMainForm.AddToRun;
var
  reg:TRegistry;
begin
  reg:=TRegistry.Create;
  try
    reg.RootKey:=HKEY_LOCAL_MACHINE;
    reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',false);
    reg.WriteString('backup',Application.ExeName+' m');
    reg.CloseKey;
  finally
    reg.Free;
  end;    
end;

Answer 1

上面是我程序的，下面是合适你的。
procedure TMainForm.AddToRun;
var
  reg:TRegistry;
begin
  reg:=TRegistry.Create;
  try
    reg.RootKey:=HKEY_LOCAL_MACHINE;
    reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',false);
    reg.WriteString('backup',Application.ExeName);
    reg.CloseKey;
  finally
    reg.Free;
  end;    
end;