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;
解决方案 »
- 在DELPHI中怎么使用TClientDataSet控件建立和firebird数据库的连接
- IWDbGrid 如何修改里面的值
- 关于DELPHI 串口接收数据包问题
- 怎样将memo控件中输入的大量汉字按多行打印?
- 调用dll中的窗口问题(急)
- 授人委托,要做个单机版的点歌系统,用视频卡输出到电视。
- 急求一代理服务器的IP地址,通过马上给分!拜托了各位。。。。:)
- 打死韩狗: http://www.fuwu100.com/china.asp
- 关于流文件的读取问题。
- 我怎么才能知道我的Table1里有多少行呀?
- 为什么paradox7生成的数据库文件*.db还会有诸如*.mb,*.px的文件存在,它们分别都是干什么的?
- 待我有程序需要编时便会上来猛问问题,可不要将俺清除出去.
C:\WINDOWS\Start Menu\Programs\启动
就可以了
这个方便,但对客户不太方便
二是直接写在启动菜单里
var
tmpObject : IUnknown;
tmpSLink : IShellLink;
tmpPFile : IPersistFile;
PIDL : PItemIDList;
StartupDirectory : array[0..MAX_PATH] of Char;
LinkFilename : WideString;
bianliang,Path:string;
begin
bianliang:='\'+FileDesc+'.lnk';
tmpObject := CreateComObject(CLSID_ShellLink);//创建建立快捷方式的外壳扩展
tmpSLink := tmpObject as IShellLink; //取得接口
tmpPFile := tmpObject as IPersistFile; //用来储存*.lnk文件的接口
tmpSLink.SetPath(pChar(FileName)); //设定 filename 所在路径
tmpSLink.SetWorkingDirectory(pChar(ExtractFilePath(FileName))); //设定工作目录
begin
SHGetSpecialFolderLocation(0,CSIDL_STARTUP,PIDL); //获得启动中的启动菜单的Itemidlist
Fillchar(startupdirectory,Max_Path+1,0);
SHGetPathFromIDList(PIDL,StartupDirectory); //获得路径
Path:=StartupDirectory;
LinkFilename := path + bianliang;
tmpPFile.Save(pWChar(LinkFilename),FALSE); //保存*.lnk文件
End;
C:\WINDOWS\Start Menu\Programs\启动
就可以了”这种方法呢。
完全同意顶楼意见!