Name des aktiven Programms auslesen

[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?