Name des aktiven Programms auslesen

[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