uses PSAPI, SysUtils;

function GetModulesFromProcessID(ProcessID: THandle): String;
var hProcess: THandle;
  NeededBytes: DWORD;
  phModule: PDWORD;
  ModuleName: array[0..1024] of Char;
begin
  Result := '';
  hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, ProcessID);
  if hProcess <> 0 then
  begin
    try
      phModule := nil;
      if EnumProcessModules(hProcess, phModule, 0, NeededBytes) then
      begin
        GetMem(phModule, NeededBytes);
        try
          if EnumProcessModules(hProcess, phModule, NeededBytes, NeededBytes) then
          begin
               if GetModuleFileNameEx(hProcess, phModule^, @ModuleName, SizeOf(ModuleName)) > 0 then
                  Result:=ModuleName;
          end;
        finally
          FreeMem(phModule);
        end;
      end;
    finally
      CloseHandle(hProcess);
    end;
  end;
end;

function GetModulesFromWindowHandle(hWND: HWND): String;
var ProcessID: THandle;
begin
  Result := '';
  if GetWindowThreadProcessId(hWND, ProcessID) <> 0 then 
     Result := GetModulesFromProcessID(ProcessID);
end;