Forum: Sonstige Fragen zu Delphi
Delphi
by Bummi,
18. Jun 2012
Beispiel mit Notepad und enthaltenem Text
Function GetTextFromHandle(hwd:THandle):String;
const
MyMaxText = 10000;
begin
SetLength(Result, MyMaxText);
SetLength(Result, SendMessage(hwd, WM_GETTEXT, MyMaxText, lParam(PChar(Result))));
end;
Forum: Sonstige Fragen zu Delphi
Delphi
by Bummi,
17. Jun 2012
das was ich hochgeladen hatte tut unter anderem genau dies....
Forum: Sonstige Fragen zu Delphi
Delphi
by Bummi,
16. Jun 2012
Ich hatte für ein "Fernsteuerprogramm" eine Hilfsprojekt zum Suchen aufgesetzt.
Da ist vieles drin was mit Deinem Problem nichts zu tun hat.
Ich habe gerade nicht den Nerv nur das benötigte rauszusuchen und lade einfach mal das Projekt so hoch wie es ist.
Aus dem Form werden auf 2 Label die Klassennamen und wenn greifbar die Captions beim überfahren angezeigt (den Rest ignorieren, der...