Re: [DUG]: Icons.

[Andrew Little]

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. ----- Original Message ----- From: Matthew Comb To: Multiple recipients of list delphi Sent: Wednesday, January 26, 2000 12:09 PM Subject: [DUG]: Icons. Hello,   I'm playing around with writing a util that requires the icons for files that it displays. How do I get access to these icons?   Cheers,   Matt. The Rules Have Changed...Get Paid to Surf the Web! http://www.alladvantage.com/go.asp?refid=ggz487