Вниз
Скачать: CL | DM;

Регистрация своего расширения файла с указанием описания типа.   Найти похожие ветки 

 
AlexanderMS ©   (2007-06-02 18:25) [0]

Знаю, как вообще зарегистрировать свой тип файла. Но не знаю, как при регистрации указать текст, который будет отображаться в Проводнике в поле "Тип файла". Посмотрел у некоторых расширений в реестре, там есть свойство PersistentHandler, где указан GUID, и потом отдельно в "папке" под названием этого GUID хранится описание типа.

Может, можно как-нибудь проще это сделать? Если нет, то что, свой GUID генерировать? А вдруг он совпадёт с каким-нибудь ещё на другом компьютере? И вообще есть ли такое право - "забивать" GUID?


 
DVM ©   (2007-06-02 18:31) [1]


> А вдруг он совпадёт с каким-нибудь ещё на другом компьютере?

это вряд ли.


> И вообще есть ли такое право - "забивать" GUID?

Пожалей его.


procedure RegisterApp;
var
 Reg: TRegistry;
begin
 Reg := Tregistry.Create;
 try
   try
     Reg.RootKey := HKEY_CLASSES_ROOT;
     if Reg.OpenKey("\.ext\", true) then
     begin
       Reg.WriteString("", "Project1.DAT");
       Reg.CloseKey;
     end;

     if Reg.OpenKey("\Project1.ext\",true) then
     begin
       Reg.WriteString("", "Ìîé òèï ôàéëà");
       Reg.CloseKey;
     end;

     if Reg.OpenKey("\Project1.ext\shell\open\command\",true) then
     begin
       Reg.WriteString("", """ + ParamStr(0) +"" "%1"");
       Reg.CloseKey;
     end;

     if Reg.OpenKey("\Project1.ext\DefaultIcon\",true) then
     begin
       Reg.WriteString("", ParamStr(0)+ ",2");
       Reg.CloseKey;
     end;
   
   except
   end;
 finally
   Reg.Free;
 end;
end;


 
AlexanderMS ©   (2007-06-02 18:36) [2]


> "Ìîé òèï ôàéëà"

Прошу прощения за вопрос: это - тип файла?


 
AlexanderMS ©   (2007-06-02 18:38) [3]

"òèï ôàéëà" = "тип файла". Sorry.


 
DVM ©   (2007-06-02 18:42) [4]


> AlexanderMS ©  

да, это тип файла. Там еще замени в одном месте "Project1.DAT" на "Project1.ext"


 
AlexanderMS ©   (2007-06-02 18:43) [5]

DVM ©  Большое спасибо!



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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.016 c
15-1180298315
WEF
2007-05-28 00:38
2007.06.24
На чем опаснее ездить: на автомобиле или на мотоцикле?


11-1162999391
TAHKEP
2006-11-08 18:23
2007.06.24
SelStart всегда равен 0 в KOLListBox


3-1173818224
Дмитрий А.
2007-03-13 23:37
2007.06.24
Вывод в DBGrid только что созданного столбца в БД Access


11-1163272588
kolusr
2006-11-11 22:16
2007.06.24
KOLSocket свойство Сount


15-1180521426
lopi
2007-05-30 14:37
2007.06.24
Как это делается?




   Наверх