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;

界面: