用openDialog选择EXE后提取其ICO然后显示在ListView里

Question

如题

Answer 1

procedure TForm1.getIcon;  
var  
  Count : Integer;  
  FileName : String;  
  i:integer;  
begin  
  if( FileName <> Edit1.Text ) then  
  begin  
    FileName:=Edit1.Text;  
    I := 0;  
    Count := ExtractIcon( Application.Handle, PChar(FileName),  
    $FFFFFFFF );  
  end  
  else  
    Inc(I);  
  if( I < Count ) then  
    Image1.Picture.Icon.Handle :=  
    ExtractIcon( Application.Handle, PChar(FileName), I )  
  else  
    ShowMessage(’没有找到！’ );  
end;  
procedure TForm1.Button1Click(Sender: TObject);  
begin  
    getIcon;  
end;  
procedure TForm1.Button2Click(Sender: TObject);  
begin  
opendialog1.Execute;  
edit1.Text:=opendialog1.FileName;  
end;  
procedure TForm1.Button3Click(Sender: TObject);  
begin  
 savedialog1.Execute;  
 image1.Picture.SaveToFile(savedialog1.FileName);  
   
end; 

Answer 2

ExtractIcon 是哪个单元里的？