AutoHotkey Thread 2 - 暇つぶし2ch

AutoHotkey Thread 2 ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

138:128
 05/11/08 19:32:07 AQU/ZuaD0
>>137 
なるほど。 
ありがとうございました。

139:名無しさん＠お腹いっぱい。
 05/11/08 22:48:46 x8v+5Rvv0
>>134 
続きを改良しつつ、作ってみました。 
SetHotkey(key, appPath, appTitle, appWorkDir="", appOpt="") 
{ 
global 
appPath%key%:=appPath 
appTitle%key%:=appTitle 
appWorkDir%key%:=appWorkDir 
appOpt%key%:=appOpt 
Hotkey, #%key%, launchApp 
Hotkey, ^#%key%, quitApp 
Hotkey, !#%key%, toggleWindow 
Return 
} 
 
launchApp: 
StringRight, key, A_ThisHotkey, 1 
appPath:=appPath%key% 
appTitle:=appTitle%key% 
appWorkDir:=appWorkDir%key% 
appOpt:=appOpt%key% 
ifWinNotExist, %appTitle% 
Run, %appPath%, %appWorkDir%, %appOpt% 
else 
WinActivate, %appTitle% 
return 
Return

140:名無しさん＠お腹いっぱい。
 05/11/08 22:50:31 x8v+5Rvv0
 
quitApp: 
StringRight, key, A_ThisHotkey, 1 
appTitle:=appTitle%key% 
ifWinNotExist, %appTitle% 
Exit 
else 
WinClose, %appTitle% 
return 
Return 
 
toggleWindow: 
StringRight, key, A_ThisHotkey, 1 
appPath:=appPath%key% 
appTitle:=appTitle%key% 
appWorkDir:=appWorkDir%key% 
appOpt:=appOpt%key% 
ifWinNotExist, %appTitle% 
Exit 
else 
WinSet, Topmost, TOGGLE, %appTitle% 
return 
Return 
 
んー >>126さんの言うとおり、取りこぼしがあるし、 
Topmostのトグルが出来てないような。 
折角作ってもらったのに、ホットキーの方が確かってことなんですかねぇ。

次ページ