ftwsnow

摘要： uses System.Win.Registry,Winapi.ShlObj;procedure TForm1.Button3Click(Sender: TObject);begin RegisterFileType('ftw',Application.ExeName) ;end;procedure RegisterFileType(ExtName:String; AppName:String);var reg:TRegistry;begin reg := TRegistry.Create; try reg.RootKey := HKEY_CLASSES_ROOT; reg.. 阅读全文