string in ein beliebiges fenster schreiben

[fadz]

hi,
ich habe zwar schon gesucht aber noch nichts gefunden was ich brauche :(
folgende situation:
ich habe einen string, also beispiel 'hallo welt'
diesen will ich z.b. wenn das editor fenstern aktiv ist darein kopieren lassen,
wie sieht eine prozedur für soetwas aus ?
thx für eure hilfe

[Ultimator]

Hol dir das Handle vom Control, in das du den Text schreiben willst, und schicke ihn per SendMessage dorthin ;-)

[Luckie]

Das ist nicht trivial. Wir haben darüber schon einen langen Thread. Such mal nach Beiträgen von FriFra. Hab den Thread gefunden: http://www.delphipraxis.net/internal...594&highlight=

[fadz]

ich will ja nix ersetzten ;)
will ja komplett neuschreiben lassen ;) lol

[fadz]

manchmal frage ich mich echt ob ich dumm bin??!? ;) lool
ich habs jetzt irgendwie ganz simpel gepackt,
THX

[malo]

Zitat:

Zitat von fadz

ich will ja nix ersetzten ;)
will ja komplett neuschreiben lassen ;) lol

Wenn du komplett neuschreiben willst, ersetzt du halt alles (evtl. einen leeren string) ;)

[fadz]

obwohl, wo isn hier der kleine fehler? ;)

Delphi-Quellcode:

var
FocusHWnd: HWND;
WndText: String;
begin
wndtext:='hallo';
FocusHWnd := GetFocus;

SendMessage(FocusHWnd, WM_SETTEXT, Length(WndText), LPARAM(PChar(WndText)));

[malo]

Was für ein Fehler? Gibt es eine Fehlermeldung oder wie? Leider sind die Glaskugeln der ganzen DP bei einem stromausfall kaputt gegangen ;)

[fadz]

nee, aber es funktioniert nicht ;)
er schreibt keinen text,
ich mache das folgendermassen,
ich lasse delphi in z.b. notepad klicken, damit er da eigentlich schreiben könnte, aber dann macht er nichts ...

es passiert einfach nichts :(

[Sprint]

Die Funktion GetFocus funktioniert nur im eigenen Prozess. Also wirst du nie mit GetFocus das Handle von Notepad bekommen.

[TStringlist]

Mit "WindowFromPoint" statt "GetFocus" und 'ner zeitverzögerten Auslösung davor (z.B. per sleep, um mit der Maus über das Control zu kommen) könnte es aber klappen.

[Sprint]

Zitat:

Zitat von TStringlist

Mit "WindowFromPoint" statt "GetFocus" und 'ner zeitverzögerten Auslösung davor (z.B. per sleep, um mit der Maus über das Control zu kommen) könnte es aber klappen.

Einfachere Lösung

[fadz]

hmm, selbst damit will es einfach nicht ?!? :(
könnt ihr mir bitte noch nen bisl helfen ? ;) thx

[Sprint]

Zitat:

Zitat von fadz

könnt ihr mir bitte noch nen bisl helfen ?

Das funktioniert einwandfrei. Der Fehler muss irgendwo bei dir liegen. Poste mal den Quelltext, der bei dir nicht läuft. Dann kann man auch besser sagen, was falsch gelaufen ist.

[fadz]

Delphi-Quellcode:

procedure tform1.test;
var
FocusHWnd: HWND;
AppHWnd: HWND;
ThreadId: DWORD;
WndText: String;
begin
FocusHWnd := GetFocus; 
  if not IsWindow(FocusHWnd) then 
  begin 
    AppHWnd := GetForegroundWindow; 
    if AppHWnd <> Self.Handle then 
    begin 
      ThreadId := GetWindowThreadProcessId(AppHWnd, nil); 
      if ThreadId <> 0 then 
        if AttachThreadInput(GetCurrentThreadId, ThreadId, True) then 
        begin 
          FocusHWnd := GetFocus; 
          AttachThreadInput(GetCurrentThreadId, ThreadId, False); 
        end; 
    end; 
  end;
wndtext:='hallo';
//FocusHWnd := GetForegroundWindow;
SendMessage(FocusHWnd, WM_SETTEXT, Length(WndText), LPARAM(PChar(WndText)));
end;

[Luckie]

Zitat:

Zitat von fadz

ich will ja nix ersetzten ;)
will ja komplett neuschreiben lassen ;) lol

Ja und? das Prinzip ist doch das gleiche. :roll:

[fadz]

jo stimmt, aber mein code geht ja irgendwie trotzdem net :( ...

[fadz]

ich pushe grade ma :(

kann mir keiner helfen den fehler im code zu finden ?

[Neutral General]

Prüf mal ob du überhaupt ein Handle hast !
Wenn du ein Handle hast dann hast du schon einen Großteil geschafft.

[fadz]

hi, wie überprüft man denn ob man ein handel hat ?!?

[toms]

Zitat:

Zitat von fadz

hi, wie überprüft man denn ob man ein handel hat ?!?

If IsWindow(handle) then
// Du hast ein Handle

[fadz]

ahh ok, habs grade ma getestet, ich habe also ein handel !!! was soll ich jetzt machen ?

[Ultimator]

Vielleicht das:
Entweder

Delphi-Quellcode:

SendMessage(FocusHWnd, WM_SETTEXT, Length(WndText), LPARAM(PChar(WndText)));

oder SetWindowText

[fadz]

hab beides versucht, hier beide versuceh kombiniert:

Delphi-Quellcode:

...
wndtext:='hallo';
SendMessage(FocusHWnd, WM_SETTEXT, Length(WndText), LPARAM(PChar(WndText)));
SetWindowText(FocusHWnd,PChar(WndText));

aber bei keinem der beiden funktioniert es ...

[sECuRE]

Hi,

bist du sicher, dass die Anwendung in dem moment wirklich die aktive ist? Ich würde den Code erstmal in einen Timer setzen, damit ich genug Zeit habe, die Anwendung zu wechseln.. Sonst ist ja deine Anwendung zwangsläufig die, die dein Code findet.

cu

[fadz]

ok habs auch damit getestet, aber nichts passiert :(

[toms]

Zitat:

Zitat von fadz

ok habs auch damit getestet, aber nichts passiert :(

Poste mal etwas Code. Sonst kann niemand sagen, was falsch am Code ist.