Try...
function RetreiveIcon: HIcon;
var FileInfo: TSHFILEINFO; FilePath: PChar;
begin Result := 0; FilePath := <what ever>;
if ShGetFileInfo(FilePath, 0, FileInfo, SizeOf(FileInfo), SHGFI_ICON or SHGFI_SMALLICON) <> 0 then Result := FileInfo.hIcon; end; Cheers
Andrew.
|
- [DUG]: Icons. Matthew Comb
- RE: [DUG]: Icons. Dion Brown
- Re: [DUG]: Icons. Andrew Little
- Re: [DUG]: Icons. Mason, John
- [DUG]: To Contract Programmers Rohit Gupta