Главная страница | назад





Article #17646: Displaying a file's associated icon.

 Question and Answer Database

FAQ2646D.txt   Displaying a file's associated icon.
Category   :Windows API
Platform    :All
Product    :All 32 bit  

Question:
How do I display the icon that is associated with a given file
type?

Answer:
Use the ShellApi function ExtractAssociatedIcon() to retrieve the
icon that is associated with the file.

Example:

uses ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
var
  Icon : hIcon;
  IconIndex : word;

begin
 Icon := ExtractAssociatedIcon(HInstance,
                               'C:\SomePath\SomeFile.ext',
                               IconIndex);
 DrawIcon(Form1.Canvas.Handle, 10, 10, Icon);
end;

7/16/98 4:31:28 PM
 

Last Modified: 01-SEP-99