PID获取窗口句柄在64位程序出错

[Y.A.K.E]

我想做一个枚举进程,进程名,然后对应窗口句柄,标题的东西.


在PID获取窗口句柄这个块,在32位程序中,是正常的,但是64位程序中,是无法获取到的.还会报错.

function GetHWndByPID(const hPID: THandle): THandle;
type
PEnumInfo = ^TEnumInfo;
TEnumInfo = record
ProcessID: DWORD;
HWND: THandle;
end;

function EnumWindowsProc(Wnd: DWORD; var EI: TEnumInfo): Bool; stdcall;
var
PID: DWORD;
begin
GetWindowThreadProcessID(Wnd, @PID);
Result := (PID <> EI.ProcessID) or
(not IsWindowVisible(WND)) or
(not IsWindowEnabled(WND));

if not Result then EI.HWND := WND;
end;

function FindMainWindow(PID: DWORD): DWORD;
var
EI: TEnumInfo;
begin
EI.ProcessID := PID;
EI.HWND := 0;
EnumWindows(@EnumWindowsProc, Integer(@EI));
Result := EI.HWND;
end;
begin
if hPID<>0 then
Result:=FindMainWindow(hPID)
else
Result:=0;
end;

在64位调试下(我用的是xe10.2 ) , EnumWindowsProc 这个函数下断点.
会发现EI结构传入的pid是0 ,跑着跑着EI结构还会指向一个异常位置.



后面我不用结构,
直接用全局变量,
也是只能在32位程序上工作,无法在64位获得句柄

function FindMainWindow(AProcessID: DWORD): THandle;
var

  test_a:boolean;

  function IsMainWindow(AHandle: HWND): BOOL;
  begin
    Result :=(GetWindow(AHandle, GW_OWNER) = 0) and (IsWindowVisible(AHandle));
  end;

  function fFindMainWindow(tmphWnd: DWORD; lParam: integer=0): BOOL; stdcall;
  var
    vProcessID: DWORD;
  begin
    GetWindowThreadProcessId(tmphWnd, addr(vProcessID));
    //and IsMainWindow(hWnd)

    if (fun_var_pid = vProcessID)  then
    begin
      fun_var_hwd := tmphWnd;
      Result := false;
    end else Result := True;
  end;
begin


  fun_var_pid:= AProcessID;
  fun_var_hwd:= 0 ;

  test_a:=EnumWindows(addr(fFindMainWindow),0);


  Result := fun_var_hwd;
end;

我研究了一天,不知道到底是什么原因,希望知道的大佬指点下.

[日立奔腾浪潮微软松下联想]

lParam: long_ptr

[Y.A.K.E]

找到问题所在了
用于枚举函数在X64上不能放函数内部.

[悟空不是齐天大圣]

老兄，怎么修改解决的能发一下嘛？ 谢谢！