1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

procedure TForm1.HookLib1ShellEvent(Sender: TObject; wParam,
  Code: Integer);
var
  Title: array[0..MAX] of Char;
begin
  case Code of
    HSHELL_ACTIVATESHELLWINDOW:
      Memo1.Lines.Add(Format('%s DESKTOP', [FormatDateTime('c', Now)]));
    HSHELL_WINDOWACTIVATED,
    HSHELL_REDRAW:
      begin
        if GetWindowText(wParam, Title, 299) = 0 then
          Title[0] := #0;
        if LastTitle <> Title then
        begin
          Memo1.Lines.Add(Format('%s %s', [FormatDateTime('c', Now), 'zu ' + Title + ' gewechselt']));
          LastTitle := Title;
        end;
      end;
    HSHELL_WINDOWCREATED:
      begin
        if GetWindowText(wParam, Title, 299) = 0 then
          Title[0] := #0;
        SetWindowPos(wParam, HWND_TOP, 205,20,450,350,0);
        Memo1.Lines.Add(Format('%s %s', [FormatDateTime('c', Now), Title + ' erstellt']));
        LastTitle := Title;
      end;
  end;
end;