| function TForm1.Findhwd(parent: HWND):HWND; var hwd,hBtn,hMemo:HWND; begin hwd:=findwindowex(parent,0,'#32770',nil); Result := 0; if (parent<>0) then begin hBtn := FindwindowEX(hwd,0,nil,'发送(&S)'); if (hBtn<>0) then begin hMemo := GetDlgItem(hwd,$00000000); if (hMemo<>0) then begin result := GetWindow(hMemo,GW_CHILD); end; end; end; end; |
| procedure TForm1.GetText(hwd: HWND); var Ret: LongInt; QQText: PChar; Buf: integer; begin GetMem(QQText,1024); if (hwd<>0) then begin try Ret := SendMessage(hwd, WM_GETTEXTLENGTH, 0, 0) + 1; Buf := LongInt(QQText); SendMessage(hwd, WM_GETTEXT, Min(Ret, 1024), Buf); memo1.Lines.Add(QQText); finally FreeMem(QQText, 1024); end; end; end; |
完整的程序运行以后的图为:

若有什么问题: 请在http://asp.itdrp.com/hottey 上提出. (且上面有源码下载)
|