Active Window on change?

[MaToBe]

Zitat von MaToBe:

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) + 1);
      AktivesFenster := sTitle;
    end;

    if AktivesFenster <> AktivesFenster2 then
    begin
      Memo1.SelText := ('  <<<' + AktivesFenster + '>>>  ');
      AktivesFenster2 := AktivesFenster;
    end;
end;

Hier nimmt er nur " <<<Notepad" an

Delphi-Quellcode:

procedure TMainForm.TActiveWindowTimer(Sender: TObject);
var Wnd: HWND;
    sTitle: string;
begin
  Wnd := GetForegroundWindow;
  if Wnd <> 0 then
    begin
      SetLength(sTitle,GetWindowTextLength(Wnd) + 1);
      GetWindowText(Wnd,PChar(sTitle),Length(sTitle));
      AktivesFenster := sTitle;
    end;

    if AktivesFenster <> AktivesFenster2 then
    begin
      Memo1.SelText := (' <<<' + AktivesFenster);
      Memo1.SelText := ('>>> ');
      AktivesFenster2 := AktivesFenster;
    end;
end;

Hier nimmt er " <<<Notepad>>> " an.

Ich lass es jetzt einfach so, aber vielleicht kann mir trotzdem einer erklären, warum das so ist.