delphi 如何获取其它应用程序窗体中的所有控件句柄

实现原理是启动一个应用程序，通过ProcessID得到窗体句柄，然后对其设定父窗体句柄为本程序某控件句柄(本例是窗体内一个Panel的句柄)，这样就达成了内嵌的效果。

新建窗体，上面放置一个Panel控件，名为pnlApp，然后按下面代码编写：

unit frmTestEmbedApp;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls;

type

TForm1 = class(TForm)

pnlApp: TPanel;

procedure FormCreate(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure FormResize(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

hWin: HWND = 0;

implementation

{$R dfm}

type

// 存储窗体信息

PProcessWindow = ^TProcessWindow;

TProcessWindow = record

ProcessID: Cardinal;

FoundWindow: hWnd;

end;

// 窗体枚举函数

function EnumWindowsProc(Wnd: HWND; ProcWndInfo: PProcessWindow): BOOL; stdcall;

var

WndProcessID: Cardinal;

begin

GetWindowThreadProcessId(Wnd, @WndProcessID);

if WndProcessID = ProcWndInfo^ProcessID then begin

ProcWndInfo^FoundWindow := Wnd;

Result := False; // 已找到，故停止 EnumWindows

end

else

Result := True; // 继续查找

end;

// 由 ProcessID 查找窗体 Handle

function GetProcessWindow(ProcessID: Cardinal): HWND;

var

ProcWndInfo: TProcessWindow;

begin

ProcWndInfoProcessID := ProcessID;

ProcWndInfoFoundWindow := 0;

EnumWindows(@EnumWindowsProc, Integer(@ProcWndInfo)); // 查找窗体

Result := ProcWndInfoFoundWindow;

end;

// 在 Panel 上内嵌运行程序

function RunAppInPanel(const AppFileName: string; ParentHandle: HWND; var WinHandle: HWND): Boolean;

var

si: STARTUPINFO;

pi: TProcessInformation;

begin

Result := False;

// 启动进程

FillChar(si, SizeOf(si), 0);

sicb := SizeOf(si);

siwShowWindow := SW_SHOW;

if not CreateProcess(nil, PChar(AppFileName), nil, nil, true,

CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil, si, pi) then Exit;

// 等待进程启动

WaitForInputIdle(pihProcess, 10000);

// 取得进程的 Handle

WinHandle := GetProcessWindow(pidwProcessID);

if WinHandle > 0 then begin

// 设定父窗体

WindowsSetParent(WinHandle, ParentHandle);

// 设定窗体位置

SetWindowPos(WinHandle, 0, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOZORDER);

// 去掉标题栏

SetWindowLong(WinHandle, GWL_STYLE, GetWindowLong(WinHandle, GWL_STYLE)

and (not WS_CAPTION) and (not WS_BORDER) and (not WS_THICKFRAME));

Result := True;

end;

// 释放 Handle

CloseHandle(pihProcess);

CloseHandle(pihThread);

end;

procedure TForm1FormClose(Sender: TObject; var Action: TCloseAction);

begin

// 退出时向内嵌程序发关闭消息

if hWin > 0 then PostMessage(hWin, WM_CLOSE, 0, 0);

end;

procedure TForm1FormCreate(Sender: TObject);

const

App = 'C:\Windows\Notepadexe';

begin

pnlAppAlign := alClient;

// 启动内嵌程序

if not RunAppInPanel(App, pnlAppHandle, hWin) then ShowMessage('App not found');

end;

procedure TForm1FormResize(Sender: TObject);

begin

// 保持内嵌程序充满 pnlApp

if hWin <> 0 then MoveWindow(hWin, 0, 0, pnlAppClientWidth, pnlAppClientHeight, True);

end;

end

HWND FindWindowA(类名，标题);返回HWND句柄

HWND FindWindowExA（HWND hwndParent，//要查找子窗口的父窗口句柄。

//如果hwndParent为0，则函数以桌面窗口为父窗口，查找桌面窗口的所有子窗口。

HWND hwndChildAfter，//子窗口句柄。如果HwndChildAfter为0，查找从hwndParent的第一个子窗口开始。

LPCTSTR lpszClass， //指向一个指定了类名

LPCTSTR lpszWindow）；//指向一个指定了窗口标题

其中一个应用程序的类名和标题，可以由vs自带的spy++工具来获得

#include <windowsh>

#include <stdioh>

#include <tlhelp32h>

void main()

{

PROCESSENTRY32 ProcessEntry = { 0 };

MODULEENTRY32 ModuleEntry = { 0 };

HANDLE hProcessSnap;

HANDLE hModuleSnap;

ProcessEntrydwSize = sizeof(PROCESSENTRY32);

ModuleEntrydwSize = sizeof(MODULEENTRY32);

hProcessSnap = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);//给系统内的所有进程拍一个快照

BOOL bRet = Process32First(hProcessSnap,&ProcessEntry);// 遍历进程快照，轮流显示每个进程的信息，先获得第一个

while(bRet)

{

printf("\n%s\n",ProcessEntryszExeFile);//输出该进程可执行文件名（包括路径）

Sleep(200);

hModuleSnap = CreateToolhelp32Snapshot(TH32CS_SNAPMODULE,ProcessEntryth32ProcessID);//循环给每个进程的所有模块拍一个快照

bRet = Module32First(hModuleSnap,&ModuleEntry);// 遍历模块快照，轮流显示每个模块的信息，先获得第一个

while(bRet)

{

printf("\t%s\n",ModuleEntryszExePath);

Sleep(200);

bRet = Module32Next(hModuleSnap,&ModuleEntry);//下一个模块

}

bRet = Process32Next(hProcessSnap,&ProcessEntry);//下一个进程

}

}

是可以看到句柄的 Process里就可以 给你段实例 假设找的是QQ 好吧？ 先找到QQ的进程 Process[] proes = ProcessGetProcesses();遍历它 foreach(Process pro in proes) { //这句就是关联进程句柄 proHandle(); //这句是获得关联进程的主窗口句柄 proMainWindowHandle //你要的就是这句 神通说的是非托管的 }命名空间是using SystemDiagnostics;

以上就是关于delphi 如何获取其它应用程序窗体中的所有控件句柄全部的内容，包括:delphi 如何获取其它应用程序窗体中的所有控件句柄、C++ 怎么在程序中获得 另外一个程序的句柄、C++ 枚举进程句柄，获取句柄名。有例子吗。等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！