怎样编写一个程序让计算机一起动就运行该程序?急用。敬请各位给予帮助解决,万分感激。

nitxht 2003-05-02 04:05:19
怎样编写一个程序让计算机一起动就运行该程序(即在后台运行),并且画面不出现?类似金山毒霸,但不出现启动画面.
最好做个例子发送到我的信箱。好不好?
Email : xuhaitaowww.@163.com
...全文
55 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
gwsr 2003-05-06
  • 打赏
  • 举报
回复
1、写入注册表(run值)
2、做成Service
3、放在启动菜单里一个快捷
4、写在win.ini中
5、写在autoexec.bat中
annhf 2003-05-06
  • 打赏
  • 举报
回复
简单的,如果是2000可以把程序的快捷方式放到C:\Documents and Settings\All Users\「开始」菜单\程序\启动目录下
enjoyeagle 2003-05-03
  • 打赏
  • 举报
回复
就把它放在启动菜单不就可以了
zleeway 2003-05-02
  • 打赏
  • 举报
回复
把程序做成Service
jianyuzhu 2003-05-02
  • 打赏
  • 举报
回复
部分源代码:
procedure TForm_main.Btn_botClick(Sender: TObject);
var
buffer:pchar;
buflen:dword;
Currentdir:string;
Key: HKey;
begin
buflen:=255;
GetMem(Buffer,BufLen);
try
GetCurrentDirectory(buflen,buffer); //Get Current Directory
Currentdir:=string(buffer);
finally
FreeMem(Buffer);
end;
if messagebox(handle,'是否将***添加到Windows启动组中!','信息',mb_yesno + MB_ICONINFORMATION)=mryes then
begin
try
RegOpenKeyEx(HKEY_LOCAL_MACHINE, 'Software\Microsoft\Windows\CurrentVersion\Run',0,KEY_WRITE,Key);
RegSetValueEx(Key,PChar(application.title),0,REG_SZ,Pchar(Currentdir+'\***.exe'),255);
finally //实现程序自动启动模块
regx.Free;
end;
messagebox(handle,'Winshop已经添加到***启动组中!','信息',mb_ok + MB_ICONINFORMATION);
end;
end;
还有,如果不显示启动画面,可以在程序中加一个参数!还有,就是建立一个服务程序(NT系统)
zhang21cnboy 2003-05-02
  • 打赏
  • 举报
回复
hoho,你去仔细研究一下,计算机启动的过程,你就知道,应该把你的程序装入什么地址了!
耙子 2003-05-02
  • 打赏
  • 举报
回复
金山词霸是把自己放在了 开始的启动菜单下的,

然后他通过2个参数开关,
-s 和 -nosplash

-s 表示 关闭该窗口只是最小化;
-nosplash 表示不出现那个启动画面;

你在你自己的程序里面也支持和处理类似的参数就行了
WWWWA 2003-05-02
  • 打赏
  • 举报
回复
写入注册表中。

1,184

社区成员

发帖
与我相关
我的任务
社区描述
Delphi Windows SDK/API
社区管理员
  • Windows SDK/API社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