并且如果屏蔽windows的任务栏:
在你的Form创建过程(oncreate)中加入:
ShowWindow(FindWindow('Progman', nil), SW_HIDE);
ShowWindow(FindWindow('Shell_TrayWnd',nil),SW_hide);
SystemParametersInfo(Spi_screensaverrunning,1,@li,0);
SetWindowLong(Handle, GWL_STYLE,
GetWindowLong(Handle,GWL_STYLE) AND
NOT WS_CAPTION);
不过可千万别忘了在退出过程中加入这个:
SystemParametersInfo(spi_screensaverrunning,0,@li,0);
ShowWindow(FindWindow('Progman', nil), SW_Show);{隐藏}
ShowWindow(FindWindow('Shell_TrayWnd',nil),SW_show);
其中li为integer;