请问如何知道程序是从什么地方运行的？

我想请教各位两个问题：
1、能否知道程序是从什么地方运行的？
假设我有个程序叫a.exe，放在C:\，它在D:\中有个快捷方式，能不能实现这样一个功能：就是双击运行C:\中的a.exe，弹出对话框“程序从C:\运行”，双击运行D:\中的a.exe快捷方式，弹出对话框“程序从D:\运行”。
（我用Application.ExeName只能得到C:\a.exe，而不论是如何运行的）
2、如何知道程序安装后在“开始”-“程序”中的什么地方，也就是安装后快捷方式存放位置的绝对路径。（前提是用一般的安装程序如Inno制作的安装包）
谢谢各位大侠了。

解决方案 »

  1.   

    但是即便你通过多少个快界方式运行，最后还是运行那个真正的exe，不知道这样做有什么意义，
    帮你顶
      

  2.   

    我也没怎么懂你的意思^_^
    应该可以用GetCurrentDir来做比如
    Caption := GetCurrentDir;
      

  3.   

    不可能.快捷方式只是帮助WINDOWS系统找到你的程序.
      

  4.   

    首先谢谢各位！！！
    GetCurrentDir得到的还是程序的真正位置，所以不行。这两个问题都是要求在程序中得到，问题1可能很麻烦，问题2不知道哪位大侠能指点一下（不要告诉我要遍历整个“程序”菜单呀）。
      

  5.   


    在Delphi中操作快捷方式  快捷方式减少了系统的重复文件，是快速启动程序或打开文件或文件夹的方法，快捷方式对经常使用的程序、文件和文件夹非常有用。在Windows系统中，充斥着大量的快捷方式，那么如何操作这些快捷方式就是一个很头疼的问题，在Windows的编程中，无疑会经常碰到操作快捷方式文件的问题，例如为程序创建快捷方式，修改程序的快捷方式等等。为了操作快捷方式，本人封装了两个函数，而且给出了一个详细的例子。 1.         快捷方式文件的基本信息  快捷方式包含的信息有：目标文件名、程序运行时的参数、快捷键、运行窗口的状态、描述、工作目录（起始位置）、图标文件名和图标索引等等。我们在操作快捷方式时，就要考虑到这些信息。2.         数据结构  为了方便快捷地进行操作，有必要定义一个数据结构，以便在函数调用时传递必要的信息：const CCH_MAXNAME=255;              //描述的缓冲区的大小LNK_RUN_MIN=7;                 //运行时最小化LNK_RUN_MAX=3;                //运行是最大化LNK_RUN_NORMAL=1;            //正常窗口type LINK_FILE_INFO=record         FileName:array[0..MAX_PATH] of char;              //目标文件名         WorkDirectory:array[0..MAX_PATH] of char;          //工作目录或者起始目录         IconLocation:array[0..MAX_PATH] of char;           //图标文件名         IconIndex:integer;                                //图标索引         Arguments:array[0..MAX_PATH] of char;             //程序运行的参数         Description:array[0..CCH_MAXNAME] of char;       //快捷方式的描述         ItemIDList:PItemIDList;                           //只供读取使用         RelativePath:array[0..255] of char;                   //相对目录，只能设置         ShowState:integer;                               //运行时的窗口状态         HotKey:word;                                   //快捷键     end;3.         函数  1)取得快捷方式或者修改信息函数LinkFileInfo要注意的是，需要在Uses部分添加comobj,activex,shlobj这三个单元，但是在本文例子中因为要转化热键为文本和使用Windows的API ShellExecute，所以还要添加Menus 和ShellApi单元。同时对异常处理不够完美，在使用时大家可以根据实际情况进行修改。说明：函数有三个参数，其中第一个参数为要进行处理的快捷方式的文件名，第二个为LINK_FILE_INFO的结构，用于接收信息或者输入信息对快捷方式进行修改，第三个参数表明是读取快捷方式的信息还是设置快捷方式的信息。函数成功时返回true，否则为false。原型：function LinkFileInfo(const lnkFileName:string;var info:LINK_FILE_INFO;const bSet:boolean):boolean;var hr:hresult; psl:IShelllink; wfd:win32_find_data; ppf:IPersistFile; lpw:pwidechar; buf:pwidechar;begin result:=false; getmem(buf,MAX_PATH); try if SUCCEEDED(CoInitialize(nil)) then if (succeeded(cocreateinstance(clsid_shelllink,nil,clsctx_inproc_server,IID_IShellLinkA,psl))) then begin   hr:=psl.QueryInterface(iPersistFile,ppf);   if succeeded(hr) then   begin     lpw:=stringtowidechar(lnkfilename,buf,MAX_PATH);     hr := ppf.Load(lpw, STGM_READ);     if succeeded(hr) then     begin       hr := psl.Resolve(0, SLR_NO_UI);       if succeeded(hr) then       begin         if bSet then         begin           psl.SetArguments(info.Arguments);           psl.SetDescription(info.Description);           psl.SetHotkey(info.HotKey);           psl.SetIconLocation(info.IconLocation,info.IconIndex);           psl.SetIDList(info.ItemIDList);           psl.SetPath(info.FileName);           psl.SetShowCmd(info.ShowState);           psl.SetRelativePath(info.RelativePath,0);           psl.SetWorkingDirectory(info.WorkDirectory);           result:=succeeded(psl.Resolve(0,SLR_UPDATE));         end         else         begin           psl.GetPath(info.FileName,MAX_PATH, wfd,SLGP_SHORTPATH );           psl.GetIconLocation(info.IconLocation,MAX_PATH,info.IconIndex);           psl.GetWorkingDirectory(info.WorkDirectory,MAX_PATH);           psl.GetDescription(info.Description,CCH_MAXNAME);           psl.GetArguments(info.Arguments,MAX_PATH);           psl.GetHotkey(info.HotKey);           psl.GetIDList(info.ItemIDList);           psl.GetShowCmd(info.ShowState);           result:=true;         end;       end;     end;   end;end; finally freemem(buf); end;end;  2)建立快捷方式函数CreateLinkFile说明：第一个参数为一个LINK_FILE_INFO结构，你必须进行初始化，第二个参数为要保存快捷方式的文件名，默认为相同目录下的同名的LNK文件。原型：function CreateLinkFile(const info:LINK_FILE_INFO;const DestFileName:string=''):boolean;var anobj:IUnknown; shlink:IShellLink; pFile:IPersistFile; wFileName:widestring;begin wFileName:=destfilename; anobj:=CreateComObject(CLSID_SHELLLINK); shlink:=anobj as IShellLink; pFile:=anobj as IPersistFile; shlink.SetPath(info.FileName); shlink.SetWorkingDirectory(info.WorkDirectory); shlink.SetDescription(info.Description); shlink.SetArguments(info.Arguments); shlink.SetIconLocation(info.IconLocation,info.IconIndex); shlink.SetHotkey(info.HotKey); shlink.SetShowCmd(info.ShowState); shlink.SetRelativePath(info.RelativePath,0); if DestFileName='' then  wFileName:=ChangeFileExt(info.FileName,'lnk'); result:=succeeded(pFile.Save(pwchar(wFileName),false));end; 3)函数ShortCutToString用于将快捷方式中的热键转化成字符串，以便于显示，Delphi本身没有提供将相关的函数。function ShortCutToString(const HotKey:word):string;var shift:tshiftstate;begin  shift:=[];  if ((wordrec(HotKey).hi shr 0) and 1)<>0 then     include(shift,ssshift);  if ((wordrec(HotKey).hi shr 1) and 1)<>0 then     include(shift,ssctrl);  if ((wordrec(HotKey).hi shr 2) and 1)<>0 then     include(shift,ssalt);  result:=shortcuttotext(shortcut(wordrec(hotkey).lo,shift));end; 4.         调用实例：  新建一个Application，在窗体上放置一个OpenDialog，三个Button，一个Edit，设置OpenDialog的属性Option部分的ofNoDereferenceLinks为true，Filter属性为lnk file|*.lnk；然后为Button1、Button2和Button3分别添加如下代码（注意修改相应的文件名称和路径）：procedure TForm1.Button1Click(Sender: TObject);varinfo:LINK_FILE_INFO;beginif opendialog1.Execute then if LinkFileInfo(opendialog1.FileName,info) then  begin  showmessage('FileName:'+info.filename+#13+'Description:'+info.Description+#13+'IconFilename:'+info.IconLocation+','+inttostr(info.IconIndex)+#13+'WorkDir:'+info.WorkDirectory+#13+'Arguments:'+info.Arguments+#13+'ShorCuts:'+shortcuttostring(info.HotKey)+#13+'WindowState:'+inttostr(info.ShowState)+#13+'ItemIDList:('+inttostr(info.itemidlist.mkid.cb)+',('+inttostr(info.itemidlist.mkid.abid[0])+'))');  info.WorkDirectory:=edit1.text;linkfileinfo(opendialog1.filename,info,true);  end;end; procedure TForm1.Button2Click(Sender: TObject);beginshellexecute(handle,'open','start.exe','c:\windows\desktop\aaa.lnk','',sw_hide);end; procedure TForm1.Button3Click(Sender: TObject);varinfo:LINK_FILE_INFO;beginstrpcopy(info.filename,paramstr(0));      //快捷方式的目标文件名info.Arguments:='/paramstr';            //设置程序运行的参数info.Description:='Test For Link File';     //描述info.HotKey:=0;                      //没有热键info.IconIndex:=0;                    //第一个图标info.IconLocation:='';                  //设置图标文件为本身info.RelativePath:='windows';           //相对路径info.ShowState:=LNK_RUN_MAX;           //显示最大化窗口info.ItemIDList:=nil;          //保留未用，可以不设置strpcopy(info.WorkDirectory,extractfilepath(paramstr(0))); //设置工作目录createLinkFile(info,'c:\windows\desktop\project.lnk');   //建立快捷方式end;5. 快捷方式的运行
      有两种方法：
      第一种比较简单，直接调用即可，但是受到一些制约—系统中必须存在start.exe文件：
    ShellExecute(handle,'open','start.exe','c:\windows\desktop\aaa.lnk','',sw_hide);
      第二种就是
      

  6.   

    winxkm(蹩脚的程序员)大侠贴的东东虽然不错，但好象和这个问题没什么联系，不过也得谢谢。
      

  7.   

    你可以看看陈省的‘Delphi 深度探索’里面的shell部分。
    http://act.it.sohu.com/book/serialize.php?id=82
      

  8.   

    插入其进程,然后GetModuleFileName之