Cacher la barre des tâches

rem ============================================================================
rem              Cacher / Monter la barre de tâches
rem ============================================================================

dll_on "user32"
CacherBarreTacheWindows()
message "La barre des tâches est cachée"+ chr$(13) + "Seul le bouton DEMARRER reste visible"
MontrerBarreTacheWindows()
message "La barre des tâches est de nouveau visible."
dll_off
terminate
rem ============================================================================
' Obtenir le HANDLE de la barre de tâches
FNC GetTaskbarHandle%()
    dim_local lpClassName$ , lpWindowName$ , null
    lpClassName$ = "Shell_traywnd" : lpWindowName$ = ""
    PEEK_REVERSE  
    result dll_call2("FindWindowA" , PEEK32(ADR(lpClassName$)), PEEK32(ADR(lpWindowName$)))
END_FNC
rem ============================================================================
' Cacher la barre de tâches ; le bouton DEMARRER reste visible !
SUB CacherBarreTacheWindows()
    dim_local ret%
    ret% = dll_call2("ShowWindow", GetTaskbarHandle%() , 0)        
END_SUB
rem ============================================================================
' Restaurer la barre de tâches
SUB MontrerBarreTacheWindows()
    dim_local ret%    
    ret% = dll_call2("ShowWindow", GetTaskbarHandle%() , 5)        
END_SUB
rem ============================================================================

' faire vibrer la barre des taches.

dim n%,t%
label Close0
on_close 0,Close0

for n%=1 to 16
    t%=t%+1
    if t%>1 then t%=0
    TaskBar(t%)
    PAUSE 60
next n%
END

Close0:
  TaskBar(1):' pour remettre en service les paramètres de la barre des taches.
RETURN

SUB TaskBar(of%)
  ' Barre de tâches Windows: of% = 0: cacher, of% = 1: montrer
  DIM_LOCAL TaskbarHandle,lpClassName$,lpWindowName$,null,lpc%,lpw%,ad%
  lpClassName$ = "Shell_traywnd"
  lpWindowName$ = ""
  ad% = ADR(lpClassName$)
  lpc% = 256*256*256*PEEK(ad%+3)+256*256*PEEK(ad%+2)+256*PEEK(ad%+1)+PEEK(ad%)
  ad% = ADR(lpWindowName$)
  lpw% = 256*256*256*PEEK(ad%+3)+256*256*PEEK(ad%+2)+256*PEEK(ad%+1)+PEEK(ad%)
  IF of% <> 0 THEN of% = 5: ' montrer
  DLL_ON "user32.dll"
      TaskbarHandle = DLL_CALL2("FindWindowA" , lpc%, lpw% )
      null = DLL_CALL2("ShowWindow", TaskbarHandle , of%)
  DLL_OFF
END_SUB

' https://llb.developpez.com/taskbar/
PEEK_REVERSE

dim GW_CHILD% , GW_HWNDNEXT%
dim SW_HIDE% , WM_CLOSE% , SW_MAXIMIZE% , SW_NORMAL% , SW_MINIMIZE%
GW_CHILD% = 5
GW_HWNDNEXT% = 2
SW_HIDE% = 0
WM_CLOSE% = 16
SW_MAXIMIZE% = 3
SW_NORMAL% = 1
SW_MINIMIZE% = 6
'
dim Tray% , Child% , C$
C$=string$(127,chr$(0))


Tray% = FindWindow("Shell_traywnd" , "")
Child% = GetWindow(Tray% , GW_CHILD%)
while Child% <> 0
   if GetClassName(Child%, PEEK32(ADR(C$)) , len(C$)) > 0
      if upper$(StrPAS$(C$)) = "BUTTON" :' BUTTON / TRAYNOTIFYWND / REBARWINDOW32
         exit_while
      end_if
   end_if
   Child% = GetWindow(Child% , GW_HWNDNEXT%)
end_while

print child%



END
FNC FindWindow(lpClassName$ , lpWindowName$)
   dll_on "user32"  
    result dll_call2("FindWindowA" , PEEK32(ADR(lpClassName$)), PEEK32(ADR(lpWindowName$)))
   dll_off
