在程序中添加（开始菜单和桌面的快接方式）(50分)

confidentbb · 2002-12-23

在程序中添加（开始菜单和桌面的快接方式） 谢谢

delphiland · 2002-12-23

var tmpObject : IUnknown; tmpSLink : IShellLink; tmpPFile : IPersistFile; PIDL : PItemIDList; StartupDirectory : array[0..MAX_PATH] of Char; StartupFilename : String; LinkFilename : WideString; begin StartupFilename := 'c:/windows/notepad.exe'; tmpObject := CreateComObject(CLSID_ShellLink);//创建建立快捷方式的外壳扩展 tmpSLink := tmpObject as IShellLink;//取得接口 tmpPFile := tmpObject as IPersistFile;//用来储存*.lnk文件的接口 tmpSLink.SetPath(pChar(StartupFilename));//设定notepad.exe所在路径 tmpSLink.SetWorkingDirectory(pChar(ExtractFilePath(StartupFilename)));//设定工作目录 SHGetSpecialFolderLocation(0, CSIDL_DESKTOPDIRECTORY, PIDL);//获得桌面的Itemidlist SHGetPathFromIDList(PIDL, StartupDirectory);//获得桌面路径 LinkFilename := StartupDirectory + '/MyNotepad.lnk'; tmpPFile.Save(pWChar(LinkFilename),FALSE);//保存*.lnk文件 end;

ysai · 2002-12-23

//引用ShlObj,ComObj,ActiveX; function CreateShellLink(SAppName:string;SLinkName:string='';IFolder:Integer=0;     SSubFolder:string='';SDescription:string=''):string; //创建快捷方式 {快捷方式文件夹   CSIDL_DESKTOP                       = $0000;   CSIDL_PROGRAMS                      = $0002;   CSIDL_CONTROLS                      = $0003;   CSIDL_PRINTERS                      = $0004;   CSIDL_PERSONAL                      = $0005;   CSIDL_FAVORITES                     = $0006;   CSIDL_STARTUP                       = $0007;   CSIDL_RECENT                        = $0008;   CSIDL_SENDTO                        = $0009;   CSIDL_STARTMENU                     = $000b;   CSIDL_DESKTOPDIRECTORY              = $0010;   CSIDL_FONTS                         = $0014;   CSIDL_TEMPLATES                     = $0015;   CSIDL_COMMON_STARTMENU              = $0016;   CSIDL_COMMON_PROGRAMS               = $0017;   CSIDL_COMMON_STARTUP                = $0018;   CSIDL_COMMON_DESKTOPDIRECTORY       = $0019; } var   SL: IShellLink;   PF: IPersistFile;   FileName: WideString;   FilePath: array[0..MAX_PATH] of char; begin   try     OleCheck(CoCreateInstance(CLSID_ShellLink, nil,         CLSCTX_INPROC_SERVER,IShellLink, SL));     PF:=SL as IPersistFile;     OleCheck(SL.SetPath(PChar(SAppName)));     if SDescription <> '' then       SL.SetDescription(PChar(SDescription));     if SLinkName='' then       SLinkName:=ExtractFileName(SAppName);     SHGetSpecialFolderPath(0,FilePath,IFolder,True);     FileName:=string(FilePath);     if SSubFolder<>'' then     begin       FileName:=FileName+'/'+SSubFolder;       if not DirectoryExists(FileName) then       CreateDir(FileName);     end;     FileName:=FileName+'/'+SLinkName+'.lnk';     PF.Save(PWideChar(FileName), True);     Result:=FileName;   except     Result:='';   end; end; //在桌面创建   CreateShellLink(application.ExeName,'我的APP',$0019);

confidentbb · 2002-12-23

to delphiland IPersistFile 应包含什么文件 开始菜单怎获取路径及使用

delphiland · 2002-12-23

IPersistFile 在 ACTIVEX 单元;

naughtboy · 2002-12-23

