Главная страница
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.025 c
1-1101744749
Сор
2004-11-29 19:12
2004.12.12
TextFile


14-1101280576
ИМХО
2004-11-24 10:16
2004.12.12
Для чего создана музыка: чтобы СЛУШАТЬ или чтобы ТАНЦЕВАТЬ?


3-1100237129
Margel
2004-11-12 08:25
2004.12.12
Как заставить DBMemo отдавать в буфер обмена кирилицу?


1-1101249250
Кто---то
2004-11-24 01:34
2004.12.12
Как отследить где именно возникает утечка памяти ?


1-1101900116
ANDREI
2004-12-01 14:21
2004.12.12
sos