请问富翁:怎样把EXE文件的所在路径,写到EXE文件桌面快捷方式的“起始位置:”栏?(100分)

  • 主题发起人 主题发起人 梅游刃
  • 开始时间 开始时间

梅游刃

Unregistered / Unconfirmed
GUEST, unregistred user!
怎样把EXE文件的所在路径,写到EXE文件桌面“快捷方式”的“起始位置:”栏?
另外:我是用WISE打包!快捷方式是在安装时定制在桌面上的。
是不是在打包的时候把EXE文件的路径写到“起始位置”。怎么做?
又: 如果要在程序里面写应该怎么写?
 
转贴自hubdog的葵花宝典
在桌面创建无小箭头的快捷方式
This article was contributed by Sundar &
Naresh
我们如果要在桌面上建立一个快捷方式,我们通常是用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);
 
应该通过Wise配置就可以了。
如何将你的程序放在Windows启动中:
 
    有时需要让Windows在启动时自动运行你的程序,如何在程序中实现呢?
    使用Regedit查找HKEY_LOCALMACHINE/Sodtware/Microsoft/Windows/CurrentVersion/Run,你会发现所有的Windows启动时调用的程序都在这里,于是你将你的程序增加在这里就可以了.名称为你的程序的标题,其值为你的程序的执行路径和文件名称.
    如Interbase:
     Interbase Server"D:/Program Files/Borland/IntrBase/BIN/ibserver.exe"
 
    在程序中实现可以使用TRegIniFile或者使用TRegistry都可以.
    User Registry;

    Var
        RegF:TRegistry;
    begin

         RegF:=TRegistry.Create;
         RegF.RootKey:=HKEY_LOCAL_MACHINE;
        try
              RegF.OpenKey('SOFTWARE/Microsoft/Windows/CurrentVersion/Run',True);
              RegF.WriteString('Interbase Server',
                                    '"D:/Program Files/Borland/IntrBase/BIN/ibserver.exe"');
               except
                    ...
                end;

                RegF.Close;
                RegF.Free;
    end;


本页版主:傅贵,最后修改日期:98.3.29
 
谢谢!
to:天与地
我也知道用WISE可以配置,只是找不到方法;
to:only you
我还是找不到门,不好意思?!
 
应该有这样的API函数:
比如 HANDLE FindFirstChangeNotification(
LPCTSTR lpPathName, // pointer to name of directory to watch
BOOL bWatchSubtree, // flag for monitoring directory or directory tree
DWORD dwNotifyFilter // filter conditions to watch for
);
或BOOL SetFileAttributes(
LPCTSTR lpFileName, // address of filename
DWORD dwFileAttributes // address of attributes to set
);
来设置属性。
 

Similar threads

回复
0
查看
804
不得闲
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部