>これをエクスプローラの関連付けでも完璧に実現する
>ためには，桐を起動する為の特殊な起動ツールを作成
>し使用する

これを実現するためのツールを VBS で作って見ました．
下記のような VBS を作成し，適当なフォルダにおいて
次のような関連付けにすれば，エクスプローラでも
データパス(カーレントフォルダ)を開いたファイルの
パスに設定できます．

関連付けは

開くの場合は
"C:\WINNT\system32\wscript.exe" "C:\Program Files\KIRI\System\KIRI.VBS" /O "%1"
再定義の場合は
"C:\WINNT\system32\wscript.exe" "C:\Program Files\KIRI\System\KIRI.VBS" /D "%1"

桐起動用の VBS は

--- kiri.vbs -------------------------------------------------------------------
Dim WS, FS, Arg
Set WS = WScript.CreateObject("WScript.Shell")
Set FS = WScript.CreateObject("Scripting.FileSystemObject")
Set Arg = WScript.Arguments

Dim KiriPath, KiriExe, File, Name, Path
KiriPath = WS.RegRead("HKLM\SOFTWARE\K3\KIRI\8.0\Path")
KiriExe = KiriPath + "\System\kiri8.exe"

If Arg.Count > 1 Then
  File = Arg(1)
  If FS.FileExists(File) Then
    Name = FS.GetFile(File).Name
    Path = FS.GetFile(File).ParentFolder
    WS.Run("""" + KiriExe + """ /DP """ + Path + """ " + Arg(0) + " """ + Name + """")
  Else
    MsgBox "ファイルが存在しません！"
    WScript.Quit
  End If
ElseIf Arg.Count = 1 then
  File = Arg(0)
  If FS.FileExists(File) Then
    Name = FS.GetFile(File).Name
    Path = FS.GetFile(File).ParentFolder
    WS.Run("""" + KiriExe + """ /DP """ + Path + """ /O """ + Name + """")
  Else
    MsgBox "ファイルが存在しません！"
    WScript.Quit
  End If
Else
  WS.Run("""" + KiriExe + """")
End If

Set Arg= Nothing
Set FS = Nothing
Set WS = Nothing
WScript.Quit
--------------------------------------------------------------------------------

E-Mail

E-Mail

E-Mail