Получить имя процесса, по хандлу окна

← →
Progh (2005-01-31 08:50) [0]

Как получить имя процесса, по хандлу окна ?

← →
alpet (2005-01-31 11:25) [1]

Довольно просто.
Сначала получи id процесса функцией GetWindowThreadProcessId.
Потом с помощью функций CreateToolhelp32Snapshot, Process32First,
Process32Next создай список процессов, среди них по id можно отыскать и процесс, у которого есть и имя и название файла.

← →
DVM © (2005-01-31 13:36) [2]

function _GetProcessFileNameByWindowHandle(Wnd: HWND): string;
var
hProcess: THandle;
PID: Cardinal;
FileName: array [1..MAX_PATH] of char;
PE: TProcessEntry32;
Snap: Cardinal;
OsVerInfo: TOSVersionInfo;
begin
Result := "";
GetWindowThreadProcessId(Wnd, @PID);
hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, false, PID);
OsVerInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
if GetVersionEx(osVerInfo) then
begin
if OsVerInfo.dwPlatformId = VER_PLATFORM_WIN32_NT then
begin
ZeroMemory(@Filename[1], SizeOf(Filename));
GetModuleFileNameEx(hProcess, 0, @Filename[1], SizeOf(Filename));
Result := FileName;
end
else
begin
Snap := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);
if Snap <> -1 then
begin
PE.dwSize:=SizeOf(PE);
if Process32First(Snap, PE) then
repeat
if PE.th32ProcessID = PID then Result := PE.szExeFile;
until not Process32Next(Snap, PE);
end;
end;
end;
CloseHandle(hProcess);
end;

← →
Digitman © (2005-01-31 13:57) [3]

repeat
if PE.th32ProcessID = PID then
begin
Result := PE.szExeFile;
Break;
end;
until not Process32Next(Snap, PE);

← →
Eraser © (2005-01-31 14:36) [4]

Можно после поучени дескритора процесса

GetWindowThreadProcessId(Wnd, @PID);
hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, false, PID);

воспользоваться функцией GetModuleFileName.

← →
BiN © (2005-01-31 15:11) [5]

Eraser © (31.01.05 14:36) [4]

Можно после поучени дескритора процесса
воспользоваться функцией GetModuleFileName.

Нет, нельзя.
А вот воспользоваться функцией GetModuleFileNameEx можно.

← →
DVM © (2005-01-31 15:36) [6]

> Digitman © (31.01.05 13:57) [3]

> Break;

да, так лучше :)

BiN ©
А почему нельзя???
С dll работала точно, не знаю как с EXE, но в справке не указано какие именно модули, там написано исполняемые модули.

Получить имя процесса, по хандлу окна Найти похожие ветки