| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как установить на фаил специфическую иконку? [D6, WinXP]

X-shadow ©   (2004-10-31 09:30:00) 

Допустим ACDSee устанавливает на все графические файлы иконку с глазом. Как сделать подобное?

---

abc   (2004-10-31 12:15:00) [1]

procedure TForm1.Button4Click(Sender: TObject);
var Reg: TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CLASSES_ROOT;
//...........MP3.........................
Reg.OpenKey('.MP3' , True);
Reg.WriteString('', 'BMPfile');
Reg.CloseKey;

Reg.CreateKey('MP3'+'file_cyd');
Reg.OpenKey('MP3file\DefaultIcon', True);
Reg.WriteString('', Application.ExeName + ',0');
Reg.CloseKey;
Reg.OpenKey('MP3file\shell\open\command', True);
Reg.WriteString('', Application.ExeName + ' "%1"');
Reg.CloseKey;
//...................WAV........................
Reg.OpenKey('.WAV' , True);
Reg.WriteString('', 'BMPfile');
Reg.CloseKey;

Reg.CreateKey('WAV'+'file_cyd');
Reg.OpenKey('WAVfile\DefaultIcon', True);
Reg.WriteString('', Application.ExeName + ',0');
Reg.CloseKey;
Reg.OpenKey('WAVfile\shell\open\command', True);
Reg.WriteString('', Application.ExeName + ' "%1"');
Reg.CloseKey;
//...............................
Reg.Free;
end;

---

Наверх