END_FNC

FNC GetWindow(hwnd% , ucmd%)
   dll_on "user32"  
    result dll_call2("GetWindow" , hwnd% , ucmd%)
   dll_off
END_FNC

FNC GetClassName(hWnd% , lpClassName% , nMaxCount%)
   dll_on "user32"  
    result dll_call3("GetClassNameA" , hWnd%, lpClassName% , nMaxCount%)
   dll_off
END_FNC

FNC ShowWindow(hWnd% , nCmdShow%)
   dll_on "user32"  
    result dll_call2("ShowWindow" , hWnd% , nCmdShow%)
   dll_off
END_FNC

FNC StrPAS$(lpString$)
   result trim$(lpString$)
END_FNC

FNC SendMessage(hWnd% , Msg% , wParam% , lParam%)
   dll_on "user32"  
    result dll_call4("SendMessageA", hWnd% , Msg% , wParam% , lParam%)
   dll_off
END_FNC

FNC SetWindowText(hWnd% , lpString$)
   dll_on "user32"  
    result dll_call2("SetWindowText" , hWnd% , PEEK32(ADR(lpString$)))
   dll_off
END_FNC

if upper$(StrPAS$(C$)) = "BUTTON" …

while Child% <> 0
   if GetClassName(Child%, PEEK32(ADR(C$)) , len(C$)) > 0
      if upper$(StrPAS$(C$)) = "BUTTON" :' BUTTON / TRAYNOTIFYWND / REBARWINDOW32
'         exit_while
      end_if
   end_if
   Child% = GetWindow(Child% , GW_HWNDNEXT%)
print upper$(StrPAS$(C$))
end_while

