怎么创建快捷方式和在win菜单里添加菜单项？？？？
？？？？ 问题点数：20、回复次数：4Top
1 楼xjpiking（king）回复于 2002-04-01 11:23:12 得分 0
真么没有人回答？在线，解决就给分。Top
2 楼zgh1688（zhou）回复于 2002-04-01 11:30:53 得分 20
Var
ff:textfile;
MyObject : IUnknown ;
MySLink : IShellLink ;
WFileName: WideString ;
MyReg : TRegIniFile ;
Directory,FileName,path1: String ;
MyPFile : IPersistFile ;
sp1,sp2:pchar;
StartupDirectory : array[0..MAX_PATH] of Char;
PIDL : PItemIDList;
tmpObject : IUnknown;
begin
MyObject:=CreateComObject(CLSID_ShellLink ) ;
MySLink := MyObject As IShellLink ;
MyPFile := MyObject As IPersistFile ;
FileName:=Edit1.Text+'\wbgl.exe' ;
With MySlink do
begin
SetPath( PChar(FileName));
SetWorkingDirectory(pChar(ExtractFilePath(FileName)));
end ;
tmpObject := CreateComObject(CLSID_ShellLink);
SHGetSpecialFolderLocation(0,CSIDL_DESKTOPDIRECTORY,PIDL);
SHGetPathFromIDList(PIDL,StartupDirectory);
path1:=StartupDirectory;
path1:=copy(path1,1,length(path1)-5)+'\「开始」菜单\程序';
forcedirectories(path1+'\通用网吧管理系统');
MyReg :=TRegIniFile.Create( 'SoftWare\MicroSoft\Windows\CurrentVersion\Explorer' ) ;
Directory := MyReg.ReadString('Shell Folders' , 'Desktop' , ' ' ) ;
WFileName:=StartupDirectory+'\通用网吧收费管理.lnk';
MyPFile.Save( PWChar( WFileName ) , False ) ;
MyReg.Free;
CopyFile(pchar(StartupDirectory+'\通用网吧收费管理.lnk'),pchar(path1+'\通用网吧管理系统\通用网吧收费管理.lnk'),true);Top
3 楼xjpiking（king）回复于 2002-04-01 11:47:20 得分 0
出错！！
[Error] Unit1.pas(30): Undeclared identifier: 'IShellLink'
[Error] Unit1.pas(32): Undeclared identifier: 'TRegIniFile'
[Error] Unit1.pas(34): Undeclared identifier: 'IPersistFile'
[Error] Unit1.pas(37): Undeclared identifier: 'PItemIDList'
[Error] Unit1.pas(40): Undeclared identifier: 'CreateComObject'
[Error] Unit1.pas(40): Undeclared identifier: 'CLSID_ShellLink'
...........................
是怎么回事？？？Top
4 楼xjpiking（king）回复于 2002-04-01 13:33:39 得分 0
回答呀！Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
