怎样提取任意类型文件的图标？

Question

如：怎样提取*.jpg类型文件的图标？
extracticon()只能提取*.exe文件的图标。

Answer 1

不妨试一下：
uses ShellApi;
procedure TForm1.Button1Click(Sender: TObject);
var
  FileInfo: TSHFileInfo;
begin
  if OpenDialog1.Execute then
  begin
    FileInfo.iIcon := 0;
    SHGetFileInfo(PChar(OpenDialog1.FileName), 0, FileInfo, SizeOf(TSHFileInfo),SHGFI_ICON or SHGFI_SMALLICON);
    Image1.picture.Icon.Handle := FileInfo.hIcon;
  end;
end;

Answer 2

同意wylove
建议:
Icon:ticon;
filename:string;//你的文件
SHGetFileInfo(PChar(FileName), 0, FileInfo, SizeOf(TSHFileInfo),
                      SHGFI_ICON or SHGFI_LARGEICON);
        Icon := TIcon.Create;
        Icon.Handle:=FileInfo.hIcon;
Icon.SavetoFile('d:\ee.ico');