Delphi-Quellcode:
var
SHFileInfo: TSHFileInfo;
const
FullPath = '
D:\Eigene Dateien\Internet\HTML\Startseite\startseite.htm';
begin
SHGetFileInfo(FullPath, 0, SHFileInfo, SizeOf(SHFileInfo), SHGFI_ICON);
Image1.Picture.Icon.Handle := SHFileInfo.hIcon;
end;
zeigt bei mir das
html Icon an, aber nur wenn bei FullPath auch ein vollständiger Dateiname (incl. Pfad) angegeben wurde, *.htm alleine reicht nicht.
Zitat von
flomei:
Zitat von
FriFra:
XP Home, XP pro und Win 2003
Win2003
Hab ich was verpasst oder meinst du Win2k (2000)
Nein er meint wirklich Windows 2003. Heißt aber glaub' ich komplett Windows Server 2003