Kann Delphi auf externe Fenster zugreifen?

amazing · Beiträge: 32

Hallo, ich hab Delphi seit einiger Zeit in der Schule und interessiere mich privat auch dafür.
Kann Deplphi, im Hintergrund laufend, auf ein externes Fenster 'zugreifen' z.B Editor und eine Textnachricht in Zeitabständen, welche z.B durch ein Editfeld vorgegeben werden kann, senden?

Der Timer würde sich ja dafür gut eigenen, aber wie bekomme ich Delphi dazu, das oben beschriebene zu amchen?

Moderiert von Christian S.: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am Fr 18.04.2008 um 18:00

Der nette Nachbar · Verfasst: Fr 18.04.08 16:33

Informiere dich tiefgehend über API Hooks, danach wirst du dein Problem ohne Mühe bewältigen können. xD

amazing · Beiträge: 32

Hm das sagt mir jetzt nichts, hat jemand einen Ansatz für mich?

Sinspin · Verfasst: Fr 18.04.08 17:53

Warum immer alle, naja einige, gleich mit API Hooks um sich werfen müssen, verstehe ich nicht.

Es reicht das Win-API Handle des Fensters zu kennen in das du schreiben willst.
Allerdings kommt dann deine Eingabe immer nur dort an wo gerade der Focus drauf ist (der Eingabecursor steht).

Schau dir mal das an:
www.delphi-forum.de/...mp;highlight=fenster

Da findest du eingentlich alles was du brauchst. Ansonsten, einfach mal hier im Forum suchen. (für den einen Link habe ich dir das ja schonmal abgenommen :wink:

)

_________________
Wir zerstören die Natur und Wälder der Erde. Wir töten wilde Tiere für Trophäen. Wir produzieren Lebewesen als Massenware um sie nach wenigen Monaten zu töten. Warum sollte unser aller Mutter, die Natur, nicht die gleichen Rechte haben?

amazing · Beiträge: 32

Danke schonmal, nur habe ich soetwas in der Richtung noch nie probiert und bin eigentlich Anfänger.
Wenn ich jetzt dieses Handle habe, was dann?

amazing · Beiträge: 32

hm niemand? ist das hier eigentlich der richtige bereich für die frage?

jaenicke · Verfasst: So 20.04.08 05:44

Wenn du ein Handle des Eingabefelds hast, dann kannst du zum Beispiel den Text darin setzen:

markieren

Delphi-Quelltext

1:	SendMessage(TextfieldHandle, WM_SETTEXT, 0, Integer(PChar(DeinString)));

amazing · Beiträge: 32

Sehr gut, danke!
Wie bekomme ich es hin, dass er nachdem er den Text geschickt hat, die Funktion der Taste Enter durchführt?

E: Damit ich besser weiter komme: was bedeutet die 0 und was bedeutet WM_SETTEXT?

jaenicke · Verfasst: Mo 21.04.08 13:40

amazing hat folgendes geschrieben:

E: Damit ich besser weiter komme: was bedeutet die 0 und was bedeutet WM_SETTEXT?

msdn2.microsoft.com/...ms632644(VS.85).aspx ;-)

amazing · Beiträge: 32

Kannst du mir sagen, wie ich den Enter-testendruck simulieren kann?

jaenicke · Verfasst: Di 22.04.08 20:13

delphi.about.com/od/...04/a/bltip1104_3.htm
Das sollte dir helfen ;-)

.

toms · Beiträge: 1099 Erhaltene Danke: 2

amazing hat folgendes geschrieben:

Kannst du mir sagen, wie ich den Enter-testendruck simulieren kann?

Google ist dein Freund!

Einfach mal folgende Suchwörter eingeben:

Suche bei Google

ENTER SIMULIEREN DELPHI

amazing · Beiträge: 32

Hab das mit der Entertaste noch nicht hinbekommen, welchen Keycode hat die Taste Enter denn?
Achja, kann Delphi das Handle auch manuell auslesen, sodass ich das Programm nicht immer umprogramieren muss?

jaenicke · Verfasst: Di 29.04.08 15:57

1. 13
2. Delphi nicht, aber dein Programm mit entsprechendem Delphi-Quelltext

, den Quelltext um ein Fenster zu finden, kann dir dieses Programm automatisch generieren:
www.delphi-forum.de/viewtopic.php?t=21271

amazing · Beiträge: 32

Ok hab das jetzt Mal gemacht, aber er sagt 'FlashControl' ist unbekannt. Kann das an der Version liegen? aslo ich hab Delphi 4.

jaenicke · Verfasst: Fr 09.05.08 22:02

Wie sieht denn der Quelltext aus?

amazing · Beiträge: 32

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

var
  wndMain, wndChild: HWND;
begin
  wndMain := FindWindow('SunAwtFrame','Channel: 8-Ball,  Nick: Rayen10');
  if wndMain <> 0 then
  begin
    wndChild := FindWindowEx(wndMain, 0, 'SunAwtCanvas', nil);
    wndChild := FindWindowEx(wndChild, 0, 'Edit', nil);
    if wndChild <> 0 then
    begin
      ShowMessage('Window Handle: ' + IntToStr(wndChild));
      FlashControl(wndChild); // internal function
    end;
  end;

Moderiert von Narses: Code- durch Delphi-Tags ersetzt

jaenicke · Verfasst: Fr 09.05.08 23:33

Das ist doch nur ein Beispielaufruf mit dem gefundenen Handle :lol:

.
Das bewirkt in dem Skript dann, dass das Control blinkt. Du musst mit dem Handle eben das machen, was du möchtest. ;-)

amazing · Beiträge: 32

Sorry für die vielen Fragen, aber eine hab ich noch

Und zwar hab ich ja jetzt ein ganz bestimmtes Fenster, ich hätte es aber gerne, dass er das aktuell aktivierte nimmt.

toms · Beiträge: 1099 Erhaltene Danke: 2

GetForegroundWindow liefert dir das Handle vom Fenster im Vordergrund.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme