AutoHotkey の スクリプト

※ 拡張子が .ahk.txt となっているのは .ahk に直して
※ Windows2000で動作確認してるので、他のOSでは動かないかも
※ （環境依存）と書いてあるところは適当なパスとかに書き直して

Jpegファイル圧縮プログラム Carmine を自動で繰り返し実行

※ 必須なソフト
・ Jpegファイル圧縮プログラム Carmine
・ Drag&Drop エミュレートプログラム CraftDrop

※ SendToフォルダに、リンク先を
"AutoHotkeyのパス" "このスクリプトのパス"
としてショートカットをつくっておく

※ フォルダを送ると、ファイルサイズが減らなくなるまで、Carmineを繰り返し実行する

auto-carmine.ahk.txt

CDやDVD内のファイルのリスト管理

※ シェルの dir を使用してます

media-list.ahk.txt

AHKファイルのショートカットを作成

※ SendToフォルダに、リンク先を
"AutoHotkeyのパス" "このスクリプトのパス"
としてショートカットをつくっておく

※ スクリプトを送ると、送ったスクリプトのショートカットを作成する

※ AHKファイルをAutoHotkey.exeに関連付けしている場合は必要無いだろう
※ AHKファイルをテキストエディタに関連付けしている場合とかに意味あり？

make-ahk-shortcut.ahk.txt 

; 2005/10/30 dokas_mg (update 2006/04/20)
#NoEnv
If 0 != 1
  Return
pathScript = %1%
If PathFindExtension(pathScript) != ".ahk"
{
  MsgBox, 48, , 拡張子が .ahk ではありません
  Return
}
pathLink := PathRemoveExtension(pathScript)".lnk"
FileCreateShortcut, %pathAHK%, %pathLink%, , "%pathScript%"
Return

; ダメ文字対応パス関数
PathFindExtension(v)
{
  Return DllCall("SHLWAPI.DLL\PathFindExtensionA", Str, v, Str)
}
PathRemoveExtension(v)
{
  tmp := v
  DllCall("SHLWAPI.DLL\PathRemoveExtensionA", Str, tmp, Str)
  Return tmp
}