非常容易的问题!

Question

在Delphi写的程序在运行时,我怎么把windows的任务栏隐藏起来?使应用程序全屏幕显示?各位请帮个忙!

Answer 1

这个简单，，
form1.width = screen.width
form1.height = screen.height
就全屏了，任务栏也看不到了

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  AHandle:THandle;
begin
  BorderStyle:=bsNone;
  //隐藏任务栏句柄
  AHandle:=FindWindow('Shell_TrayWnd',nil);
  ShowWindow(AHandle,SW_HIDE) ;
  Top:=0;
  Left:=0;
  Width:=Screen.Width;
  Height:=Screen.Height;end;procedure TForm1.Button2Click(Sender: TObject);
var
  AHandle:THandle;
begin
  BorderStyle:=bsSingle;
  //显示任务栏句柄
  AHandle:=FindWindow('Shell_TrayWnd',nil);
  ShowWindow(AHandle,SW_NORMAL) ;
  WindowState:=wsMaximized;
end;

Answer 3

gazo(不爱女兵我爱谁) 这位看来是对的,可是当你最小化时怎么办?任务栏没有被释放啊!最小话后又没有恢复啊!

Answer 4

SetWindowPos(Handle,HWND_TOPMOST,0,0,Width,Height,SWP_NOMOVE);