XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Programme: Handle des mit einer Programm- oder Datendatei verbundenen Icons ermitteln
PRFellow-Vorlage
Autor: Thomas Hölzer
Das Handle des mit einer Programm- oder Datendatei verbundenen
Icons ermitteln
Benötigt unbedingt Profan 6.1 (32) wg. Addr-Funktion
Besonders nett: Wenn die Datei nicht existiert oder der
Iconindex (3.Parameter) nicht stimmt, wird ein Standardicon
geliefert. Das Ergebnis der Proc steht in @&(0)
Def w32_ExtractAssociatedIcon(3) !SHELL32,ExtractAssociatedIconA
declare x#

Proc ExtractAssociatedIcon

    Parameters f$,i&
    Declare h&
    Dim x#,255
    String x#,0=f$
    Let i&=1
    Let h&=w32_ExtractAssociatedIcon(%hinstance,x#,Addr(i&))
    Dispose x#
    Return h&

EndProc

Beispiele
Def w32_DrawIcon(4) !USER32,DrawIcon
Cls
WindowTitle Icons von AUTOEXEC.BAT und unbekannter Datei
ExtractAssociatedIcon C:\AUTOEXEC.BAT,1
w32_DrawIcon(%hdc,100,100,&(0))
ExtractAssociatedIcon C:\Diese_Datei_ist_bestimmt_nicht_da.xyz,1
w32_DrawIcon(%hdc,150,100,&(0))
WaitInput