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

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;