Как проигнорировать ToogleDesktop для своего приложения

function ShellWindow: HWND;
 type
   TGetShellWindow = function(): HWND; stdcall;
 var
   hUser32: THandle;
   GetShellWindow: TGetShellWindow;
 begin
   Result := 0;
   hUser32 := GetModuleHandle('user32.dll');
   if (hUser32 > 0) then
   begin
     @GetShellWindow := GetProcAddress(hUser32, 'GetShellWindow');
     if Assigned(GetShellWindow) then
     begin
       Result := GetShellWindow;
     end;
   end;
 end;

var
  hw: HWND;
  ShellWnd, WorkerID, Wind, DesktopWindow, WorW: HWND;
begin
   ShellWnd := GetWindowThreadProcessId(ShellWindow);
   hw := GetNextWindow( GetForegroundWindow, GW_HWNDPREV );
   WorkerID:=GetWindowThreadProcessId(GetForegroundWindow);
   WorW:=FindWindowEx(0, 0, 'WorkerW', nil);
   Wind:=FindWindowEx(WorW, 0, 'SHELLDLL_DefView', nil);
   DesktopWindow:=FindWindowEx(Wind, 0, 'SysListView32', nil);
   if (DesktopWindow<>0) then//if WorkerID=ShellWnd then //if  then
      SetWindowPos(Handle, hw, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE )
   else
     if GetForegroundWindow<>Handle then
        SetWindowPos(Handle, HWND_BOTTOM, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE );
end;

unit MainFrm;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ShlObj, ComObj;
 
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure CreateWnd; override;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
{ TForm1 }
 
procedure TForm1.CreateWnd;
var
  Taskbar: ITaskbarList;
begin
   inherited;
   Taskbar := CreateComObject( CLSID_TaskbarList ) as ITaskbarList;
   Taskbar.HrInit;
   Taskbar.DeleteTab( Handle );
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
  hw: HWND;
  aName: array [0..255] of Char;
begin
   inherited;
   GetClassName( GetForegroundWindow, aName, 256 );
   if aName = 'WorkerW' then
   begin
      hw := GetNextWindow( GetForegroundWindow, GW_HWNDPREV );
      SetWindowPos(Handle, hw, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE );
   end;
end;
 
end.

type
  TForm1 = class(TForm)
    {...}
    procedure CreateWnd; override;
    {...}
  end;
 
procedure TForm1.CreateWnd;
begin
   inherited;
   BorderStyle := bsToolWindow;
   FormStyle := fsStayOnTop;
end;