Delphi 建立文件关联的例子.rar

Delphi文件关联的创建，我们直接来看代码吧：　　begin　　Reg:=TRegistry.Create;　　Reg.RootKey:=HKEY_CLASSES_ROOT;　　Reg.OpenKey(FileExt,True);　　Reg.WriteString('',FileType);　　Reg.WriteString('ContentType',MIMEType);　　Reg.OpenKey('shell\open\command',True);　　Reg.WriteString(''