一个从EXE、DLL文件中提取、存取图标完整程序计算机等级考试

文章作者 100test 发表时间 2010:01:01 09:33:04
来源 100Test.Com百考试题网

　　作为一名程序员，会经常为制作、设计程序图标费尽心思，当我们看到许多应用软件的图标非常漂亮的时候，是多么的羡慕！我们可不可以借鉴一下他们的图标？完全可以！我们利用 ExtractIcon API函数就能够轻松地从ICO文件或可执行文件以及DLL文件中提取图标。百考试题－全国最大教育类网站(100test.com)
　　下面的代码示范了一个完整的提取图标、存储图标的程序：
　　unit UFormIconGrabber.
　　interface
　　uses
　　Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
　　StdCtrls, ExtCtrls, ShellAPI, 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: TObject).
　　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