Name des aktiven Programms auslesen

[Neuni]

Hi,
ich möchte gerne, dass mein Programm erkennt, welches Programm gerade aktiv ist, und dann den Namen des Programms nennt. Es soll also der Name des aktiven Programms ausgelesen werden.

Jemand ne Idee, wie das geht???

Danke schonmal im vorraus

[Skiron]

mit GetActiveWindow() bekommt man das Handle des Aktiven Fensters
damit dürfts dann auch möglich sein, den Namen rauszufinden!

[toms]

Label1.Caption := GetProcessNameFromWnd(GetForeGroundWindow);
Du brachst noch die Funktion GetProcessNameFromWnd

[Neuni]

Danke erstmal, aber er ließt ja nun den Dateinamen (also *.exe) aus.

Vielleicht hab ich mich ein bissl falsch ausgedrückt.
Also: Ich möchte das haben, was ganz oben in der Leiste beim InternetExplorer steht. (Jetzt z.B: Delphi-Praxis :: Antwort schreiben ...)

Es geht darum, dass ich einen PC hab, an dem viele User sitzen, und dass ich überwachen will, dass niemand auf die Idee kommt, auf verbotene Internetseiten, also Porno-Seiten & co. zu gehen.

Jemand ne Idee wie das geht?

[SirThornberry]

Delphi-Quellcode:

var text: PChar;
    tmpint: Integer;
begin
  tmpint := SendMessage(GetActiveWindow, WM_GETTEXTLENGTH, 0, 0) + 1;
  getmem(text, tmpint);
  SendMessage(GetActiveWindow, WM_GETTEXT, tmpint, Integer(Text));
  Edit1.Text := String(text); //hier wird jetzt der Windowtext in Edit1 geschrieben
  freemem(text);
end;

untested, but it should work

[himitsu]

@toms:
GetForeGroundWindow gibt nur das Fenster mit der kleinsten Position in der Z-Achse zurück - also das Fenster, welches ganz vorne Angezeigt wird und diese muß nicht unbedingt das aktive Fenster, also das mit dem Eingabefokus sein.

GetActiveWindow sollte da schon das Richtige sein.

[Neuni]

Danke SirThornberry, es geht.