先uses registry; var Reg:Tregistry;
begin
Reg:=Tregistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey(Software\Microsoft\Windows\CurrentVersion\Run',False);
Reg.WriteString('sysExplr','d:\SthVCD\SysExplr.EXE');//换成你的
Reg.CloseKey;
Reg.Free;
end;
begin
Reg:=Tregistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey(Software\Microsoft\Windows\CurrentVersion\Run',False);
Reg.WriteString('sysExplr','d:\SthVCD\SysExplr.EXE');//换成你的
Reg.CloseKey;
Reg.Free;
end;
解决方案 »
- 怎样用程序禁用、启用网络连接
- RichEdit的问题
- 弱弱的问一下,关于Indy的超简单问题
- 在文件传输中,文件分块传输是个啥意思,有这方面的例子吗
- 求《Programming windows》电子书及FINDWINDOW,SENDMESSAGE,WINEXEC,SHELLEXECUTE这几个API函数的用法
- 请问截取一个字符串某部份的那个函数是会么?
- 那位大侠来救我!急救!
- 简单问题送高分了(:)我终于来问问题了!)问题简单不好回答哦!!
- 本人做了一个类似于Acrobat 4.0的软件,不过可以进行编辑的,要想下载,进来看下载地址吧.
- where can i find DBTreeView?
- 请问!! int如何转换成byte?--------谢谢lastlove 0的帮助!!!!!!
- 求和问题!请回答!
或RUNSERVICE下
先uses registry; var Reg:Tregistry;
begin
Reg:=Tregistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey(Software\Microsoft\Windows\CurrentVersion\Run',False);
Reg.WriteString('sysExplr','d:\SthVCD\SysExplr.EXE');//换成你的
Reg.CloseKey;
Reg.Free;
end;
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RUNSERVICE
启动