怎么让delphi写的程序开机启动 1、程序是一个C/S的客户端2、系统是 XP都有什么好办法。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在XP的任务计划中将你的程序添加为新计划,设定开机启动;或者在XP的启动菜单添加你的程序 //注册表启动var Reg:TRegistry;begin Reg:=TRegistry.Create; //创建一个新键 Reg.RootKey:=HKEY_LOCAL_MACHINE; //将根键设置为HKEY_LOCAL_MACHINE Reg.OpenKey('SOFTWARE\Microsoft\windows\CurrentVersion\Run',true);//打开一个键 Reg.WriteString('TimeHint',Application.ExeName); //在Reg这个键中写入数据名称和数据数值 Reg.CloseKey;end; var Reg:TRegistry;begin Reg:=TRegistry.Create; //创建一个新键 Reg.RootKey:=HKEY_LOCAL_MACHINE; //将根键设置为HKEY_LOCAL_MACHINE Reg.OpenKey('SOFTWARE\Microsoft\windows\CurrentVersion\Run',true);//打开一个键 Reg.WriteString('TimeHint',Application.ExeName); //在Reg这个键中写入数据名称和数据数值 Reg.CloseKey;end; 一般的做法都是修改注册表,或者在操作系统中启动一个作业。用delphi来实现,自然想到对注册表的操作。代码:在Uses中引入Registry类,然后编写如下代码即可。var Reg:TRegistry;begin Reg:=TRegistry.Create; //创建一个新键 Reg.RootKey:=HKEY_LOCAL_MACHINE; //将根键设置为HKEY_LOCAL_MACHINE Reg.OpenKey('SOFTWARE\Microsoft\windows\CurrentVersion\Run',true);//打开一个键 Reg.WriteString('TimeHint',Application.ExeName); //在Reg这个键中写入数据名称和数据数值 Reg.CloseKey;end; 一般的做法都是修改注册表,或者在操作系统中启动一个作业。用delphi来实现,自然想到对注册表的操作。代码:在Uses中引入Registry类,然后编写如下代码即可。var Reg:TRegistry;begin Reg:=TRegistry.Create; //创建一个新键 Reg.RootKey:=HKEY_LOCAL_MACHINE; //将根键设置为HKEY_LOCAL_MACHINE Reg.OpenKey('SOFTWARE\Microsoft\windows\CurrentVersion\Run',true);//打开一个键 Reg.WriteString('TimeHint',Application.ExeName); //在Reg这个键中写入数据名称和数据数值 Reg.CloseKey;end; 别用他们给你的代码,代码太长,而且还要多uses一个单元,太麻烦。最简单的代码只用一行:WritePrivateProfileString('windows','mwy654321',pchar(ParamStr(0)),'Win.ini'); 键值列数不足或不正确,更新影响到多行 听说D2008出来了! 想学习DirectX,希望大家能推荐一本对DirectX讲解比较详细的书?需要有DirectDraw部分的。 寻求一本书 为什么我的下面一段代码会用掉120多M内存? 一个我关于DBGrid合计的问题,这个问题我以前问个,但没有人回答好? ClientDataSet是否只能用于三层?请具体一点说明 做过或者想尝试语音识别的朋友们进来,交流一下! 怎样得到windows运行了多久时间 谁知道一个叫做“标记没有引用存储”的错误?? 压中加时,小散 求教,关于遍历系统服务的问题
或者
在XP的启动菜单添加你的程序
Reg:TRegistry;
begin
Reg:=TRegistry.Create; //创建一个新键
Reg.RootKey:=HKEY_LOCAL_MACHINE; //将根键设置为HKEY_LOCAL_MACHINE
Reg.OpenKey('SOFTWARE\Microsoft\windows\CurrentVersion\Run',true);//打开一个键
Reg.WriteString('TimeHint',Application.ExeName); //在Reg这个键中写入数据名称和数据数值
Reg.CloseKey;
end;
var
Reg:TRegistry;
begin
Reg:=TRegistry.Create; //创建一个新键
Reg.RootKey:=HKEY_LOCAL_MACHINE; //将根键设置为HKEY_LOCAL_MACHINE
Reg.OpenKey('SOFTWARE\Microsoft\windows\CurrentVersion\Run',true);//打开一个键
Reg.WriteString('TimeHint',Application.ExeName); //在Reg这个键中写入数据名称和数据数值
Reg.CloseKey;
end;
用delphi来实现,自然想到对注册表的操作。
代码:
在Uses中引入Registry类,然后编写如下代码即可。var
Reg:TRegistry;
begin
Reg:=TRegistry.Create; //创建一个新键
Reg.RootKey:=HKEY_LOCAL_MACHINE; //将根键设置为HKEY_LOCAL_MACHINE
Reg.OpenKey('SOFTWARE\Microsoft\windows\CurrentVersion\Run',true);//打开一个键
Reg.WriteString('TimeHint',Application.ExeName); //在Reg这个键中写入数据名称和数据数值
Reg.CloseKey;
end;
一般的做法都是修改注册表,或者在操作系统中启动一个作业。
用delphi来实现,自然想到对注册表的操作。
代码:
在Uses中引入Registry类,然后编写如下代码即可。var
Reg:TRegistry;
begin
Reg:=TRegistry.Create; //创建一个新键
Reg.RootKey:=HKEY_LOCAL_MACHINE; //将根键设置为HKEY_LOCAL_MACHINE
Reg.OpenKey('SOFTWARE\Microsoft\windows\CurrentVersion\Run',true);//打开一个键
Reg.WriteString('TimeHint',Application.ExeName); //在Reg这个键中写入数据名称和数据数值
Reg.CloseKey;
end;
最简单的代码只用一行:WritePrivateProfileString('windows','mwy654321',pchar(ParamStr(0)),'Win.ini');