1*cdf0e10cSrcweir@ECHO OFF 2*cdf0e10cSrcweirIF '%1'==' GOTO End 3*cdf0e10cSrcweirIF NOT EXIST %1\. GOTO Module_Error 4*cdf0e10cSrcweir 5*cdf0e10cSrcweirSET OUTPUT=%1\OpenWith.SCP 6*cdf0e10cSrcweir 7*cdf0e10cSrcweirSET FILE=%@FILEOPEN[supported_extensions.txt,read,t] 8*cdf0e10cSrcweir 9*cdf0e10cSrcweirECHO // "OpenWith" Windows Registry keys for extensions supported by %1 > %OUTPUT% 10*cdf0e10cSrcweirECHO. >> %OUTPUT% 11*cdf0e10cSrcweir 12*cdf0e10cSrcweir:While_Read_File 13*cdf0e10cSrcweirSET LINE=%@FILEREAD[%FILE%] 14*cdf0e10cSrcweirIF '%LINE%'=='' GOTO While_Read_File 15*cdf0e10cSrcweirIF '%@LEFT[1,%LINE%]'==';' GOTO While_Read_File 16*cdf0e10cSrcweirIF '%LINE%'=='**EOF**' GOTO End_Read_File 17*cdf0e10cSrcweir 18*cdf0e10cSrcweirIF NOT '%@LEFT[1,%LINE%]'=='[' GOTO Register_Extension 19*cdf0e10cSrcweir 20*cdf0e10cSrcweirSET MODULE=%@UPPER[%@WORD["[]",0,%LINE%]] 21*cdf0e10cSrcweirGOTO While_Read_File 22*cdf0e10cSrcweir 23*cdf0e10cSrcweir:Register_Extension 24*cdf0e10cSrcweirIF NOT '%MODULE%'=='%@UPPER[%1]' GOTO While_Read_File 25*cdf0e10cSrcweir 26*cdf0e10cSrcweirECHO // .%LINE% >> %OUTPUT% 27*cdf0e10cSrcweirECHO RegistryItem gid_Regitem_OpenOffice_%LINE%_OpenWith_%1 >> %OUTPUT% 28*cdf0e10cSrcweirECHO ParentID = PREDEFINED_HKEY_CLASSES_ROOT; >> %OUTPUT% 29*cdf0e10cSrcweirECHO Subkey = ".%LINE%\OpenWithProgIDs"; >> %OUTPUT% 30*cdf0e10cSrcweirECHO ModuleID = gid_Module_Prg_%1_Bin; >> %OUTPUT% 31*cdf0e10cSrcweirECHO Name = "opendocument.%1Document.1"; >> %OUTPUT% 32*cdf0e10cSrcweirECHO Value = "%PRODUCTNAME %PRODUCTVERSION"; >> %OUTPUT% 33*cdf0e10cSrcweirECHO End >> %OUTPUT% 34*cdf0e10cSrcweirECHO. >> %OUTPUT% 35*cdf0e10cSrcweir 36*cdf0e10cSrcweirREM GOTO End_Read_File 37*cdf0e10cSrcweirGOTO While_Read_File 38*cdf0e10cSrcweir 39*cdf0e10cSrcweir:End_Read_File 40*cdf0e10cSrcweirSET ERROR=%@FILECLOSE[%FILE%] 41*cdf0e10cSrcweirGOTO End 42*cdf0e10cSrcweir 43*cdf0e10cSrcweir:Help 44*cdf0e10cSrcweirECHO Usage: %0 Module 45*cdf0e10cSrcweirECHO Example: %0 Calc 46*cdf0e10cSrcweirGOTO End 47*cdf0e10cSrcweir 48*cdf0e10cSrcweir:Module_Error 49*cdf0e10cSrcweirECHO Module %1 not found ! 50*cdf0e10cSrcweirGOTO End 51*cdf0e10cSrcweir 52*cdf0e10cSrcweir:End 53