是不是要发送什么消息?
解决方案 »
- GetProcAddress函数的奇怪问题, 请求高手帮忙回答
- ACCESS数据库 查询问题
- 当一个adoquery.post出错后,如何用程序判断是主键重复错误还是数据库对象不存在之类的错误?
- 如何获得网站主页文件名或地址重定向以后的文件名
- 如何将TADOCONNECTION/TADOTABLE/TDBCHART等这样的控件做成ACTIVEX控件?
- TreeView
- Pooling的问题
- 在线才953人 服务器就忙 CSDN老了 有同感的人举手
- acess中的小数读到delphi中位数多了好多,在DBGrid中显示查询结果为正确位数该如何做?
- 请教老师!
- DateTimePicker组件
- 如何连接数据库
1。把捷徑copy到啟動中。
2。寫注冊表
或者放到启动中注册表:
RUN的位置:
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run
或
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run
都可以
Interbase Server"D:\Program Files\Borland\IntrBase\BIN\ibserver.exe"
在程序中实现可以使用TRegIniFile或者使用TRegistry都可以. User Registry; Var
RegF:TRegistry;
begin
RegF:=TRegistry.Create;
RegF.RootKey:=HKEY_LOCAL_MACHINE;
try
RegF.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',True);
RegF.WriteString('Interbase Server',
'"D:\Program Files\Borland\IntrBase\BIN\ibserver.exe"');
except
...
End;
RegF.Close;
RegF.Free;
end;
要是够狠,可以写这里HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon下面的Shell键,有些网吧就这样干,把explorer丢在一边
老机还可以写autoexec.bat的,nt下不管用
先在USES 中添加registry
然后可以在比如Tform1.create事件中添加代码,var reg:TRegistry;
begin
reg:=TRegistry.create;
with reg do
begin
rootkey:=HKEY_LOCAL_MACHINE;
if OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', True) then
begin
WriteString('我的程序',getcurrentdir+'\我的程序.exe');//在这里实现在注册表里添加您需要自启动的程序的完整路径名和程序名;
end
else
showmessage('操作失败');
closekey;
end;
reg.free;
end;
HKEY_CURRENT_USER下的键是针对当前用户
HKEY_LOCAL_MACHINE下的键是针对全体用户,NT下要有管理员权限
1、如上各楼的注册表方法;
2、直接添加 开始菜单\启动 中;
3、修改 Win.INI 系统文件,在第一项后面加入 ' 你要执行的文件名.扩展名 参数'。第二种情况也可以有 3 种方案解决:
1、2:同上;
3、把应用程序注册为系统服务进程,只要在你自己的应用程序运行时添加参数 /install 即可,卸载 /uninstall 。至此,完成!
我想提一下:
HKEY_CURRENT_USER下的键是针对当前用户
HKEY_LOCAL_MACHINE下的键是针对全体用户,NT下要有管理员权限
::
local_machine不用管理员权限,power user就够了