umain.pas

图标提取器源码 非常管用．大家试试

unit UMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, shellapi,ComCtrls, ToolWin, ExtCtrls, CoolTrayIcon, Menus;

type
  TfrmMain = class(TForm)
    Panel1: TPanel;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    CoolTrayIcon1: TCoolTrayIcon;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
   //  procedure WMMove(var msg:tmessage);message WM_Move;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;
  curr:string;    //保存应用程序路径

implementation

uses ExtractFrm;

{$R *.dfm}

procedure TfrmMain.ToolButton1Click(Sender: TObject);
begin
  ExIconForm.Show;
  ExIconForm.ExtractFromFile;
end;

procedure TfrmMain.ToolButton4Click(Sender: TObject);
begin
  ExIconForm.SaveIcon;
end;

procedure TfrmMain.ToolButton5Click(Sender: TObject);
begin
   shellexecute(Handle,'open',Pchar(curr+'\help.chm'),nil,nil,sw_shownormal);
end;

procedure TfrmMain.ToolButton2Click(Sender: TObject);
begin
  small:=true;
  exiconform.ListView1.ViewStyle:=vssmallicon;
    exiconform.ListView1.Clear;
 // exiconform.smallImage.Clear;
  //  exiconform.LargeImage.Clear;
end;

procedure TfrmMain.ToolButton3Click(Sender: TObject);
begin
  small:=false;
  exiconform.ListView1.ViewStyle:=vsicon;
  exiconform.ListView1.Clear;
 // exiconform.smallImage.Clear;
 // exiconform.LargeImage.Clear;
end;

procedure TfrmMain.N1Click(Sender: TObject);
begin
 cooltrayicon1.ShowMainForm;
end;

procedure TfrmMain.N2Click(Sender: TObject);
begin
 cooltrayicon1.HideMainForm;
end;

procedure TfrmMain.N3Click(Sender: TObject);
begin
  application.Terminate;
end;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  application.Icon:=frmMain.Icon;
  getdir(0,curr);
end;

 {procedure TfrmMain.WMMove(var msg: tmessage);
begin
   { inherited;
    exiconform.left:=frmMain.left;
    exiconform.top:=frmMain.top+frmMain.height;
    msg.Result:=0;      //消息已处理
end;
  }
end.