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 -----
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

Reply via email to