如何用API函数从某个EXE或Doc文件中提取出它的图标

[fangheling]

如何用API函数从某个EXE文件中提取出它的图标

[Sephil]

ExtractIcon
ExtractIconEx
没有记错的话

[taxi]

ExtractIcon可提取exe,dll,icl文件的图标
ExtractAssociatedIcon用来提取任何文件的图标，一般用来提取除exe,dll,icl以外的文件图标，具体怎么用看帮助，很简单的。

[王集鹄]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Image1: TImage;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

uses
Registry, ShellApi;

function StrLeft(const mStr: string; mDelimiter: string): string;
begin
Result := Copy(mStr, 1, Pos(mDelimiter, mStr) - 1);
end; { StrLeft }

function StrRight(const mStr: string; mDelimiter: string): string;
begin
if Pos(mDelimiter, mStr) <= 0 then
Result := ''
else Result := Copy(mStr, Pos(mDelimiter, mStr) + Length(mDelimiter), MaxInt);
end; { StrRight }

function FileIcon(mFileName: TFileName): THandle; { 返回文件的图标 }
var
vRegistry: TRegistry;
vExtension, vIconFileName: TFileName;
vIconIndex: Integer;
vExtDescription: string;
var
vBuffer: array[0 .. MAX_PATH] of Char;
vSysPath: string;
begin
Result := 0;
if not FileExists(mFileName) then Exit;

GetSystemDirectory(vBuffer, MAX_PATH + 1);
vSysPath := string(vBuffer) + '\';

vRegistry := TRegistry.Create;
try
vExtension := UpperCase(ExtractFileExt(mFilename));
if (vExtension = '.EXE') or (vExtension = '.ICO') then begin
vIconFileName := mFilename;
vIconIndex := 0;
end else begin
vRegistry.RootKey := HKEY_CLASSES_ROOT;
if vRegistry.OpenKey(vExtension, False) then begin
vExtDescription := vRegistry.ReadString('');
vRegistry.OpenKey('\' + vExtDescription, False);
vRegistry.OpenKey('DefaultIcon', False);
vIconFileName := vRegistry.ReadString('');
vIconIndex := StrToIntDef(StrRight(vIconFileName, ','), 0);
vIconFileName := StrLeft(vIconFileName, ',');
end else begin
vIconFileName := vSysPath + 'Shell32.dll';
vIconIndex := 0;
end;
end;
Result := ExtractIcon(HInstance, PChar(vIconFileName), UINT(vIconIndex));
finally
vRegistry.Free;
end;
end; { FileIcon }

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Image1.Picture.Icon.Handle := FileIcon(OpenDialog1.FileName);
end;

end.