4 Dim g_PC_setting_default_Path
\r
5 g_PC_setting_default_Path = g_SrcPath
\r
8 Function Setting_getEditorCmdLine(i)
\r
11 If VarType( i ) = vbString Then
\r
12 ret = GetSearchOpenCmdLine( i ) '// i is PathAndName
\r
15 g_sh.ExpandEnvironmentStrings( "%ProgramFiles%\sakura\sakura.exe" ), _
\r
16 g_sh.ExpandEnvironmentStrings( "%myhome_mem%\prog\sakura\sakura\sakura.exe" ), _
\r
17 g_sh.ExpandEnvironmentStrings( "%WinDir%\notepad.exe" ) )
\r
18 ret = GetExistPathInSetting( paths, "Setting_getEditorCmdLine" )
\r
19 If i = 1 Then ret = """" + ret + """ ""%1"""
\r
21 If InStr( ret, "sakura.exe" ) > 0 Then
\r
22 ret = """" + ret + """ -Y=%d ""%1"""
\r
24 ret = """" + ret + """ ""%1"""
\r
29 ' pathes(0) = g_sh.ExpandEnvironmentStrings( "%ProgramFiles%\search_open\search_open.exe" )
\r
30 ' pathes(1) = g_sh.ExpandEnvironmentStrings( "%myhome_mem%\prog\search_open\search_open\search_open.exe" )
\r
31 ' pathes(2) = g_sh.ExpandEnvironmentStrings( "%ProgramFiles%\sakura\sakura.exe" )
\r
32 ' pathes(3) = g_sh.ExpandEnvironmentStrings( "%myhome_mem%\prog\sakura\sakura\sakura.exe" )
\r
33 ' pathes(4) = g_sh.ExpandEnvironmentStrings( "%WinDir%\notepad.exe" )
\r
35 g_sh.ExpandEnvironmentStrings( "%ProgramFiles%\sakura\sakura.exe" ), _
\r
36 g_sh.ExpandEnvironmentStrings( "%myhome_mem%\prog\sakura\sakura\sakura.exe" ), _
\r
37 g_sh.ExpandEnvironmentStrings( "%WinDir%\notepad.exe" ) )
\r
38 ret = GetExistPathInSetting( paths, "Setting_getEditorCmdLine" )
\r
39 If InStr( ret, "search_open.exe" ) > 0 Then
\r
40 ret = """" + ret + """ ""%1#%2"""
\r
42 ret = """" + ret + """ ""%1"""
\r
45 Setting_getEditorCmdLine = ret
\r
49 Function Setting_getDiffCmdLine(i)
\r
52 pathes(0) = g_sh.ExpandEnvironmentStrings( "%ProgramFiles%\Rekisa\Rekisa.exe" )
\r
53 pathes(1) = g_sh.ExpandEnvironmentStrings( "%myhome_mem%\prog\Rekisa\Rekisa\Rekisa.exe" )
\r
54 ret = GetExistPathInSetting( pathes, "Setting_getDiffCmdLine" )
\r
55 If i = 2 Then ret = """" + ret + """ ""%1"" ""%2"""
\r
56 If i = 3 Then ret = """" + ret + """ ""%1"" ""%2"" ""%3"""
\r
57 Setting_getDiffCmdLine = ret
\r
61 Sub Setting_openFolder( Path )
\r
62 echo ">Open folder """ + Path + """"
\r
63 If GetOSVersion = 6.0 Then
\r
64 echo "Open folder need Sleep on Vista..."
\r
68 If g_fs.FolderExists( Path ) Then
\r
69 g_sh.Run "explorer """ + Path + """"
\r
70 ElseIf g_fs.FileExists( Path ) Then
\r
71 g_sh.Run "explorer /SELECT, """ + Path + """"
\r
73 Err.Raise 1,, """" + Path + """
\82ª
\8c©
\82Â
\82©
\82è
\82Ü
\82¹
\82ñ
\81B"
\r