怎样获取任一应用程序的绝对路径？？(100分)

driby · 1999-06-07

怎样获取任一应用程序的绝对路径？？例：    已知：Uedit32.exe应用程序存在，要得到    它的绝对路径("C:/Program Files/ULTRAEDT/UEDIT32.EXE")。

tqz · 1999-06-07

如果此程序已经与某个后缀相关连，那么可以使用如下函数： HINSTANCE FindExecutable(     LPCTSTR lpFile,     LPCTSTR lpDirectory,     LPTSTR lpResult ); lpFile ：文件名，可以是文档或执行文件。 lpDirectory ：缺省子目录 lpResult ：返回可执行文件绝对路径 如果没有关联，只好FindFirst/FindNext

D4 · 1999-06-07

用GetModuleFileName函数获取包含指定模块的可执行文件的完整路径和文件名。 Windows 95:  当应用程序版本号高于4.0并且长文件名有效时， GetModuleFilename函数返回长文件名. 否则返回8.3格式的文件名。 DWORD GetModuleFileName(     HMODULE hModule, // 模块句柄     LPTSTR lpFilename, // 缓冲区指针     DWORD nSize         // 缓冲区大小   &nbsp

; 参数hModule 指定需要获取可执行文件名的模块.    如果为Null, GetModuleFileName返回创建调用本函数的进程的文件名. lpFilename 指定存放返回文件名的缓冲区。 nSize指定缓冲区大小在Delphi中使用如下： 刚试过，包怎行！（是李颖说的）

tqz · 1999-06-07

GetModuleFilename是取正在运行的某个模块的文件名。 但是问题要求不是这样。

driby · 1999-06-07

 我用FindExecutable时发现lpDirectory必须指定为某一具体EXE文件的路径才行。不知是否我用正确了，麻烦指教。

Blade · 1999-06-07

不需要呀，我试着是可以的。 var   Path: PChar; begin   Path := AllocMem(260);   FindExecutable('UEdit32.exe', '', Path);   ......   FreeMem(Path); end;

driby · 1999-06-08

　　Blade,我照着你所说的做，怎么发现只能找到"Uedit32.exe"的路径，换另外的EXE文件名就又不行了。我自己都觉得奇怪，你可否试试？？（我还特意注意区分了文件名的大小写，其实我试的其他EXE文件都是放在/Program Files/目录下的）

sly · 1999-06-09

Blade,我也照着你所说的做了，结果跟driby说的一样，请问你还有别的 方法吗？望指教。

Blade · 1999-06-09

不好意思，上来就用UEdit32.exe试了一把，以为OK了呢，换了一个还真不行。 保证正确的话，也许就只能用FindFirst、FindNext剔一遍了。

cAkk · 1999-09-17

当我们、双击一个未知类型的文件扩展名时，windows会打开一个dialog 让我们选取打开该类型文件的程序，凡是在那个对话框里列出来的程序都 可以通过FindExecutable找到原始路径。 至于那个对话框的列表是如何形成的，我还没搞明白，在注册表里也没有。

Pipi. · 1999-12-12

使用API  SearchPath

xWolf · 1999-12-13

to Pipi.   SearchPath的第一个参数:lpPath Points to a null-terminated string that specifies the path to be searched for the file. If this parameter is NULL, the function searches for a matching file in the following directories in the following sequence:   1.The directory from which the application loaded.   2.The current directory.   3.Windows 95: The Windows system directory. Use the GetSystemDirectory function to get the path of this directory.   Windows NT: The 32-bit Windows system directory. Use the   GetSystemDirectory function to get the path of this directory. The name of this directory is SYSTEM32.   4.Windows NT: The 16-bit Windows system directory. There is no Win32 function that obtains the path of this directory, but it is searched. The name of this directory is SYSTEM.   5.The Windows directory. Use the GetWindowsDirectory function to get the path of this directory.   6.The directories that are listed in the PATH environment variable. 所以,若是要找的应用程序不在上述任一路径中, SearchPath也是无能为力

Schiesser · 1999-12-13

kangxy · 1999-12-13

ExpandFileName returns the full path of Filename. Unit SysUtils Category file name utilities function ExpandFileName(const FileName: string): string; Description The ExpandFileName function converts the relative file name into a fully qualified path name by merging in the current drive and directory. A fully qualified path name includes the drive letter and any directory and subdirectories in addition to the file name and extension. ExpandFileName does not verify that the resulting fully qualified path name refers to an existing file, or even that the resulting path exists.

kangxy · 1999-12-13

对不起,浪费大家的带宽,ExpandFilePath是错误的.

Iknow · 1999-12-13

基本上只能是通过findfirst/findnext来查找了. 可以用递归的方法, 一个一个目录找过去, 深度优先. 另外, 我想了一个笨办法, 应该也可行的: 用ShellExecute函数运行 "dir /s/a/b program.exe > c:/result.dir" 然后分析一下result.dir文件就可以了. 这个方法应该是受Windows版本影响的(如果Windows改变了dir的输出格式的话)

kangxy · 1999-12-13

我有一个TFileFinder的控件, 支持包含子目录,模糊查找,等, kxy@csdn.net 来信我发过去.

aWant · 1999-12-15

FindExecutable函数只是根据注册表中/HKEY_LOCAL_MACHINE/Software /Microsoft/Windows/CurrrentVersion/App Paths下的键值来查找。

fee · 1999-12-15

：）

guo_qpeter · 1999-12-19

这么简单的问题不用如此复杂. 如提问者还需要此答案, 发 EMAIL 给我. GUO_LIU@HOTAMIL.COM / GUO_QPETER@263.NET

怎样获取任一应用程序的绝对路径？？(100分)

driby

Unregistered / Unconfirmed

tqz

Unregistered / Unconfirmed

D4

Unregistered / Unconfirmed

tqz

Unregistered / Unconfirmed

driby

Unregistered / Unconfirmed

Blade

Unregistered / Unconfirmed

driby

Unregistered / Unconfirmed

sly

Unregistered / Unconfirmed

Blade

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

Pipi.

Unregistered / Unconfirmed

xWolf

Unregistered / Unconfirmed

Schiesser

Unregistered / Unconfirmed

kangxy

Unregistered / Unconfirmed

kangxy

Unregistered / Unconfirmed

Iknow

Unregistered / Unconfirmed

kangxy

Unregistered / Unconfirmed

aWant

Unregistered / Unconfirmed

fee

Unregistered / Unconfirmed

guo_qpeter

Unregistered / Unconfirmed

Similar threads