■ 質問はここへ ■

前へ 次へ
No. 847 (846へのコメント)投稿者: ねね夫日付: 2003/05/12 22:59:15
題名 : Re^2:chm形式のヘルプの呼び出し

かぶねこさん、こんばんは。
いつも素早いご返答ありがとうございます。

>hh.exe に限らず、起動オプションがわかれば、文字列の上にカーソルを置いて
>その文字列を渡して起動することはできると思います。

ふむ。たぶんかぶねこさんが言われてるように起動オプションかなにかで
hh.exeに指定することができればスマートなんだろうなと思いつつ
自分でも調べきることができませんでした・・・

>proc main
> call shell("C:\WINNT\hh.exe " + @@QXDirectory$ + "\QX.CHM", 1)
>end proc

ありがとうございます!!
開くことができました!これだけでもずいぶんと道が開けました。
結局いろいろ試行錯誤した結果、SendKeyでhh.exeに送ることで自分が思ってる動作に近づけることができました。
他に参考にされる方はいないかと思いますが、一応自分がとった方法を以下にサンプルとして
つけておきますー。
−−−−−−−−−−−−−−
proc ProcName()
dim ret
dim KeyWord$
if @hwnd = 0 then exit proc
if @Select then
KeyWord$ = @TextSelect$
else
KeyWord$ = @GetCursorWord$
@BlockSelectCursorWord
end if
ret = appactivate2("CHMヘルプのタイトル")
if ret = 0 then
ret = shell("C:\WINNT\hh.exe " + @@QXDirectory$ + "\chmhelpファイル名.chm", 1)
end if
if ret <> 0 then
SendKey KEY_MENU, "n"
SendKey KEY_HOME
SendKey KEY_SHIFT, KEY_END, KEY_DELETE
SendKey KeyWord$
SendKey KEY_MENU, "d"
end if
end proc

次へ
現在の既読番号は 0  既読を


メールアドレスを表示するにはURLの後ろに &m=b89489c2 をつけてください。
ユーザー フォーラム一覧

http://www2k.biglobe.ne.jp/~araken/
http://0ban.com/araken/