怎样让窗口占整个桌面没有工具栏(10分)

  • 主题发起人 主题发起人 tt123tt
  • 开始时间 开始时间
T

tt123tt

Unregistered / Unconfirmed
GUEST, unregistred user!
怎样让窗口占整个桌面没有工具栏
 
窗体onactive的时候,最大化,然后
让任务栏隐藏掉,
procedure TForm1.FormActivate(Sender: TObject);
var
WndHandle : THandle;
begin
WndHandle := FindWindow('Shell_TrayWnd', nil);
// 隐藏任务栏
ShowWindow(WndHandle, SW_HIDE);
end;
 
No Test But It's Wrong
 
to:阿尔卑斯
到是可以,但怎样恢复过来呢?
 
ShowWindow(WndHandle, SW_NORMAL);
//恢复
 
后退
顶部