Du kannst die Icons ja selber ermitteln und auf dynamisch erzeugten speedbuttons platzieren.
Icons ermitteln:
Delphi-Quellcode:
var
i:ticon;
fileinfo:tshfileinfo;
begin
i:=ticon.create;
FillChar(FileInfo,SizeOf(FileInfo),#0);
SHGetFileInfo(PChar(FileName),0,FileInfo,SizeOf(FileInfo),SHGFI_ICON or SHGFI_LARGEICON); //auch shgfi_smallicon
i.Handle:=fileinfo.hicon;
i.transparent:=true;
//in I ist jetzt das Icon der Verknüpfung gespeichert
end;