program i fokus

Hej

Sæt en timer og en edit på en form, og prøv nedenstående kode. Når du skifter mellem programmer skulle teksten i editen ændre sig tilsvarende.

procedure TForm1.Timer1Timer(Sender: TObject);
var
  wnd: THandle;
  buf: array[0..255] of Char;
begin
  wnd := GetForegroundWindow();
  GetWindowText(wnd, buf, 255);

  Edit1.Text := buf;
end;

kan man evt hente filnavnet ud også??

Ikke så vidt jeg ved. Jeg mener ikke at et vindue er associeret med den eksekverbare fil. Du burde dog stadig være i stand til at lave det du gerne vil...

jeg lader den lige være åben lidt endnu - det kan være der er nogen der har et bud.