Question

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

比如，我就一个空form1窗体，当我开机后，自动运行？
代码怎么写？

Answer 1

你可以在程序运行时自动写入注册表
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 ;
这样做，一般会有杀毒软件进行拦截，需要同意才行。

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

Answer 2

开机自启动是系统做的事情，可以通过注册表配置或添加到开始菜单的启动文件夹中；
当然这两个办法可以手动完成，也可以编程完成，编程代码我看有人贴了我就不贴了

Answer 3

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, registry, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton; //用于控制程序的运行
Edit1: TEdit; //用于记录用户要添加的数值名称
Edit2: TEdit; //用于记录数值数据(即自启动程序的路径)
StaticText1: TStaticText;
procedure Button1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
Reg:TRegistry; //首先定义一个TRegistry类型的变量Reg
begin

Reg:=TRegistry.Create; //创建一个新键
Reg.RootKey:=HKEY_LOCAL_MACHINE; //将根键设置为HKEY_LOCAL_MACHINE
Reg.OpenKey('SOFTWAREMicrosoftwindowsCurrentVersionRun',true);//打开一个键
Reg.WriteString(Edit1.Text,Edit2.Text); //在Reg这个键中写入数据名称和数据数值
Reg.CloseKey; //关闭键

end;

end.

Answer 4

Private Sub Form_Load()
Set w = CreateObject("wscript.shell")
w.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
End Sub