请问：如何让程序运行后达到全屏？

Question

隐藏——
ShowWindow(FindWindow('Shell_TrayWnd', ''), SW_HIDE);
显示——
ShowWindow(FindWindow('Shell_TrayWnd', ''), SW_SHOW);或者：
procedure hideTaskbar; //隐藏varwndHandle : THandle;wndClass : array[0..50] of Char;beginStrPCopy(@wndClass[0], 'Shell_TrayWnd');wndHandle := FindWindow(@wndClass[0], nil);ShowWindow(wndHandle, SW_HIDE);　End;

Answer 1

全屏显示,
form的BorderStyle设为bsNone
form的windowstate设为wsMaximized会覆盖widows状态栏在create事件里form1.witdh:=screen.width;
form1.height:=screen.height

Answer 2

或者可以先把Form的WindowState property 设成 wsMaximized,然后加修改
FORM的WIDTH 和HEIGTH 属性，我没试过，不知行不行，

Answer 3

I agree with liuren2001

Answer 4

在formcreate事件中直接定义form的length和Width不就可以了，这样可以不用调用api了

Answer 5

BorderStyle:=bsNone
windowstate:=wsMaximized

Answer 6

最简单的：
BorderIcons.biMaximize := false;
form的windowstate设为wsMaximized

Answer 7

form的windowstate设为wsmaximized
form的borderstyle设为bsnone
在form的oncreate事件中加入以下一行代码
ShowWindow(FindWindow('Shell_TrayWnd', ''), SW_HIDE);
在form的onclose事件中加入以下一行代码
ShowWindow(FindWindow('Shell_TrayWnd', ''), SW_SHOW);