Wert in eine fremde Anwendung zuweisen ?

[Delphiturbo]

Hallo,

mit winspy kann ich ein Code für das Feld, wo ich winen Wert zuweisen möchte :

Delphi-Quellcode:

var
  wnd: HWND;
begin
  wnd := FindWindow('#32770',' Text ');
  wnd := FindWindowEx(wnd, 0, 'RichEdit20A', nil);
  if wnd <> 0 then
  begin
   //  ShowMessage('Window found. Handle: ' + IntToStr(wnd));
     writeln('Window found. Handle: ' + IntToStr(wnd));
     FlashWindow(wnd);
  end;
end.

wie kann ich den Wer von meinem Edit1.Text dort zuweisen

[Luckie]

Zitat von Delphiturbo:

mit winspy kann ich ein Code für das Feld, wo ich winen Wert zuweisen möchte :

Ich glaube, da fehlt zumindest ein Verb in dem Satz.

Text in Texteigabefelder setzen kannst du mit WM_SETTEXT.

[lbccaleb]

probiers mal mit dem hier:
SetWindowText(wnd, PChar(Edit1.text));

[Luckie]

Zitat von lbccaleb:

probiers mal mit dem hier:
SetWindowText(wnd, PChar(Edit1.text));

nein:

Zitat von MSDN:

To set the text of a control in another process, send the WM_SETTEXT message directly instead of calling SetWindowText.

[Delphiturbo]

Zitat von lbccaleb:

probiers mal mit dem hier:
SetWindowText(wnd, PChar(Edit1.text));

passiert nichts !

[SirThornberry]

Wie Luckie bereits erwähnte - wm_settext
Und um zu prüfen ob dein handle überhaupt das richtige ist einfach mal schauen ob du das Fenster ber ShowWindow zum Beispiel ausblenden kannst.

[Delphiturbo]

ja aber es passiert immer nocht nichts !

Delphi-Quellcode:

var
  wnd: HWND;
begin
  wnd := FindWindow('#32770',' Text ');
  wnd := FindWindowEx(wnd, 0, 'RichEdit20A', nil);
  if wnd <> 0 then
  begin
   //  ShowMessage('Window found. Handle: ' + IntToStr(wnd));
     //writeln('Window found. Handle: ' + IntToStr(wnd));
     
SendMessage(wnd, WM_SetText, 0, LongInt(PChar(Edit1.Text)));
  end;
end.

[SirThornberry]

Zitat von SirThornberry:

Und um zu prüfen ob dein handle überhaupt das richtige ist einfach mal schauen ob du das Fenster ber ShowWindow zum Beispiel ausblenden kannst.

[Delphiturbo]

Mit dem Code kann ich ein fremdes Button Klicken
d.h. man kann den Code bearbeiten um einen Wert in eine fremde Anwendung zu zuweisen

Der Code funktioniert aber bleibt das programm hängern !?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  wnd: THandle;
  btn: THandle;

begin
  wnd := FindWindow(nil, 'FormFremd');  // sucht das Fenster
  btn := FindWindowEx(wnd, 0, 'TButton', 'Button1');  // sucht den Button
  If btn <> 0 then SendMessage(btn, BM_CLICK, 0, 0);  // führt den Klick auf dem Button aus
  //Close;
end;

[Sherlock]

Zitat von Delphiturbo:

Der Code funktioniert aber bleibt das programm hängern !?

Keine Ahnung, sag Du es uns.

Sherlock