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

分类： DoDo 2013-03-14 23:24 302人阅读 评论(0) 收藏 举报

一、建立项目

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

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

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

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

设置好了就可以运行了。

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

[delphi] view plaincopy

1. procedure TForm1.btn1Click(Sender: TObject);  
2. var  
3.   oAutoRunRegister: TRegistry;  
4. begin  
5.   oAutoRunRegister := TRegistry.Create;  
6.   try  
7.     oAutoRunRegister.RootKey := HKEY_CURRENT_USER;  
8.     oAutoRunRegister.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', False);  
9.     oAutoRunRegister.WriteString('应用程序名称' , 你的路径+ 'AutoGenMeals');  
10.   finally  
11.     oAutoRunRegister.Free;  
12.   end;  
13.   
14. end;  

OK，可以运行了。