在你的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;