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:

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:

Delphi-Quellcode:

SetWindowText(wnd, PChar(Edit1.text));

[Luckie]

Zitat:

Zitat von lbccaleb

probiers mal mit dem hier:

Delphi-Quellcode:

SetWindowText(wnd, PChar(Edit1.text));

nein:

Zitat:

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:

Zitat von lbccaleb

probiers mal mit dem hier:

Delphi-Quellcode:

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:

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:

Zitat von Delphiturbo

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

Keine Ahnung, sag Du es uns.

Sherlock

[1234588]

Delphi-Quellcode:

SendMessage(btn, BM_CLICK, 0, 0);

drueckt man tatsaechlich so einen button? schau mal bei msdn vorbei :o)

mal am rande, SirThornberry gibt sehr nuetzliche tipps die ich nicht unbedingt ignorieren wuerde

[Delphiturbo]

Wenn ich aber 2 einfache Anwendung mit Delphi erstelle
dann funktioniert mit diesem Code

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  wnd: HWND;
begin
  wnd := FindWindow('TForm1','FormFremd');
  wnd := FindWindowEx(wnd, 0, 'TEdit', nil);
  if wnd <> 0 then
  begin
    SendMessage(wnd, WM_SetText, 0, LongInt(PChar(Edit1.Text)));// ok
  end;
  end;
end.

und so nicht :

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var
  wnd: HWND;
begin
  wnd := FindWindow('#32770',' Text ');
  wnd := FindWindowEx(wnd, 0, 'RichEdit20A', nil);
  if wnd <> 0 then
  begin
    SendMessage(wnd, WM_SetText, 0, LongInt(PChar(Edit1.Text))); // geht nicht !
  end;
  end;

end.

Sehe Anhang bei ok und nicht ok

[SirThornberry]

Zitat:

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.

Hast du das schon probiert?
Und hast du dir die Hilfe zu FindWindow angeschaut?

Zitat:

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

:shock: Die Frage ist nicht dein ernst oder?
Schau dir mal Punkt 2.3.2.3 im Kodex an. Du willst Hilfe von uns und nicht umgekehrt!
Wenn du dich nicht an den Kodex hältst und selbst Initiative zeigst bin ich gezwungen das Thema zu schließen.

[Delphiturbo]

Ja, ich kann das Window finden, ein- und ausblenden

Das Fenster heißt Texteinstellungen sehe Bild1 in Anhang

Delphi-Quellcode:

Windows.ShowWindow(FindWindow(nil,PChar('Texteinstellungen')),SW_show);
//..
Windows.ShowWindow(FindWindow(nil,PChar('Texteinstellungen')),SW_HIDE);

[Delphiturbo]

Das Problem lag an WinSpay :wall:
Ich habe X-Spay verwendet um Window zu finden, dann hat es geklappt :firejump:

[SirThornberry]

Es lag ganz bestimmt nicht an dem Programm sondern an demjenigen der mit den Informationen nichts anfangen kann die das Programm gibt. Du solltest endlich anfangen Quelltext zu verstehen und nicht nur zusammen zu kopieren und dann bei nicht funktionieren die Schuld dem Verfasser des Quelltextes geben.

[Delphiturbo]

Kann man auch Text in eine fremdes Window finden und z.B. drauf ein Dopelklick simulieren ?

Ich habe beide Programme WiySpay und X-Spay getestet, leider schafen die nicht !

[toms]

Zitat:

Zitat von Delphiturbo

Das Problem lag an WinSpay :wall:
Ich habe X-Spay verwendet um Window zu finden, dann hat es geklappt :firejump:

Warum verwendest du denn noch die WinSpy Version von 2005?

[toms]

Zitat:

Zitat von Delphiturbo

Kann man auch Text in eine fremdes Window finden und z.B. drauf ein Dopelklick simulieren ?

Ich habe beide Programme WiySpay und X-Spay getestet, leider schafen die nicht !

Wie ging das mit "Neuer Frage, neuer ..." :?:

[SirThornberry]

wie toms bereits sagte :)
Neue Frage neuer Thread.

[Delphiturbo]

Zitat:

Zitat von toms

Warum verwendest du denn noch die WinSpy Version von 2005?

Habe ich nicht gewust
ich habe die neue Version von winspay getestet. Es hat mit dieser Version geklappt
danke für den Tipp :thumb: