加入注册表中 RUN主键下就可以了
解决方案 »
- idhttp get 这么获取支付宝网站源码呢
- wininet宽字符的问题
- 关于查询数据的问题
- Midas问题,提示"类没有注册"。急,在线等。
- 将IEEE-754格式的数据转换成浮点数的问题!
- 如何在DBGrid中双击某单元格以获取当前值?
- 跪求!!汽车维修管理系统
- 我用Delphi在本地建立了一个专用消息队列,但不知道该如何创建一个消息并将它发送到
- delphi组件问题
- 能不能给我提供delphi5(不是delphi6版本)的产品序列号
- 请问广州哪个书店提供网上订购李维的《Delphl5.x ADO/MTS/CoM+高级程序设计篇》?
- 咨询:D6和D5是否可以装在同一操作系统(如98)下?
procedure addreg(a: boolean);
//添加soft 到启动项目
var
RegF: TRegistry;
begin
RegF := TRegistry.Create;
RegF.RootKey := HKEY_LOCAL_MACHINE;
try
RegF.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',
True);
if a then
RegF.WriteString('soft',
application.ExeName)
else
begin
regf.DeleteValue('soft');
end;
except
application.MessageBox('写注册表错误!', '错误提示', mb_ok);
end;
RegF.CloseKey;
RegF.Free;end;