不好意思，问题问得有错误，想知道其它运行程序的安装目录

[benmo2000]

刚才的问题问得有些不太对头，我是想通过Delphi程序来截取其它应用程序的安装目录，且该应用程序已被最小化到任务栏。


对于刚才回答问题的两位大侠表示感谢。

[hjd_cw]

function GetModuleFileNameByHandle(Handle : hwnd) : string;
var
hwnd_snapshot : hwnd;
HostThreadID : dword;
dw_temp : dword;
HostProcessID : Pointer;
lpme : TModuleEntry32;
begin
dw_temp := 10000000;
new(HostProcessID);
HostProcessID := addr(dw_temp);
HostThreadID := GetWindowThreadProcessId(handle,HostProcessID);
hwnd_snapshot := CreateToolhelp32Snapshot(TH32CS_SNAPMODULE,dword(HostProcessID^));
lpme.dwSize := sizeOf(lpme);
Module32First(Hwnd_Snapshot,lpme);
result := trim(string(lpme.szExePath));
end;

[benmo2000]

我在运行时，系统提示说TModuleEntry32这个没有定义，请问一下是怎么一回事。

[hjd_cw]

use TLHelp32