任务管理器
的窗口类名首雹
标题名,
然后根据类名使用win
api
的
findwindow
函数找到程序的窗毕顷口wnd,
再在窗口中找到Edit控件,获取内容
都是用winapi的东西,有些忘记了,网上可以找到的
一般是用钩子程序的。比较复杂,只能说个大体思路,要花最少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.
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)