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

← →
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]

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

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