hi,
mit folgender prozedur will ich an den text eines x-beliebigen fensters der unter dem mauszeiger ist, ran kommen:
<pre>
procedure TForm1.textholen;
var
TempHandle: THandle;
TempText: PChar;
P: TPoint;
begin
GetCursorPos(P);
// Handle des Fensters, das den Punkt P enthält
TempHandle := WindowFromPoint(P);
if TempHandle <> 0 then
begin
// Text Fenstertext holen
GetWindowText(TempHandle, TempText, 255);
//Label1.Caption := TempText;
end;
end;
</pre>
es kommt aber ne schutzverletzung!
warum?
gruß
markus
mit folgender prozedur will ich an den text eines x-beliebigen fensters der unter dem mauszeiger ist, ran kommen:
<pre>
procedure TForm1.textholen;
var
TempHandle: THandle;
TempText: PChar;
P: TPoint;
begin
GetCursorPos(P);
// Handle des Fensters, das den Punkt P enthält
TempHandle := WindowFromPoint(P);
if TempHandle <> 0 then
begin
// Text Fenstertext holen
GetWindowText(TempHandle, TempText, 255);
//Label1.Caption := TempText;
end;
end;
</pre>
es kommt aber ne schutzverletzung!
warum?
gruß
markus
Comment