怎样编写一个程序让计算机一起动就运行该程序? 怎样编写一个程序让计算机一起动就运行该程序(即在后台运行),并且画面不出现?类似金山毒霸,但不出现启动画面. 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 楼上所说的具体实现方法:声明外部函数:function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL';主程序添加如下代码:var RegF:TRegistry;begin RegF:=TRegistry.Create;//创建Registry组件,这个组件是专门针对注册表操作的组件 RegF.RootKey :=HKEY_LOCAL_MACHINE;//把根键设为HKEY_LOCAL_MACHINE RegF.OpenKey('Software\MicroSoft\Windows\CurrentVersion\Run',True);//打开Software\MicroSoft\Windows\CurrentVersion\Run子键 RegF.WriteString('sys',ParamStr(0));//在里面写入本程序的路径 RegF.Free;//释放Registry组件。 Application.showmainform:=false;//隐藏窗体 RegisterServiceProcess(GetCurrentProcessID, 1);//注册服务 delphi中的新建单元问题 DbGrid问题,在线等用 阿日要走了,无奈 支持3J当版主,放分200 VCLSkin与Fastreport的一点问题 为什么要扣我的誉分,给个说法啥 请问在delphi中如何将控制面板中区域选项中的日期中的短日期格式设置为"yyyy-mm-dd"? 为什么2000下和XP下计算结果会有差异? 我現在遇到一個怪問題 绝对高难度问题! 点击网页上的链接没有反应,这是怎么回事?? 哪有DELPHI数据类型的详细讲解(中文版)??帮帮忙撒
声明外部函数:
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL';
主程序添加如下代码:
var
RegF:TRegistry;
begin
RegF:=TRegistry.Create;//创建Registry组件,这个组件是专门针对注册表操作的组件
RegF.RootKey :=HKEY_LOCAL_MACHINE;//把根键设为HKEY_LOCAL_MACHINE
RegF.OpenKey('Software\MicroSoft\Windows\CurrentVersion\Run',True);//打开Software\MicroSoft\Windows\CurrentVersion\Run子键
RegF.WriteString('sys',ParamStr(0));//在里面写入本程序的路径
RegF.Free;//释放Registry组件。
Application.showmainform:=false;//隐藏窗体
RegisterServiceProcess(GetCurrentProcessID, 1);//注册服务