有没有办法编程实现直接在 我的电脑 下面增加个快捷方式 1.有没有办法编程实现直接在 我的电脑 下面增加个快捷方式使选择这个图标能打开我的程序。是直接在我的电脑下,而不是在桌面或开始程序菜单了。很想知道那位大哥做过. 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在這下面操作HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace應該是一個shell 擴展, 一時找不到代碼 應該就是你要的了http://hubdog.csdn.net/Hubdog/namespace.htmconst // 设定我们的扩展位于我的电脑下面 NamespaceKey='SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\Namespace\'; // 在NT上需要设定的注册表项 ApproveKey='SOFTWARE\Microsoft\Windows\CurrentVersion\Shell Extensions\Approved\'; var Temp, ClsID: string; Value: DWORD; begin ClsID := GUIDToString(ClassID); inherited UpdateRegistry(Register); if Register then begin Temp := GetShortPath(ComServer.ServerFileName); CreateRegKey('CLSID\' + ClsID + '\' + ComServer.ServerKey, '', Temp); if Win32Platform = VER_PLATFORM_WIN32_NT then CreateRegKeyEx(ApproveKey, ClsId, PChar(Description), REG_SZ, Length(Description) + 1, HKEY_LOCAL_MACHINE); CreateRegKeyEx('CLSID\' + ClsId + '\InProcServer32\', 'ThreadingModel', 'Apartment'#0, REG_SZ, 10, HKEY_CLASSES_ROOT); // 本扩展所属节点为‘我的电脑' CreateRegKeyEx(NameSpaceKey + ClsId, '', PChar(Description), REG_SZ, Length(Description) + 1, HKEY_LOCAL_MACHINE); Value := SFGAO_FOLDER;// or SFGAO_HASSUBFOLDER; CreateRegKeyEx('CLSID\' + ClsId + '\ShellFolder\', 'Attributes', @Value, REG_BINARY, SizeOf(DWORD), HKEY_CLASSES_ROOT); // 使用DLL的缺省图标 CreateRegKey('CLSID\' + ClsId + '\DefaultIcon', '', Temp + ',0'); end else begin // 删除节点 RegDeleteKey(HKEY_LOCAL_MACHINE, PChar(NameSpaceKey + ClsId)); if Win32Platform = VER_PLATFORM_WIN32_NT then DeleteRegValue(ApproveKey, ClsId, HKEY_LOCAL_MACHINE); end; 楼上的朋友,还想请教一个问题。如果做一个和GMail Drive shell extension 或国内的Vdisk 类似的网络硬盘功能.在本地会出现一个盘符,象操作本地文件一样完成增加,删除,拷贝。应该怎样一个思路。如何去做,要做一个文件系统驱动吗。做这样的东西需要做那些方面。 >>如果做一个和GMail Drive shell extension 或国内的Vdisk 类似的网络硬盘功能.GMail Drive 作者在他的網站上有說大概的開發思路, <<開發高手>>, 去年的最後一期, 也有一個作者說他的開發思路 如果我只想有个快捷方式,选择他能启动另外我的程序. 程序可能是.exe的.有什么简单的方法. 我现在正在做这个,呵呵用的是shell Ex! 如何使用Delphi读取Word文档的数据 CameraDll.dll组件截屏的问题 关于OLap的问题 如何给ocx控件添加一个具有返回值的方法? 关于全角半角字体转换的问题------急死了,急急急! Delphi用DirectShow做播放器播放DVD,如何切换音轨呢? 请帮忙!!! 一个有关rave报表的问题. 源碼被鎖定??? DELPHI怎样检查病毒? 请问如何在Delphi调用Word中的预览打印功能? 关于多表头DBGridEh导出Excel文件的问题
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace應該是一個shell 擴展, 一時找不到代碼
http://hubdog.csdn.net/Hubdog/namespace.htmconst // 设定我们的扩展位于我的电脑下面 NamespaceKey='SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\Namespace\'; // 在NT上需要设定的注册表项 ApproveKey='SOFTWARE\Microsoft\Windows\CurrentVersion\Shell Extensions\Approved\'; var Temp, ClsID: string; Value: DWORD; begin ClsID := GUIDToString(ClassID); inherited UpdateRegistry(Register); if Register then begin Temp := GetShortPath(ComServer.ServerFileName); CreateRegKey('CLSID\' + ClsID + '\' + ComServer.ServerKey, '', Temp); if Win32Platform = VER_PLATFORM_WIN32_NT then CreateRegKeyEx(ApproveKey, ClsId, PChar(Description), REG_SZ, Length(Description) + 1, HKEY_LOCAL_MACHINE); CreateRegKeyEx('CLSID\' + ClsId + '\InProcServer32\', 'ThreadingModel', 'Apartment'#0, REG_SZ, 10, HKEY_CLASSES_ROOT); // 本扩展所属节点为‘我的电脑' CreateRegKeyEx(NameSpaceKey + ClsId, '', PChar(Description), REG_SZ, Length(Description) + 1, HKEY_LOCAL_MACHINE); Value := SFGAO_FOLDER;// or SFGAO_HASSUBFOLDER; CreateRegKeyEx('CLSID\' + ClsId + '\ShellFolder\', 'Attributes', @Value, REG_BINARY, SizeOf(DWORD), HKEY_CLASSES_ROOT); // 使用DLL的缺省图标 CreateRegKey('CLSID\' + ClsId + '\DefaultIcon', '', Temp + ',0'); end else begin // 删除节点 RegDeleteKey(HKEY_LOCAL_MACHINE, PChar(NameSpaceKey + ClsId)); if Win32Platform = VER_PLATFORM_WIN32_NT then DeleteRegValue(ApproveKey, ClsId, HKEY_LOCAL_MACHINE); end;
如果做一个和GMail Drive shell extension 或国内的Vdisk 类似的网络硬盘功能.
在本地会出现一个盘符,象操作本地文件一样完成增加,删除,拷贝。应该怎样一个思路。
如何去做,要做一个文件系统驱动吗。做这样的东西需要做那些方面。
GMail Drive 作者在他的網站上有說大概的開發思路, <<開發高手>>, 去年的最後一期, 也有一個作者說他的開發思路
有什么简单的方法.