Contrôlez la barre des tâches Windows lors de la programmation Delphi

Dans Windows 9x, en bas de l'écran se trouve la barre des tâches, que les utilisateurs peuvent définir. Si vous cliquez avec le bouton droit sur la barre des tâches et sélectionnez les propriétés, vous pouvez la définir dans la boîte de dialogue pop-up, puis comment contrôler la barre des tâches dans le programme que nous avons compilé?

Remarque: Utilisez les fonctions API FindWindow et SetWindowPOS dans les programmes suivants pour contrôler la cachette et l'affichage de la barre de tâche Windows dans le programme.

Tout d'abord, créez un nouveau projet, placez un bouton1 (la propriété de légende est la barre des tâches cachée) et Button2 (la propriété de légende est la barre des tâches d'affichage) sur le formulaire par défaut, et les autres propriétés restent inchangées, puis entrez le code de programme suivant:

une barre de démarrage de l'unité;

interface

Utilise Windows, Messages, Sysutils, Classes, Graphiques, Contrôles, Formulaires, Dialogues, STDCTRLS;

type tform1 = classe (tform)

Button1: Tbutton;

Button2: TBUTTON;

Procédure Button1Click (expéditeur: tobject);

Procédure Button2Click (expéditeur: tobject);

Procédure FormCreate (expéditeur: tobject);

Private {Déclarations privées}

public {déclarations publiques}

fin;

VAR FORM1: TFORM1; RET: HWND;

implémentation {sr * .dfm}

Procédure TForm1.FormCreate (Sender: Tobject);

Commencer

Ret: = findwindow (′ shell_traywnd ′, ′);

fin;

Procédure tform1.button1click (expéditeur: tobject);

Commencer

SetWindowPos (ret, 0, 0, 0, 0, 0, swp_hidewindow);

fin;

procédure tform1.button2click (expéditeur: tobject);

Commencer

SetWindowPos (ret, 0, 0, 0, 0, 0, swp_showwindow);

fin;

fin.

Vous pouvez maintenant l'exécuter (appuyez sur F9).

Remarque: Le programme ci-dessus a été débogué et passé dans la version chinoise de Windows 98 et Delphi4.0 c / s.