请问用什么函数隐藏和显示任务栏？？

Question

procedure TForm1.FormCreate(Sender: TObject);
begin
    Setwindowlong(application.handle,gwl_exstyle,ws_ex_toolwindow);
end;

Answer 1

ShowWindow(FindWindow('Shell_TrayWnd', Nil), SW_HIDE);//隐藏
ShowWindow(FindWindow('Shell_TrayWnd', Nil), SW_SHOW);//显示

Answer 2

ShowWindow(FindWindow('Shell_TrayWnd', Nil), SW_HIDE);//隐藏
ShowWindow(FindWindow('Shell_TrayWnd', Nil), SW_SHOW);//显示

Answer 3

但是按下 Ctl旁边的win键还是要把开始菜单弹出来，怎么使win按键失效呢？谢谢，可不可以使用类似
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
      if (Key=VK_F4) and (ssAlt in shift) then
        Key :=0;
end;
来屏蔽，key=?呢

Answer 4

//隐藏任务栏
procedure hideTaskbar;
var
  wndHandle : THandle;
  wndClass : array[0..50] of Char;
begin
  StrPCopy(@wndClass[0], 'Shell_TrayWnd');
  wndHandle := FindWindow(@wndClass[0], nil);
  ShowWindow(wndHandle, SW_HIDE); // This hides the taskbarend;
end;//显示任务栏
procedure showTaskbar;
var
  wndHandle : THandle;
  wndClass : array[0..50] of Char;
begin
  StrPCopy(@wndClass[0], 'Shell_TrayWnd');
  wndHandle := FindWindow(@wndClass[0], nil);
  ShowWindow(wndHandle, SW_RESTORE); // This restores the taskbarend
end;

Answer 5

隐藏任务栏 ShowWindow(FindWindow('Shell_TrayWnd', nil),SW_HIDE); 改为 SW_SHOW 则显示任务栏

Answer 6

隐藏任务栏 ShowWindow(FindWindow('Shell_TrayWnd', nil),SW_HIDE); 改为 SW_SHOW 则显示任务栏

Answer 7

隐藏任务栏 ShowWindow(FindWindow('Shell_TrayWnd', nil),SW_HIDE); 改为 SW_SHOW 则显示任务栏

Answer 8

//隐藏任务栏
procedure hideTaskbar;
var
  wndHandle : THandle;
  wndClass : array[0..50] of Char;
begin
  StrPCopy(@wndClass[0], 'Shell_TrayWnd');
  wndHandle := FindWindow(@wndClass[0], nil);
  ShowWindow(wndHandle, SW_HIDE); // This hides the taskbarend;
end;//显示任务栏
procedure showTaskbar;
var
  wndHandle : THandle;
  wndClass : array[0..50] of Char;
begin
  StrPCopy(@wndClass[0], 'Shell_TrayWnd');
  wndHandle := FindWindow(@wndClass[0], nil);
  ShowWindow(wndHandle, SW_RESTORE); // This restores the taskbarend
end;

Answer 9

使“开始”按钮失效 
{ Enable: }
EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),0,'Button',nil),TRUE);
{ Disable: }
EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),0,'Button',nil),FALSE);//隐藏任务栏
procedure hideTaskbar;
var
  wndHandle : THandle;
  wndClass : array[0..50] of Char;
begin
  StrPCopy(@wndClass[0], 'Shell_TrayWnd');
  wndHandle := FindWindow(@wndClass[0], nil);
  ShowWindow(wndHandle, SW_HIDE); // This hides the taskbarend;
end;//显示任务栏
procedure showTaskbar;
var
  wndHandle : THandle;
  wndClass : array[0..50] of Char;
begin
  StrPCopy(@wndClass[0], 'Shell_TrayWnd');
  wndHandle := FindWindow(@wndClass[0], nil);
  ShowWindow(wndHandle, SW_RESTORE); // This restores the taskbarend
end;

Answer 10

使“开始”按钮失效 
{ Enable: }
EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),0,'Button',nil),TRUE);
{ Disable: }
EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),0,'Button',nil),FALSE);//隐藏任务栏
procedure hideTaskbar;
var
  wndHandle : THandle;
  wndClass : array[0..50] of Char;
begin
  StrPCopy(@wndClass[0], 'Shell_TrayWnd');
  wndHandle := FindWindow(@wndClass[0], nil);
  ShowWindow(wndHandle, SW_HIDE); // This hides the taskbarend;
end;//显示任务栏
procedure showTaskbar;
var
  wndHandle : THandle;
  wndClass : array[0..50] of Char;
begin
  StrPCopy(@wndClass[0], 'Shell_TrayWnd');
  wndHandle := FindWindow(@wndClass[0], nil);
  ShowWindow(wndHandle, SW_RESTORE); // This restores the taskbarend
end;

Answer 11

不晚不晚！ 如果你知道如何屏蔽win按键..谢谢！

Answer 12

谢谢各位鼎力帮忙！
sean2000(地宽天高) ：虽然开始按钮失效，但是按win还是可以弹出开始菜单，如何屏蔽win呢？

Answer 13

var
  Temp: Integer;
SystemParametersInfo(SPI_ScreenSaverRunning,1,@Temp,0);