Delphi-Quellcode:
procedure TMainForm.TActiveWindowTimer(Sender: TObject);
var Wnd: HWND;
sTitle: string;
begin
Wnd := GetForegroundWindow;
if Wnd <> 0 then
begin
SetLength(sTitle,GetWindowTextLength(Wnd));
GetWindowText(Wnd,PChar(sTitle),Length(sTitle));
AktivesFenster := sTitle;
end;
if AktivesFenster <> AktivesFenster2 then
begin
Memo1.SelText := (' <<<' + AktivesFenster + '>>> ');
AktivesFenster2 := AktivesFenster;
end;
end;
Danke an DeddyH für den Code.
Habe es jetzt so gemacht, allerdings wird im Memo (oder auch im ShowMessage (habs mal im ShowMessage getestet)) nicht der vollständige Titel angegeben. Es fehlt immer der letze Buchstabe + die 3 > ?!?
zB Fenstertitel = Word => Ausgabe = <<<Wor