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

Как зарегистрировать в системе свой тип файлов?   Найти похожие ветки 

← →
nv_   (2004-02-06 14:42) [0]

Или как еще сделать чтобы винда открывала данный тип файлов моей программочкой ?

---

← →
Rouse_ ©   (2004-02-06 14:46) [1]

procedure TForm1.RegisterFileType(prefix:String; exepfad:String);
var
reg:TRegistry;
begin
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CLASSES_ROOT;
reg.OpenKey("."+prefix,True);
reg.WriteString("",prefix+"file");
reg.CloseKey;
reg.CreateKey(prefix+"file"); //
reg.OpenKey(prefix+"file\DefaultIcon",True);
reg.WriteString("",exepfad+",0");
reg.CloseKey;
reg.OpenKey(prefix+"file\shell\open\command",True);
reg.WriteString("",exepfad+" "%1"");
reg.CloseKey;
reg.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterFileType("cm", Application.ExeName );
end;



Желаю успехов

---

← →
olookin ©   (2004-02-06 14:46) [2]

в реестр... Вот так например

procedure PutDataToRegistry(FileList,AllFileList: array of Ansistring);
var Reg: TRegistry;
i,j: integer;
s: string;
begin
Reg:=TRegistry.Create;
with Reg do begin
RootKey:=HKEY_LOCAL_MACHINE; LazyWrite:=False;
for i:=0 to Length(AllFileList)-1 do begin

s:="\Software\Classes\";
OpenKey(s+"."+FileList[j],true);
WriteString("","Моя прога "+FileList[j]+"file");
CloseKey;
s:=s+""Моя прога "+FileList[j]+"file";
OpenKey(s+"\DefaultIcon",true);
WriteString("",Application.ExeName+",0");
CloseKey;
OpenKey(s+"\Shell\open\command",true);
WriteString("",Application.ExeName+" %1");
CloseKey;
OpenKey(s+"\Shell\Run with Моя прога\command",true);
WriteString("","""+Application.ExeName+"" "%1"");
CloseKey;
end; Free; end;

end;

---

← →
nv_   (2004-02-06 15:16) [3]

БОЛЬШОЕ СПАСИБО! ;)

---

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

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



Память: 0.45 MB
Время: 0.013 c