在桌面创建无小箭头的快捷方式 我们如果要在桌面上建立一个快捷方式，我们通常是用IShellLink接口来生成一个 .lnk文件。用这种方式创建，我们在桌面上得到的是一个左下方还含有小箭头的图标, 右击它，你会看到正常的弹出菜单（含有复制、粘贴等）。但是你看桌面上IE的快捷 方式，你会看到它是一个正常的图标（没有小箭头），而且弹出菜单也不同。下面我 们来建立一个这种风格的快捷方式。 执行这段代码，你会在桌面上获得一个名叫"Netlinker"的图标，右击它，你会看到一个 定制的菜单（没有剪切、复制、粘贴、重命名等菜单祥）。 你甚至不能把它从桌面上删除，如果你选“属性”，它会打开IE的属性对话框选一个图 标文件 CString shtct_ico=_T("C://32x32.ico"); 显示IE属性对话框. CString shtct_prop=_T("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,0"); 快捷方式的名字 CString shtct_name=_T("Netlinker"); 找到IE的路径并保存它. CRegKey m_Kiepath; CString ie_path; DWORD dwval; m_Kiepath.Open(HKEY_LOCAL_MACHINE,   "SOFTWARE//Microsoft//Windows//"   "CurrentVersion//App Paths//IEXPLORE.EXE"); m_Kiepath.QueryValue(ie_path.GetBuffer(1000),   NULL,   &dwval); m_Kiepath.Close(); CString shtct_to=ie_path; 用guidgen.exe创建一个GUID并复制粘贴到这里。这是用来表现我们的快捷方式和它的 菜单项的。我用guidgen.ext创建的GUID是6270AEE4-AA41-11d4-A25D-008048B63F94。 下面的程序在HKCR/CLSID创建这个 GUID 键，并且将快捷方式的值设为它。 CRegKey m_kdsktp; m_kdsktp.Create(HKEY_CLASSES_ROOT,   "CLSID//{6270AEE4-AA41-11d4-A25D-"   "008048B63F94}"); m_kdsktp.SetValue(shtct_name); m_kdsktp.Close(); 在这个GUID下创建DefaultIcon 键, 它是用来表现快捷方式的图标的并把他的值设为 相应的图标文件的路径. m_kdsktp.Create(HKEY_CLASSES_ROOT,   "CLSID//{6270AEE4-AA41-11d4-A25D"   "-008048B63F94}//DefaultIcon"); m_kdsktp.SetValue(shtct_ico); m_kdsktp.Close(); 设置右击菜单的菜单项. 设置打开菜单项 m_kdsktp.Create(HKEY_CLASSES_ROOT,   "CLSID//{6270AEE4-AA41-11d4-A25D-"   "008048B63F94}//Shell//Open//Command"); m_kdsktp.SetValue(shtct_to); m_kdsktp.Close(); 设置属性菜单项. m_kdsktp.Create(HKEY_CLASSES_ROOT,   "CLSID//{6270AEE4-AA41-11d4-A25D-"   "008048B63F94}//Shell//Properties//Command"); m_kdsktp.SetValue(shtct_prop); m_kdsktp.Close(); 把原来的缺省菜单项（如复制粘贴等）去掉. BYTE *b; HANDLE heap; char a[20]; m_kdsktp.Create(HKEY_CLASSES_ROOT,   "CLSID//{6270AEE4-AA41-11d4-A25D-"   "008048B63F94}//ShellFolder"); strcpy(a,"00.00.00.00"); heap=HeapCreate(0,0,0); b=(BYTE*)HeapAlloc(heap,0,30); sscanf(a,   "%x.%x.%x.%x",   &b[0],   &b[1],   &b[2],   &b[3]); RegSetValueEx(m_kdsktp.m_hKey,  "Attributes",   0,REG_BINARY,b,4); HeapFree(heap, 0, b); HeapDestroy(heap); m_kdsktp.Close(); 接下来我们添加一个引用到 HKLM/SOFTWARE/Microsoft/Windows/CurrentVersion/Explorer/Desktop/Namespace 这样它将只显示在桌面上。 m_kdsktp.Create(HKEY_LOCAL_MACHINE,   "SOFTWARE//Microsoft//Windows//"   "CurrentVersion//Explorer//Desktop//"   "NameSpace//{6270AEE4-AA41-11d4-A25D-"   "008048B63F94}"); m_kdsktp.SetValue("Netlink"); m_kdsktp.Close(); 我们对Shell作了改动，我们要通知系统，这个改动才会马上表现出来. SHChangeNotify(SHCNE_ASSOCCHANGED,SHCNF_FLUSHNOWAIT, 0, 0);

