VC如果得到其他程序窗口的控件句柄

VC如果得到其他程序窗口的控件句柄,第1张

思路有问题,应该如下做(只限于有标题栏的窗口)

1.找到窗口,通过标题,如下:

HWND

myHwnd

/////////找到窗口的HDR

myHwnd=::FindWindow(

NULL,/*

class

name*/

"窗口名称"

//LPCTSTR

lpWindowName

//

window

name

)

if(myHwnd==NULL)

//"Cannot

Find")

2

//找到窗口的位置及大小

::GetWindowRect(

myHwnd,

//

handle

to

window

mRect

//

client

coordinates

)

3.获得屏幕句柄

HDC

hdc

=

::GetDC(NULL)

4.通过mRect

和hdc

对界面进行 *** 作

一般是用钩子程序的。 比较复杂,只能说个大体思路,要花最少30分钟。分太少了。 API函数的声明就不说了。 先用findwindow找到窗体,用GetWindow和GetClassName获得其窗体内各对象的句柄,从而可以获得文本框的句柄。 最后用SendMessage函数想文本框发送文本。 tWnd = FindWindow(vbNullString, "窗口名")可以获得外部程序窗口的句柄twnd bwnd = GetWindow(tWnd, GW_CHILD)可以获得该窗口子对象的集合句柄bwnd Do Until bwnd = 0 GetClassName bwnd, sSave, 250 If InStr(1, UCase(sSave), "EDIT", vbTextCompare) <>0 Then editwnd = bwnd Exit Do End If bwnd = GetWindow(bwnd, GW_HWNDNEXT) Loop 以上代码可以读到该窗口中的第一个文本框的句柄editwnd SendMessage editwnd, WM_SETTEXT, 6, "王小明" 以上代码向editwnd中写入“王小明”,6表示其长度。该方法写入时,文本框中原有内容全部覆盖。

实现原理是启动一个应用程序,通过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: TObjectvar 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: HWNDProcWndInfo: PProcessWindow): BOOLstdcall

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

ProcWndInfo.ProcessID := ProcessID

ProcWndInfo.FoundWindow := 0

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

Result := ProcWndInfo.FoundWindow

end

// 在 Panel 上内嵌运行程序

function RunAppInPanel(const AppFileName: stringParentHandle: HWNDvar WinHandle: HWND): Boolean

var

si: STARTUPINFO

pi: TProcessInformation

begin

Result := False

// 启动进程

FillChar(si, SizeOf(si), 0)

si.cb := SizeOf(si)

si.wShowWindow := 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(pi.hProcess, 10000)

// 取得进程的 Handle

WinHandle := GetProcessWindow(pi.dwProcessID)

if WinHandle >0 then begin

// 设定父窗体

Windows.SetParent(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(pi.hProcess)

CloseHandle(pi.hThread)

end

procedure TForm1.FormClose(Sender: TObjectvar Action: TCloseAction)

begin

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

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

end

procedure TForm1.FormCreate(Sender: TObject)

const

App = 'C:\Windows\Notepad.exe'

begin

pnlApp.Align := alClient

// 启动内嵌程序

if not RunAppInPanel(App, pnlApp.Handle, hWin) then ShowMessage('App not found')

end

procedure TForm1.FormResize(Sender: TObject)

begin

// 保持内嵌程序充满 pnlApp

if hWin <>0 then MoveWindow(hWin, 0, 0, pnlApp.ClientWidth, pnlApp.ClientHeight, True)

end

end.


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/yw/8106206.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-04-13
下一篇 2023-04-13

发表评论

登录后才能评论

评论列表(0条)

保存