{
    //////   Programme réalisé par   \\\\\\\
   /////                               \\\\\
  ///      LLB / DeuSSuM                  \\\
  \\\                (llb44@free.fr)      ///
   \\\\\                               /////
    \\\\\\\                         ///////


 Ce programme d'exemple a été créé par LLB/DeuSSuM (llb44@free.fr).
 Pour toute question, suggestion ou remarque, écrivez-moi !

 Ce petit programme permet à l'utilisateur de modifier
  sa barre des tâches. Il n'est donné qu'à titre explicatif et
  est distribué gratuitement.

 Vous pouvez bien sûr l'utiliser dans vos programmes, le modifier,
 le distribuer (dans sa forme d'origine), mais PAS le vendre !!!

 Si vous le réutilisez, ce serait sympa de me le dire et de m'envoyer
  votre chef-d'oeuvre.
 Si vous trouvez ou connaissez d'autres astuces pour modifier quoi que ce
  soit dans la barre des tâches, faîtes-le moi savoir, notamment si vous
  arrivez à changer le nom du bouton "Démarrer".

 Amusez-vous bien !

}
unit main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Menus;

type
  TFrmTaskBar = class(TForm)
    Combo: TComboBox;
    BtStMax: TButton;
    BtStMin: TButton;
    BtStHide: TButton;
    BtStShow: TButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    EdStx: TEdit;
    EdSty: TEdit;
    EdStW: TEdit;
    EdStH: TEdit;
    Button2: TButton;
    procedure EdStxExit(Sender: TObject);
    procedure BtStHideClick(Sender: TObject);
    procedure BtStShowClick(Sender: TObject);
    procedure BtStMaxClick(Sender: TObject);
    procedure BtStMinClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  FrmTaskBar: TFrmTaskBar;

implementation

{$R *.DFM}

procedure Task(ClassName: string;nCmdShow: Integer);
// Affiche la partie spécifiée par ClassName
//  avec l'état donné par nCmdShow.
// Pour connaître toutes les valeurs possibles de nCmdShow
// voir dans l'unité Windows ou dans l'aide "SDK Windiows"
var
  Child : hWnd;
  C : Array[0..127] of Char;
Begin
// C'est toute la barre des tâches ?
 If ClassName='Shell_TrayWnd'then begin
  ShowWindow(FindWindow('Shell_TrayWnd', NIL),nCmdShow);
  Exit;
 End;
// Sinon, c'est un de ses enfants.
 Child := GetWindow(FindWindow('Shell_TrayWnd', NIL), GW_CHILD);
 While Child <> 0 do begin
  If GetClassName(Child, C, SizeOf(C)) > 0 Then
   If UpperCase(StrPAS(C)) = UpperCase(ClassName)then
     ShowWindow(Child,nCmdShow);
  Child := GetWindow(Child, GW_HWNDNEXT);
 end;
end;

procedure TFrmTaskBar.EdStxExit(Sender: TObject);
// Un TEdit a été changé -> on redessine le bouton démarrer.
var
  Child : hWnd;
  C : Array[0..127] of Char;
Begin
 Child := GetWindow(FindWindow('Shell_TrayWnd', NIL), GW_CHILD);
 While Child <> 0 do Begin
  If GetClassName(Child, C, SizeOf(C)) > 0 Then
   If UpperCase(StrPAS(C)) = 'BUTTON'then
     MoveWindow(Child,StrToInt(EdStx.Text),StrToInt(EdSty.Text),
                StrToInt(EdStW.Text),StrToInt(EdStH.Text),true);
  Child := GetWindow(Child, GW_HWNDNEXT);
 End;
end;

procedure TFrmTaskBar.BtStHideClick(Sender: TObject);
begin
// Cache la partie sélectionnée
 Task(Combo.Text,SW_HIDE);
end;

procedure TFrmTaskBar.BtStShowClick(Sender: TObject);
begin
// Affiche la partie sélectionnée en "normal"
 Task(Combo.Text,SW_NORMAL);
end;

procedure TFrmTaskBar.BtStMaxClick(Sender: TObject);
begin
// Agrandit la partie sélectionnée
 Task(Combo.Text,SW_MAXIMIZE);
end;

procedure TFrmTaskBar.BtStMinClick(Sender: TObject);
begin
// Réduit la partie sélectionnée
 Task(Combo.Text,SW_SHOWMINIMIZED);
end;

procedure TFrmTaskBar.Button2Click(Sender: TObject);
begin
// FIN - au revoir !
 ShowMessage('Ce programme d''exemple a été réalisé par LLB (llb44@free.fr). '+
             'Il est distribué gratuitement et avec ses sources. '+
             'Il ne peut-être en aucun cas vendu.'#13+
             'Merci de l''avoir utilisé.');
 Close;
end;

procedure TFrmTaskBar.FormCreate(Sender: TObject);
var
  Child : hWnd;
  C : Array[0..127] of Char;
  Rect: TRect; // Position du menu démarrer
Begin
// On cherche d'abord la position et les dimensions du menu démarrer
 Child := GetWindow(FindWindow('Shell_TrayWnd', NIL), GW_CHILD);
 While Child <> 0 do begin
  If GetClassName(Child, C, SizeOf(C)) > 0 Then
   If UpperCase(StrPAS(C)) = 'BUTTON'then
     GetWindowRect(Child,Rect);
  Child := GetWindow(Child, GW_HWNDNEXT);
 end;
// Et on les affecte aux TEdit
 EdStx.Text := '0';
 EdSty.Text := '0';
 EdStw.Text := IntToStr(Rect.Right-Rect.Left);
 EdSth.Text := IntToStr(Rect.Bottom-Rect.Top);
end;

end.

procedure Task(ClassName: string;nCmdShow: Integer);
// Affiche la partie spécifiée par ClassName
//  avec l'état donné par nCmdShow.
// Pour connaître toutes les valeurs possibles de nCmdShow
// voir dans l'unité Windows ou dans l'aide "SDK Windiows"
var
  Child : hWnd;
  C : Array[0..127] of Char;
Begin
// C'est toute la barre des tâches ?
 If ClassName='Shell_TrayWnd'then begin
  ShowWindow(FindWindow('Shell_TrayWnd', NIL),nCmdShow);
  Exit;
 End;
// Sinon, c'est un de ses enfants.
 Child := GetWindow(FindWindow('Shell_TrayWnd', NIL), GW_CHILD);
 While Child <> 0 do begin
  If GetClassName(Child, C, SizeOf(C)) > 0 Then begin
    showmessage(UpperCase(StrPAS(C)));
    If UpperCase(StrPAS(C)) = UpperCase(ClassName)then
      ShowWindow(Child,nCmdShow);
  end;
  Child := GetWindow(Child, GW_HWNDNEXT);
 end;
end;

DIM i%,a$
a$ = "Ceci est un message !"
BORDER_HIDE 0: TOP 0,SCREEN_Y-30: WIDTH 0,SCREEN_X: HEIGHT 0,30
FONT_SIZE 0,20: FONT_BOLD 0: FONT_COLOR 0,180,0,0
i% = TEXT_WIDTH(a$,0)
TaskBar(0): ' cacher la barre
PRINT_LOCATE (SCREEN_X-i%)/2,-3: PRINT "Ceci est un message !"
PAUSE 3000
TaskBar(1): ' restaurer la barre
TERMINATE

SUB TaskBar(of%)
  ' Barre de tâches Windows: of% = 0: cacher, of% = 1: montrer
   DIM_LOCAL TaskbarHandle,lpClassName$,lpWindowName$,null,lpc%,lpw%,ad%
   lpClassName$ = "Shell_traywnd"
   lpWindowName$ = ""
   ad% = ADR(lpClassName$)
   lpc% = 256*256*256*PEEK(ad%+3)+256*256*PEEK(ad%+2)+256*PEEK(ad%+1)+PEEK(ad%)
   ad% = ADR(lpWindowName$)
   lpw% = 256*256*256*PEEK(ad%+3)+256*256*PEEK(ad%+2)+256*PEEK(ad%+1)+PEEK(ad%)
   IF of% <> 0 THEN of% = 5: ' montrer
   DLL_ON "user32.dll"
       TaskbarHandle = DLL_CALL2("FindWindowA",lpc%,lpw% )
       null = DLL_CALL2("ShowWindow",TaskbarHandle,of%)
   DLL_OFF
END_SUB

dim res%, rect%(3), hhhh%
hhhh% = ... <======= handle de la fenêtre
dll_on "User32.dll"
res% = dll_call2("GetWindowRect",hhhh%,adr(rect%))

dim res% , rect%(3), TH% , lpCN$ , lpWN$ , lpc% , lpw% , ad% , px% , py% , h% , l%

LABEL menu
 
lpCN$="Shell_traywnd" : ad%=ADR(lpCN$)
lpc%=256*256*256*PEEK(ad%+3)+256*256*PEEK(ad%+2)+256*PEEK(ad%+1)+PEEK(ad%)

lpWN$="" : ad%=ADR(lpWN$)
lpw%=256*256*256*PEEK(ad%+3)+256*256*PEEK(ad%+2)+256*PEEK(ad%+1)+PEEK(ad%)
 
DLL_ON "user32.dll"
TH% = DLL_CALL2("FindWindowA",lpc%,lpw% )
res% = dll_call2("GetWindowRect",TH%,adr(rect%))
DLL_OFF

IF SGN(rect%(0))=-1 THEN px%=0 : py%=0 : l%=rect%(0)*-1 : h%=rect%(3)                                  : ' Barre sur le coté gauche
IF rect%(2)>SCREEN_X THEN px%=rect%(2)-((rect%(2)-rect%(0))*2) : py%=0 : l%=rect%(0) : h%=rect%(3)      : ' Barre sur le coté droit
IF SGN(rect%(1))=-1 THEN px%=0 : py%=0 : l%=rect%(2) : h%=rect%(3)-rect%(1)                            : ' Barre en haut
IF rect%(3)>SCREEN_Y THEN py%=rect%(1)-(rect%(3)-rect%(1)) : px%=0 : l%=rect%(2) : h%=rect%(3)-rect%(1) : ' Barre en bas

BORDER_HIDE 0 : LEFT 0,px% : TOP 0,py% : WIDTH 0,l% : HEIGHT 0,h%
BUTTON 1 : LEFT 1,5 : TOP 1,5 : CAPTION 1,"QUITTER" : ON_CLICK 1,menu

END

menu:
  TERMINATE