Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.12;
Скачать: CL | DM;

Вниз

Как установить на фаил специфическую иконку?   Найти похожие ветки 

 
X-shadow ©   (2004-10-31 09:30) [0]

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


 
abc   (2004-10-31 12:15) [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;



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

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

Наверх




Память: 0.46 MB
Время: 0.027 c
4-1099137379
Scorpion
2004-10-30 15:56
2004.12.12
Fiber


1-1101544263
Александр В.
2004-11-27 11:31
2004.12.12
Сохранение позиции TTreeView после обновления


14-1101284415
Ricko
2004-11-24 11:20
2004.12.12
"На самом деле"


1-1101261730
Bobby Digital
2004-11-24 05:02
2004.12.12
проверить на тип


1-1101501257
alo
2004-11-26 23:34
2004.12.12
преобразование Variant в TGUID и наоборот