delphi怎样让程序开机自动运行

你可以在程序亩扰运行时自动写入注册表

uses中悔枝包含 Registry

var

MyFilePath:String

begin

MyFilePath:=Application.ExeName

MyReg:=TRegistry.Create

MyReg.RootKey:= HKEY_CURRENT_USER

MyReg.OpenKey('SoftWare\Microsoft\Windows\CurrentVersion\Run'碧耐敏,True)

MyReg.WriteString ('myfile',MyFilePath )

MyReg.Free

这样做，一般会有杀毒软件进行拦截，需要同意才行。

你还可以直接把程序放到开始菜单中的启动下。

procedure TfrmDown.btnRegClick(Sender: TObject)

var

s: TRegistry

sFile: String

begin

s := TRegistry.Create

try

s.RootKey := HKEY_LOCAL_MACHINE

s.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',False)

sFile := ParamStr(0)

s.WriteString(ExtractFileName(sFile),sFile)

finally

s.CloseKey

s.Free

end

end

---