En Windows 9x, en la parte inferior de la pantalla se encuentra la barra de tareas, que los usuarios pueden establecer. Si hace clic con el botón derecho en la barra de tareas y selecciona las propiedades, puede configurarlo en el cuadro de diálogo emergente, ¿cómo controlar la barra de tareas en el programa que compilamos?
Nota: Use las funciones de FindWindow y SetWindowPos en los siguientes programas para controlar la ocultación y visualización de la barra de tareas de Windows en el programa.
Primero, cree un nuevo proyecto, coloque un botón1 (la propiedad de subtítulos es la barra de tareas oculta) y Button2 (la propiedad de subtítulos es la barra de tareas de visualización) en el formulario predeterminado1, y las otras propiedades permanecen sin cambios, y luego ingrese el siguiente código de programa:
Unidad de inicio;
interfaz
Utiliza Windows, mensajes, sysutils, clases, gráficos, controles, formularios, diálogos, stdctrls;
escriba tForm1 = class (tForm)
Botón 1: tbutton;
Button2: tbutton;
procedimiento botón1Click (remitente: tobject);
procedimiento Button2Click (remitente: tobject);
procedimiento formulcreate (remitente: tobject);
privado {declaraciones privadas}
Público {Declaraciones públicas}
fin;
Var Form1: TForm1;
Implementación {sr *.dfm}
procedimiento tForm1.FormCreate (remitente: tobject);
Comenzar
Ret: = findwindow (′ shell_traywnd ′, ′);
fin;
procedimiento tForm1.Button1Click (remitente: tobject);
Comenzar
SetWindowPos (ret, 0, 0, 0, 0, 0, swp_hidewindow);
fin;
procedimiento tForm1.Button2Click (remitente: tobject);
Comenzar
SetWindowPos (ret, 0, 0, 0, 0, 0, swp_showwindow);
fin;
fin.
Ahora puede ejecutarlo (presione F9).
Nota: El programa anterior fue depurado y aprobado en la versión china de Windows 98 y Delphi4.0 C/S.