Hierfür ist die Funktion SHGetFileInfo vorgesehen. Das folgende Beispiel zeigt wie das Icon geholt wird und in einem TImage-Objekt angezeigt wird:
//Icon holen
SHFILEINFO shinfo;
SHGetFileInfo("g:\\tespdf.pdf", NULL, &shinfo, sizeof(shinfo), SHGFI_SMALLICON|SHGFI_ICON);
Das Handle des Icon steht nun in shinfo.hIcon zur Verfügung
//Icon in TImage-Objekt anzeigen TIcon *ic=new TIcon(); ic->Handle=shinfo.hIcon; Image1->Picture->Icon=ic; delete ic;