如题!!!!
解决方案 »
- 麻烦将以下这一小段代码改写成DELPHI的代码。
- 请问以下SQL语句如何在QUERY1里执行
- 急﹗﹗﹗如何將此數組轉成指針來用?謝謝
- 怎样操作外部服务器上的数据库,大家提点建议,UP有份
- delphi中如何写winnt的系统服务程序,我在线等
- ~~寻找控件~~~~~~~~~
- 如何实现打印预缆和打印BGRid控件中的内容?很急!!
- 小问题来看看吧
- 我靠,大家在比谁发的快,就是没人回答问题。哈哈。
- 我把一给html文件读给了!string对象.然后如何让Twebbrowser读string?
- 请问FindDialog1这个查找组件怎么用呀,比如说我要找memo1中的一个字
- 分又涨了,散分了 。。。
RegF.RootKey:=HKEY_LOCAL_MACHINE;
try
RegF.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',True);
if cbxautorun.Checked then
begin
RegF.WriteString(AutoRunString, '"' + application.ExeName + '"');
end
else if not cbxautorun.Checked then
begin
RegF.DeleteValue(AutoRunString);
end;
except
Messagedlg('不能修改注册表信息!', mtError, [mbOK], 0);
End;
RegF.Free;cbxautorun是checkbox,判断加载还是移除
//只对当前用户有效
或者
把快捷方式写到“开始”菜单的“启动”中;推荐
或者
写在win.ini(系统目录下)不推荐
或者
写在system.ini(系统目录下)不推荐
HKEY_CURRENT_USER\software\microsoft\windows\currentversion\run
\runonce也可
或者……好多哦!
而runonce指运行一次后,自动删除该注册表项目,以后不会再运行!!!!