Programmfokus setzen per Process-ID

[64Jabor]

Hallo DP,

ich möchte aus meinem Programm Werte in ein externes Programm eintragen.
Dazu rufe ich es mit ShellExecute auf, falls es nicht bereits läuft.
Wenn es allerdings läuft, soll das Programm den Fokus erhalten.

Das versuche ich hier mit SetForegroundWindow.

Wie bekomme ich mit dieser Prozedur den Fokus auf dieses Program :gruebel:
Ich meine ich könnte ja CreateProcess verwenden und damit die Process-ID in eine Variable schreiben - die passende Funktion habe ich hier schon rumfliegen gesehen, von Luckie, aber ich finde keine Prozedur mit der ich die Process-ID in ein Handle o.ä. umwandeln kann...

Mein Problem ist auch dass meine Delphi-Hilfe nicht funktioniert, 64-BIT Vista sei Dank :angel2:
Kann mir da jemand auf die Sprünge helfen?

Danke schonmal,
greetZ 64Jabor

[DeddyH]

Ich weiß nicht, ob es so funktioniert, aber mir fällt spontan folgende Vorgehensweise ein:
mit EnumWindows (oder EnumThreadWindows, wenn Du die ThreadID hast) die Fenster durchgehen, mit GetWindowThreadProcessID die ProzessID ermitteln und mit Deiner vergleichen. Wenn gleich, mit SetForegroundWindow nach vorne holen. Das Problem hierbei ist, dass das Programm ja mehrere Fenster haben kann.

[64Jabor]

Hey DeddyH,

da ich selbst ja verhindere dass das Programm mehrmals ausgeführt wird zur Laufzeit MEINES Programmes und ich nicht davon ausgehe, dass dieses Programm jemand von selbst öfter startet, werde ich dieses Problem vorerst nicht beachten.
Ich werde mir besagte Funktionen mal ansehn und hoffe zu einem Ergebnis zu kommen :thumb:

Vielen Dank!

greetZ

[ryLIX]

Wenn wir grad bei Spontan sind :)

Mir fällt spontan SEND_MESSAGE ein.
Sende dem Process ein WM_ACTIVATE.
Oder du importierst direkt die SetActiveWindow Prozedur aus der User32.

[Apollonius]

Das Problem ist doch, überhaupt ein Fensterhandle zu erhalten.

[Luckie]

Zitat:

Zitat von ryLIX

Wenn wir grad bei Spontan sind :)

Mir fällt spontan SEND_MESSAGE ein.
Sende dem Process ein WM_ACTIVATE.
Oder du importierst direkt die SetActiveWindow Prozedur aus der User32.

Aber auch dafür braucht er das Fensterhandle, da man Nachrichten nur an Fenster senden kann.

[ryLIX]

Hmm irre ich mich da oder lässt sich das nicht über die ProcessID holen?

[64Jabor]

Joa ich versuche ja per Process-ID das Fensterhandle zu bekommen, so wie DeddyH es vorgeschlagen hat.

Leider komme ich nicht wirklich weiter...
Ich hab mir jetzt eine Unit runtergeladen:
EnumWindowUtil

Die habe ich eingebunden und sie ist auch fähig jedes Fenster aufzulisten sowie das Handle zu bekommen, aber leider weiß ich nicht wie ich nun die Process-ID aus Luckies Funktion function RunProcess(...) mit den Process-IDs der TWindowList-Objekte vergleichen kann.

Ich dachte ja egtl an etwas wie:

Delphi-Quellcode:

i:=0;
while ( (i < MyWNDList.Count-1) AND (ProcID <> MyWNDList.Objects[i].ProcessID) ) do i:=i+1;
SetForegroundWindow(MyWNDList.GetHandle(i));

Nur leider existiert nichts deartiges wie Objects[].ProcessID...
Oder habe ich etwas übersehen?

[Luckie]

Zitat:

Zitat von ryLIX

Hmm irre ich mich da oder lässt sich das nicht über die ProcessID holen?

Richtig, und wie man das Fensterhandle zu einer ProzessID bekommen kann, hat DeddyH schon beschrieben.

[himitsu]

Zitat:

Zitat von Apollonius

Das Problem ist doch, überhaupt ein Fensterhandle zu erhalten.

man könnte auch eine Thread-Nachricht an den Hauptthread senden.

OK, diese müßte dann in diesem Programm ausgewertet weden und das Programm holt sich dann z.B. selbst in den Vordergrund.

(aber man muß es ja nicht übertreiben :roll: )