Главная страница
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.031 c
1-1101608873
noob
2004-11-28 05:27
2004.12.12
Event


3-1100436082
metallic
2004-11-14 15:41
2004.12.12
Ексель и делфи


4-1099137379
Scorpion
2004-10-30 15:56
2004.12.12
Fiber


4-1098688328
VZup
2004-10-25 11:12
2004.12.12
SetWindowText - не отправляется в Edit


1-1101896951
Алексей
2004-12-01 13:29
2004.12.12
графика