Morgen,
ich hab da ein Problem:
ich möchte gern den Inhalt aus einem Edit (Textfeld) einer Fremdanwendung holen und es unter bestimmten Umständen auch schreiben. Um mal warm zu werden hab ich mich an einem Beispiel, den Windows Taschenrechner ("calc.exe") versucht. Das klappt ganz gut. Leider komme ich damit bei meinem Programm nicht weiter. Jetzt wollte ich mich an mein eigentliches Programm machen. Doch da fehlt mir die zündende Idee.
Vielleicht kann mir ja hier jemand helfen.
Zuerst mal ein Source
Delphi-Quellcode:
type
TForm1 =
class(TForm)
myMemo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
const
WinName = '
Pauls Commander';
WinClass =
NIL;
implementation
{$R *.dfm}
function EnumProc(StHandle: HWND; lines: TStrings): boolean;
stdcall;
var
buffer, desc:
array [0..100]
of char;
// max. 101 Zeichen
begin
GetClassname(StHandle, buffer, 100);
// 100
GetWindowText(StHandle, desc, 100);
// 100
lines.add(format('
ID: %d, Class: %s, Text: %s',[GetDlgCtrlID(StHandle), buffer, desc]));
end;
procedure TForm1.Button1Click(Sender: TObject);
var
hwnd:dword;
begin
myMemo1.clear;
hwnd := FindWindow(WinClass, WinName);
if (hwnd = 0)
then
begin
messagebox(0,'
Programm nicht im Speicher!','
Warning!',0);
exit;
end;
EnumChildWindows(hwnd,@EnumProc,Integer(myMemo1.Lines));
// Handle, Functioncall, <return result>
end;
Das Beispiel funktionierte beim Windowstaschenrechner (CALC) noch ganz gut. Bei meinem zweiten Programm komme ich aber irgendwie nicht wirklich an mein Textfeld {EDIT}. Und schon gar nicht an den Inhalt dieses Feldes. Kann mir da mal jemand helfen? Ich hab zwar die einzelnen Childwindows soweit aufgelistet... Auch die drei Textfelder sind mit ID enthalten; Allerdings fehlt der Inhalt des Textfeldes.
Wäre für jede Hilfe dankbar!
Achja, nur mal so eine IDee...
Kommt man am Ende einfacher ans Ziel, wenn man sich in das Programm per Hook einklinkt? Wie mach ich das am gescheitesten? Wenn ich jetzt keinen Denkfehler habe, dann läuft die Aktion doch fast auf die gleiche Geschichte hinaus, right?
>Besten Dank im voraus für Eure Mühe!
-NimalA-