No Windows 9x, na parte inferior da tela está a barra de tarefas, que os usuários podem definir. Se você clicar com o botão direito do mouse na barra de tarefas e selecionar Propriedades, poderá definir na caixa de diálogo pop-up e como controlar a barra de tarefas no programa que compilamos?
Nota: Use as funções API FindWindow e SetWindowPOS nos programas a seguir para controlar o esconderijo e a exibição da barra de tarefas do Windows no programa.
Primeiro, crie um novo projeto, coloque um botão1 (a propriedade da legenda é a barra de tarefa oculta) e o botão2 (a propriedade da legenda é a barra de tarefa de exibição) no formulário padrão e as outras propriedades permanecem inalteradas e, em seguida, digite o seguinte código do programa:
unidade startbar;
interface
usa janelas, mensagens, sysutils, classes, gráficos, controles, formulários, diálogos, stdctrls;
TIPO TForm1 = classe (TForm)
Button1: tbutton;
Button2: tbutton;
Procedimento Button1Click (remetente: Tobject);
Procedimento Button2Click (remetente: Tobject);
Procedimento FormCreate (remetente: Tobject);
Private {Declarações Privadas}
public {Public Declardations}
fim;
Var Form1: TForm1;
implementação {sr *.dfm}
procedimento TForm1.FormCreate (remetente: Tobject);
Começar
Ret: = findWindow (′ shell_traywnd ′, ′);
fim;
Procedimento TForm1.Button1Click (remetente: Tobject);
Começar
SetWindowPos (ret, 0, 0, 0, 0, 0, swp_hidewindow);
fim;
Procedimento TForm1.Button2Click (remetente: Tobject);
Começar
SetWindowPos (ret, 0, 0, 0, 0, 0, swp_showwindow);
fim;
fim.
Agora você pode executá -lo (pressione F9).
Nota: O programa acima foi depurado e aprovado na versão chinesa do Windows 98 e Delphi4.0 C/S.