Текущий архив: 2004.10.03;
Скачать: CL | DM;

Вниз

Иконки   Найти похожие ветки 

← →
Hyboid   (2004-08-23 13:25) [0]

Привязка определенного расширения файла к приложению влечет за собой изменение иконки этого файла. Как ее определить?

---

← →
GrayFace ©   (2004-08-23 14:01) [1]

В RegEdit:<br/>Смотришь HKEY_CLASSES_ROOT\расширение(например, .txt)\(Значение по умолчанию) - например, это &quot;txtfile&quot;.<br/>Смотришь HKEY_CLASSES_ROOT\txtfile\DefaultIcon\(Значение по умолчанию) - иконка.

---

← →
_student   (2004-08-23 14:10) [2]

Еще можно так<br/><br/><code>unit Unit1;<br/><br/>interface<br/><br/>uses<br/> &#xA0;Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br/> &#xA0;Dialogs, StdCtrls, ShellAPI, ExtCtrls, ImgList;<br/><br/>type<br/> &#xA0;TForm1 = class(TForm)<br/> &#xA0; &#xA0;Button1: TButton;<br/> &#xA0; &#xA0;Image1: TImage;<br/> &#xA0; &#xA0;ImageList1: TImageList;<br/> &#xA0; &#xA0;procedure Button1Click(Sen<span style="background-color: yellow">der</span>: TObject);<br/> &#xA0;private<br/> &#xA0; &#xA0;{ Private declarations }<br/> &#xA0;public<br/> &#xA0; &#xA0;{ Public declarations }<br/> &#xA0;end;<br/><br/>var<br/> &#xA0;Form1: TForm1;<br/><br/>implementation<br/><br/>{$R *.dfm}<br/><br/>procedure TForm1.Button1Click(Sen<span style="background-color: yellow">der</span>: TObject);<br/>var<br/> &#xA0;ShInfo: TSHFileInfo;<br/> &#xA0;sysimagelist: uint;<br/> &#xA0;SFI: TSHFileInfo;<br/>begin<br/> &#xA0; sysimagelist := SHGetFileInfo(&quot;&quot;, 0, SFI, sizeof(tshfileinfo), shgfi_sysiconindex or shgfi_largeicon);<br/> &#xA0; SHGetFileInfo(&quot;c:\hello.doc&quot;, 0, ShInfo, sizeof(ShInfo), shgfi_typename or shgfi_sysiconindex);<br/> &#xA0; ImageList1.Handle:=sysimagelist;<br/> &#xA0; ImageList1.GetBitmap(ShInfo.iIcon, Image1.Picture.Bitmap)<br/>end;<br/><br/>end.</code>

---

← →
Hyboid   (2004-08-23 23:48) [3]

Thanx

---

Страницы: 1 вся ветка

Текущий архив: 2004.10.03;
Скачать: CL | DM;

Наверх

Память: 0.62 MB
Время: 0.031 c