- 223 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/14(土) 13:58:53 ID:Bi/ao9JI0]
- >>222
> xyzzy.exeと同じドライブでOK?
YES!!
やった、うまくいったー。
ついでなので、ドライブ文字がある場合と、変数に何も設定してない場合は
レジストリから読むように対応してみました。
作者さんにパッチおくっととこう。
(export
に
*ahk-exe-dir* を追加して、
(defvar *ahk-exe-dir* nil)
(defun get-ahk-exe-dir ()
(if *ahk-exe-dir*
; *ahk-exe-dir*変数から読む。
; ただし、ポータブル可対応のためドライブが省略されていたら、
; xyzzyのあるドライブ名を付加する。
; 例:
; dドライブからxyzzyを起動していた場合で、
; *ahk-exe-dir* が \soft\autohotkey なら、d:\soft\autohotkey になる
(if (string-match "^\\\\" *ahk-exe-dir*)
(format nil "~A:~A"
(pathname-device (si:system-root))
*ahk-exe-dir*)
*ahk-exe-dir*)
; AutoHotKeyのレジストリから読む
(read-registry "SOFTWARE\\AutoHotkey" "InstallDir" :local-machine)
))
|
 |
