手把手教您使用delphi定制您的软件开机启动

一、建立项目

本操作使用的delphi版本为 delphi2007  操作系统为win7

第一步是建立项目,首先需要你在硬盘新建一个文件夹,文件夹的名字你可以自己取,我这里命名为‘注册表开机启动设置delphi2007’,然后在这个文件夹下建立三个目录(Release、Bin、Source)如下图:

手把手教您使用delphi定制您的软件开机启动_第1张图片

打开delphi2007,执行file-->new--->VCL Forms.如下

手把手教您使用delphi定制您的软件开机启动_第2张图片

然后设置输出选项:打开project---->options如下:


设置好了就可以运行了。

窗体上拖拽一个button控件,在uses中增加Registry单元,在其点击事件中写入如下代码:

procedure TForm1.btn1Click(Sender: TObject);
var
  oAutoRunRegister: TRegistry;
begin
  oAutoRunRegister := TRegistry.Create;
  try
    oAutoRunRegister.RootKey := HKEY_CURRENT_USER;
    oAutoRunRegister.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', False);
    oAutoRunRegister.WriteString('应用程序名称' , 你的路径+ 'AutoGenMeals');
  finally
    oAutoRunRegister.Free;
  end;

end;
OK,可以运行了。




你可能感兴趣的:(手把手教您使用delphi定制您的软件开机启动)