Как показать иконку, ассоциированную с данным типом файла?
Falk0ner, вс, 06/07/2008 - 15:34.
ShellApi функция ExtractAssociatedIcon()
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;
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;
Взято с сайта http://blackman.wp-club.net/
Отправить комментарий