function Tnt_ExtractAssociatedIconW(hInst: HINST; lpIconPath: PWideChar; var lpiIcon: Word): HICON;

TntWindows

TNT-WARN ExtractAssociatedIcon TNT-WARN ExtractAssociatedIconA TNT-WARN ExtractAssociatedIconW