Delphi 控制窗口显示隐藏

本文整理自网络，侵删。

 

procedure ChangeAppWindow(const Handle: THandle; const SetAppWindow, RestoreVisibility: Boolean);
var
  Style: Integer;
  WasVisible, WasIconic: Boolean;
begin
  Style := GetWindowLong(Handle, GWL_EXSTYLE);
  if (SetAppWindow and (Style and WS_EX_APPWINDOW = 0)) or (not SetAppWindow and (Style and WS_EX_APPWINDOW = WS_EX_APPWINDOW)) then
  begin

    WasVisible := IsWindowVisible(Handle);
    if WasVisible or WasIconic then
    begin
      ShowWindow(Handle, SW_HIDE);
    end
    else
    begin
        ShowWindow(Handle, SW_SHOW);
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   ChangeAppWindow(form1.Handle, False, False);


end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ChangeAppWindow(form1.Handle, True, True);
end;

 

相关阅读 >>

Delphi 禁用启用网卡

Delphi xe2获取文件的 md5、crc、sha-1、sha-256、sha-512

Delphi package

Delphi 利用http的post方法做个在线翻译的小工

Delphi inc () 计数用法

Delphi 获得指定进程的id号

Delphi 对提交参数编码

Delphi实现抓屏压缩并保存桌面图片

createremotethread远程注入例子

Delphi indy 组件包里的 idhttp 组件使用 get 方法下载文件限速的方法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 控制窗口显示隐藏