G ggily Unregistered / Unconfirmed GUEST, unregistred user! 2003-07-31 #1 1 程序运行时已经屏蔽掉了任务栏，为何全屏显示时窗体没能覆盖任务栏的位置？ 2。开始菜单还是可以激活，.....如何屏蔽菜单，屏蔽快捷键。（是不是一定要用hook)?
W wcwcw Unregistered / Unconfirmed GUEST, unregistred user! 2003-07-31 #2 procedure TfrmMain.FormCreate(Sender: TObject); begin hTaskbar := FindWindow('Shell_TrayWnd', Nil); ShowWindow(hTaskBar, SW_HIDE); end; 这样应该没有什么问题了， 但是不要把任务栏设置为隐藏！
procedure TfrmMain.FormCreate(Sender: TObject); begin hTaskbar := FindWindow('Shell_TrayWnd', Nil); ShowWindow(hTaskBar, SW_HIDE); end; 这样应该没有什么问题了， 但是不要把任务栏设置为隐藏！
G ggily Unregistered / Unconfirmed GUEST, unregistred user! 2003-07-31 #4 wcwcw： 我就是在程序运行的时候做的屏蔽，可是还是不行，窗体还是没能满屏，留下了原来任务栏的位置。 Form1.Top := 0; Form1.Left :=0; Form1.Width := Screen.Width; Form1.Height := Screen.Height; Shell_TrayWnd:=FindWindow('Shell_TrayWnd',nil); ShowWindow(Shell_TrayWnd,SW_HIDE);
wcwcw： 我就是在程序运行的时候做的屏蔽，可是还是不行，窗体还是没能满屏，留下了原来任务栏的位置。 Form1.Top := 0; Form1.Left :=0; Form1.Width := Screen.Width; Form1.Height := Screen.Height; Shell_TrayWnd:=FindWindow('Shell_TrayWnd',nil); ShowWindow(Shell_TrayWnd,SW_HIDE);
W wcwcw Unregistered / Unconfirmed GUEST, unregistred user! 2003-07-31 #5 procedure TForm1.FormCreate(Sender: TObject); var hTaskbar: Integer; begin hTaskbar := FindWindow('Shell_TrayWnd', Nil); Showwindow(htaskbar, sw_hide); end; procedure TForm1.FormShow(Sender: TObject); begin Form1.Align := alCustom; Form1.Top := 0; form1.Left := 0; Form1.Width := Screen.Width; Form1.Height := Screen.Height; end;
procedure TForm1.FormCreate(Sender: TObject); var hTaskbar: Integer; begin hTaskbar := FindWindow('Shell_TrayWnd', Nil); Showwindow(htaskbar, sw_hide); end; procedure TForm1.FormShow(Sender: TObject); begin Form1.Align := alCustom; Form1.Top := 0; form1.Left := 0; Form1.Width := Screen.Width; Form1.Height := Screen.Height; end;
G ggily Unregistered / Unconfirmed GUEST, unregistred user! 2003-07-31 #6 wcwcw:谢谢！！！明天来给分。 屏蔽系统热键，一定要用钩子吗？有没有简单的办法？
