WhiteUnicorn

	#WhiteUnicorn/ StartPage/ Documentation/DelphiFAQ >

Frequently Asked Questions

displaying an application associated icons

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
  IconIndex := 1;
  Icon := ExtractAssociatedIcon(HInstance,
                               Application.ExeName,
                               IconIndex);
 DrawIcon(Canvas.Handle, 10, 10, Icon);
end;

	#WhiteUnicorn/ StartPage/ Documentation/DelphiFAQ >

	Anastasija aka WhiteUnicorn	LiveJournal PhotoFile