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

---