自己改了的:
procedure TFlashExplorer.RegFlashLine(var appname, ext, icon: string);{appname 是要注册的程序名字,不是文件名 ,ext是要关联的后缀,如 '.yue' ,icon 是注册文件的图标,可以写成 application.exename+',0' }
Var Reg : TRegistry; Begin Reg := TRegistry.Create; try with Reg do begin RootKey := HKEY_CLASSES_ROOT; OpenKey('\'+appname, True); WriteString('',appname+' File'); CloseKey;
OpenKey(appname+'\DefaultIcon', True);
WriteString('',icon); //应用程序注册图标 CloseKey; OpenKey(appname+'\shell\open\command', True); WriteString('', Application.ExeName + ' "%1"');//此处的%1的1是告诉系统传递参数的号,看下面读取参数部分 CloseKey; RootKey := HKEY_CLASSES_ROOT; OpenKey('\'+ext, True); // .ext -》你要关联的文件扩展名 WriteString('', appname); CloseKey; end; finally Reg.CloseKey; Reg.Free; end; End;
读取参数:
var
filename:string
begin
filename:=paramstr(1);
//这里filename就是参数拉
end;
|
文件关联相关
最新推荐文章于 2023-03-20 17:27:29 发布