www.pudn.com > Pubwin 伪装程序.rar > pubwin.pas

unit pubwin; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, Menus, ImgList, CoolTrayIcon; 
 
type 
  TForm1 = class(TForm) 
    PopupMenu1: TPopupMenu; 
    show: TMenuItem; 
    save: TMenuItem; 
    change: TMenuItem; 
    N4: TMenuItem; 
    N1: TMenuItem; 
    N3: TMenuItem; 
    N5: TMenuItem; 
    N6: TMenuItem; 
    N7: TMenuItem; 
    N8: TMenuItem; 
    ImageList1: TImageList; 
    N9: TMenuItem; 
    cool: TCoolTrayIcon; 
    N2: TMenuItem; 
    N10: TMenuItem; 
    N11: TMenuItem; 
    procedure FormCreate(Sender: TObject); 
    procedure FormShow(Sender: TObject); 
    procedure N11Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  Form1: TForm1; 
 
implementation 
 
{$R *.dfm} 
 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
form1.Width:=0; 
form1.Height:=0; 
end; 
 
procedure TForm1.FormShow(Sender: TObject); 
begin 
//隐藏应用程序窗口在任务栏上的显示 
ShowWindow(Application.Handle, SW_HIDE); 
 
end; 
 
procedure TForm1.N11Click(Sender: TObject); 
begin 
n11.Checked:=not n11.Checked; 
end; 
 
end.