有关任务栏显示

Question

不会没人知道吧，高手帮帮忙

Answer 1

{ 隐藏任务栏 }
procedure TFrom1.MMIHideTaskBarClick(Sender: TObject);
var
  wndHandle : THandle;
  wndClass : array[0..50] of Char;
begin
  StrPCopy(@wndClass[0], 'Shell_TrayWnd');
  wndHandle := FindWindow(@wndClass[0], nil);
  ShowWindow(wndHandle, SW_HIDE);
end;{ 显示任务栏 }
procedure TForm1.MMShowTaskBarClick(Sender: TObject);
var
  wndHandle : THandle;
  wndClass : array[0..50] of Char;
begin
  StrPCopy(@wndClass[0], 'Shell_TrayWnd');
  wndHandle := FindWindow(@wndClass[0], nil);
  ShowWindow(wndHandle, SW_RESTORE);
end;