jsxjd · 2002-12-23

没仔细看，上面的应该都不错。

xiaolin0522 · 2002-12-24

zhoufujin · 2002-12-24

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, Registry, ActiveX, ShlObj, ComObj, StdCtrls; type   ShortcutType = (_DESKTOP, _QUICKLAUNCH, _SENDTO, _STARTMENU, _PROGRAMS); type   TForm1 = class(TForm)     Button1: TButton;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; procedure CreateShortcut(SourceFileName: string; Location: ShortcutType; SubDirectory: string); implementation {$R *.dfm} procedure CreateShortcut(SourceFileName: string; Location: ShortcutType; SubDirectory: string); var   MyObject: IUnknown;   MySLink: IShellLink;   MyPFile: IPersistFile;   Directory, LinkName, TempStr: string;   WFileName: WideString;   MyReg, QuickLaunchReg: TRegIniFile; begin   MyObject := CreateComObject(CLSID_ShellLink);   MySLink := MyObject as IShellLink;   MyPFile := MyObject as IPersistFile;   MySLink.SetPath(PChar(SourceFileName));   MyReg := TRegIniFile.Create('Software/MicroSoft/Windows/CurrentVersion/Explorer');   try     LinkName := ChangeFileExt(SourceFileName, '.lnk');     LinkName := ExtractFileName(LinkName);     case Location of       _DESKTOP: Directory := MyReg.ReadString('Shell Folders', 'Desktop', '');       _STARTMENU: Directory := MyReg.ReadString('Shell Folders', 'Start Menu', '');       _SENDTO: Directory := MyReg.ReadString('Shell Folders', 'SendTo', '');       _PROGRAMS: Directory := MyReg.ReadString('Shell Folders', 'Programs', '');       _QUICKLAUNCH:         begin           QuickLaunchReg := TRegIniFile.Create('Software/MicroSoft/Windows/CurrentVersion/GrpConv');           try             Directory := QuickLaunchReg.ReadString('MapGroups', 'Quick Launch', '');           finally             QuickLaunchReg.Free;           end;         end;     end;     TempStr := Directory;     if Location = _PROGRAMS then Directory := Directory + '/' + SubDirectory;     if (Location = _PROGRAMS) and (TempStr <> Directory) then      if not DirectoryExists(Directory) then       if not ForceDirectories(Directory) then Directory := TempStr;       WFileName := Directory + '/' + LinkName;       MyPFile.Save(PWChar(WFileName), False);   finally     MyReg.Free;   end; end; procedure TForm1.Button1Click(Sender: TObject); begin //CreateShortcut('C:/VipProgram/VipBrowserWeb_OCR/VipBrowser.exe',_STARTMENU,''); //CreateShortcut('C:/VipProgram/VipBrowserWeb_OCR/VipBrowser.exe',_DESKTOP,''); //CreateShortcut('C:/VipProgram/VipBrowserWeb_OCR/VipBrowser.exe',_SENDTO,''); //CreateShortcut('C:/VipProgram/VipBrowserWeb_OCR/VipBrowser.exe',_QUICKLAUNCH,''); CreateShortcut('C:/VipProgram/VipBrowserWeb_OCR/VipBrowser.exe', _PROGRAMS, 'Folder/SubFolder'); end; end.

在程序中添加（开始菜单和桌面的快接方式）(50分)

confidentbb

Unregistered / Unconfirmed

delphiland

Unregistered / Unconfirmed

ysai

Unregistered / Unconfirmed

confidentbb

Unregistered / Unconfirmed

delphiland

Unregistered / Unconfirmed

naughtboy

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

xiaolin0522

Unregistered / Unconfirmed

zhoufujin

Unregistered / Unconfirmed

Similar threads