"Desktop anzeigen"-Problem

[Aurelius]

Hi DPler

in meinem programm ändert sich die Caption der Mainform (hier wird in einem "animierten" TExt der name einer Musikdatei angezeigt. Da ich aber auch ein Deskband nutze muss das Fenster in minimiertem Zustand einen Konst. Namen besitzen.

Delphi-Quellcode:

procedure TfrmMain.Minimieren(Sender : TObject);
var info : tPlaylistenitem;
begin
  Minimiert := not minimiert;
  if (BassDllPlayer1.Status = sndPlaying) and not minimiert then
  begin
    info:=Manager.GetPlayListenItem(frmPlaylist.lsbPlaylist.items, TrackNR);
end;

Application.OnMinimize := Minimieren;
Application.OnRestore := Minimieren;

In einem Timer wird dann immer die jeweilige Caption gesetzt. Ich habe aber bemerkt dass "Desktop anzeigen" wohl kein OnMinimite auslöst. Wie könnte ich das lösen? (außer getrennte Prozeduren für Restore und minimze)