Delphi（64 位）

Delphi（64 位）

说明

Delphi 用 CreateOleObject 创建自动化对象，工程选 Win64 目标平台，需先注册 DLL。

完整调用示例（整段复制即可运行）

// 需先注册：管理员 + 64位 regsvr32 注册 x64Game-Plug.dll





// 工程 -> 目标平台 选 64 位（Win64），uses ComObj, ActiveX





uses ComObj, ActiveX;





var





  plug: OleVariant;





  hwnd: Int64;





  pid: Integer;





  title: WideString;





begin





  CoInitialize(nil);





  try





    plug := CreateOleObject('x64Game.Plug');





    // 收费命令先授权：plug.SetUsername('U12-XXXXXXXXXXXXXXXX');





    hwnd := plug.FindWindow('', '记事本');





    pid  := plug.GetWindowProcessId(hwnd);





    title := plug.GetWindowTitle(hwnd);





    Writeln('hwnd = ', hwnd, ' pid = ', pid, ' title = ', title);





  finally





    plug := Unassigned;





    CoUninitialize;





  end;





end.

常见注意事项

• 工程 目标平台选 64 位（Win64），XE2 及以上支持。
• 需先用管理员 + 64 位 regsvr32 注册 x64Game-Plug.dll。
• Int64 承接 hyper 窗口句柄；retval 直接接收，不传入参。
• 字符串用单引号；调用前 CoInitialize，结束 CoUninitialize。