Fórum Congelar DeskTop ( alguem sabe ) #159016

// Habilita ou desabilita a barra de tarefas do windows
Procedure ShowTaskbar(Visible:Boolean);
var wndHandle : THandle;
    wndClass  : array[0..50] of Char;
begin
    StrPCopy(@wndClass[0],´Shell_TrayWnd´);
    wndHandle := FindWindow(@wndClass[0], nil);
    If Visible=True Then Begin
       ShowWindow(wndHandle, SW_RESTORE); // This restores the taskbar
    End Else Begin
       ShowWindow(wndHandle, SW_HIDE);  // This hides the taskbar
    End;
end;

{ Mostra ou esconde o botao iniciar }
Procedure ShowStartButton(Visible:Boolean);
Var taskbarhandle,
    buttonhandle : HWND;
begin
   taskbarhandle := FindWindow(´Shell_TrayWnd´, nil);
   buttonhandle := GetWindow(taskbarhandle, GW_CHILD);
   If Visible=True Then Begin
      ShowWindow(buttonhandle, SW_RESTORE);
   End Else Begin
      ShowWindow(buttonhandle, SW_HIDE);
   End;
end;

// Habilita ou desabilita os icones do desktop do windows
Procedure ShowDesktop(Active:Boolean);
Var WNDClass : Array[0..50] of char;
begin
   StrPCopy(@WndClass[0],´Progman´);
   If Active = True  Then Begin
      ShowWindow(FindWindow(@WndClass[0],nil),sw_Restore);
   End Else Begin
      ShowWindow(FindWindow(@WndClass[0],nil),sw_hide);
   End;
end;

// Desabilita o CTRL+ALT+DEL e CTRL+ESC
procedure EnableSysKeys(Enabled:Boolean);
var OldVal : LongInt;
begin
  SystemParametersInfo(SPI_SCREENSAVERRUNNING,Word(not Enabled), @OldVal, 0)
end;