DELPHI 隐藏IE窗口
来源:百度知道 编辑:UC知道 时间:2024/09/28 13:17:32
隐藏窗口需要调用两个API函数,需要uses windows;
FindWindow查找窗口,SHowWindow隐藏和显示窗口。
我下面的例子程序搜索所有窗口,并且通过右键点击系统图标进行显示/隐藏的切换,由于使用了TRAYICON空间,你可能编译不能通过,但是可以了解相关语句的语法:
unit winmanu;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, TrayIcon;
type
TForm1 = class(TForm)
TrayIcon1: TTrayIcon;
PopupMenu1: TPopupMenu;
Exit1: TMenuItem;
N1: TMenuItem;
procedure Exit1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure PopupMenu1Popup(Sender: TObject);
private
{ Pri