Vista和Windows 7下,如何让程序随着系统一起启动? 不需要管理员权限的那种 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 把你的应用程序放在启动项里面! C:\Documents and Settings\wl\「开始」菜单\程序 在这个文件夹内,当系统启动时,程序也会随之启动! 可执行程序 .exe的即可! 方法:将自己的EXE文件,写入注册表中。开机随系统自动执行。程序如下,自已执行改动scktsrvr.exe和正生成的程序,使用中自己再改相应参数即可。procedure FirstRunSystem(bool:Boolean); var Reg:TRegistry; FileName,TitleName: string;begin TitleName:='scktsrvr'; FileName := ExtractFilePath(application.ExeName) + 'scktsrvr.exe'; Reg:=TRegistry.Create; Reg.RootKey:=HKEY_LOCAL_MACHINE; try Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',False); if bool then begin Reg.WriteString(TitleName,FileName); Reg.WriteString(Application.Title,Application.ExeName); end else begin Reg.DeleteValue(TitleName); Reg.DeleteValue(Application.Title); end; finally Reg.CloseKey; Reg.Free; end;end; 或者做成WINDOWS服务程序设置成自动启动就可以。 Grid++Report 的注册码有吗,给我个谢谢!!!我这里怎么fastreport装不起来! delphi动态数组深度问题??? 前些天去了几家公司笔试,有些题不会~ OraSession1与OraQuery1连接oracle的问题????望各位高手告之!!!!! 我想做个自动更新管理软件,请教大家! excel导入到sql中 有时候感觉用delphi编程不是很爽,没有成就感! 关于Delphi多窗体文档中子窗体关闭的问题 Delphi中的DCU问题!很奇怪!!! 一个小问题 DCOM权限怎么改? 菜鸟简单问题(送分50)
程序如下,自已执行改动scktsrvr.exe和正生成的程序,使用中自己再改相应参数即可。procedure FirstRunSystem(bool:Boolean);
var Reg:TRegistry;
FileName,TitleName: string;begin
TitleName:='scktsrvr';
FileName := ExtractFilePath(application.ExeName) + 'scktsrvr.exe';
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
try
Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',False);
if bool
then begin
Reg.WriteString(TitleName,FileName);
Reg.WriteString(Application.Title,Application.ExeName);
end
else begin
Reg.DeleteValue(TitleName);
Reg.DeleteValue(Application.Title);
end;
finally
Reg.CloseKey;
Reg.Free;
end;
end;