一個從EXE、DLL檔案中提取、存取圖示完整程式 (轉)

一個從EXE、DLL檔案中提取、存取圖示完整程式 (轉)[@more@]

  作為一名員，會經常為製作、設計程式圖示費盡心思，當我們看到許多應用的圖示非常漂亮的時候，是多麼的羨慕！我們可不可以借鑑一下他們的圖示？完全可以！我們利用 ExtractIcon 就能夠輕鬆地從ICO或可檔案以及DLL檔案中提取圖示。

  下面的程式碼示範了一個完整的提取圖示、圖示的程式：
unit UFoconGrabber;
interface
uses
  , Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, API, ExtDlgs;
type
  TForm1 = class(TForm)
  Image1: TImage;
  btNextIcon: TButton;
  Label1: TLabel;
  EditFileName: TEdit;
  btBowserFile: TButton;
  OpenDialog1: TOpenDialog;
  btSaveIco: TButton;
  SavePictureDialog1: TSavePictureDialog;
  btPrevirousIcon: TButton;
  procedure btNextIconClick(Sender: T);
  procedure btBowserFileClick(Sender: TObject);
  procedure btSaveIcoClick(Sender: TObject);
  procedure btPrevirousIconClick(Sender: TObject);
  private
  { Private declarations }
  public
  { Public declarations }
  Procedure MoveIconIndex(Const OperateString:String);
  end;
var
  Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.MoveIconIndex(Const OperateString:String);
const
 I : Integer = 0;
 FileName : String = '';
var
 Count : Integer;
begin
 if( FileName <> EditFileName.Text ) then
  begin
  FileName := EditFileName.Text;
  I := 0;
  end
 else
  if OperateString='MoveNextIcon' then
  Inc(I)
  else
  begin
  if I>0 then
  dec(I);
  end;
//得到總的圖示數目
 Count := ExtractIcon( Application.Handle, PChar(FileName),$FFFFFFFF);
 if( I < Count ) then
  Image1.Picture.Icon.Handle :=
  ExtractIcon( Application.Handle, PChar(FileName), I ) // I為圖示的
 else
  ShowMessage('此檔案沒有更多的圖示資源！' );
end;
procedure TForm1.btNextIconClick(Sender: TObject);
begin
 MoveIconIndex('MoveNextIcon');
end;
procedure TForm1.btBowserFileClick(Sender: TObject);
begin
  try
  OpenDialog1.Title:='選擇EXE檔案或DLL檔案：';
  OpenDialog1.Filter:='提取檔案(*.EXE;*.DLL;*.ICO)|*.DLL;*.EXE;*.ICO|All files (*.*)|*.*';
  OpenDialog1.FilterIndex:=1;
  if OpenDialog1.Execute then
  EditFileName.Text :=OpenDialog1.FileName;
  MoveIconIndex('MoveNextIcon'); 
  except
  exit;
  end;

end;

procedure TForm1.btSaveIcoClick(Sender: TObject);
begin
  SavePictureDialog1.DefaultExt := GraphicExtension(TIcon);
  SavePictureDialog1.Filter := GraphicFilter(TIcon);
  if SavePictureDialog1.Execute then
  image1.Picture.SaveToFile(SavePictureDialog1.FileName);
end;
procedure TForm1.btPrevirousIconClick(Sender: TObject);
begin
  MoveIconIndex('MovePrevIcon');
end;
end.
  OK!，這樣我們使用TImage.Picture.SaveToFile方法就可以很容易地將圖示儲存到單獨的檔案中，然後再利用Image Editor作適量的修改即可！