[英]How to get path of current active application window?
我想获取当前活动窗口的可执行文件的路径。
我试过了:
var
WindowModuleFileName : array[0..100] of Char;
sourceWindow: Hwnd;
begin
sourceWindow := GetActiveWindow;
GetWindowModuleFileName(sourceWindow, PChar(WindowModuleFileName), sizeof(WindowModuleFileName));
ShowMessage(WindowModuleFileName);
end;
但是只有当我的应用程序窗口处于活动状态时,它才返回正确答案。 我究竟做错了什么?
如GetModuleFileName MSDN上所述,您不能使用GetWindowModuleFileName
来查找您自己进程以外的其他进程的文件:
检索包含指定模块的文件的标准路径。 该模块必须已被当前进程加载。
要查找由另一个进程加载的模块的文件,请使用GetModuleFileNameEx函数。
因此,您必须将GetModuleFileNameEx
与GetWindowThreadProcessId
/ GetForegroundWindow
结合使用。 这将返回您所需的内容:
uses
Winapi.Windows, Winapi.PsAPI, System.SysUtils;
function GetCurrentActiveProcessPath: String;
var
pid : DWORD;
hProcess: THandle;
path : array[0..4095] of Char;
begin
GetWindowThreadProcessId(GetForegroundWindow, pid);
hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, FALSE, pid);
if hProcess <> 0 then
try
if GetModuleFileNameEx(hProcess, 0, @path[0], Length(path)) = 0 then
RaiseLastOSError;
result := path;
finally
CloseHandle(hProcess);
end
else
RaiseLastOSError;
end;
GetActiveWindow
将窗口句柄获取到仅属于调用线程的活动窗口。
您需要使用GetForegroundWindow()
函数而不是GetActiveWindow()
。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.