string in ein beliebiges fenster schreiben

[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 ?!?