Hilfe ein Bug beim verstecken der TaskBar

[robinWie]

Hi,

ich habe ein Programm um Bilder zu präsentieren und wärend der Show wird die TaskBar nicht mehr angezeigt, dazu benutze ich disen Code:

Delphi-Quellcode:

procedure TMainForm.ShowTaskBar(AShow: Boolean);
const
  cmdShow: array[Boolean] of Integer = (SW_HIDE, SW_SHOW);
var
  Handle: THandle;
begin
  Handle := FindWindow('Shell_TrayWnd', nil);
  if Handle <> 0 then
    ShowWindow(Handle, cmdShow[AShow]);

  MainForm.Activate;
end;

Bei FormClose habe ich ShowTaskBar(True) (Also TaskBar anzeigen) eingetragen eingetragen aber wenn ich das Programm mit dem Taskmanager beenden wird die TaskBar nicht angezeigt, was ziemlich fatal ist. Wie kann ich diesen Bug fixieren?

Danke im Voraus