M.Mさん、こんにちは。

サンプルスクリプトどうもありがとうございました。
当初、インターネット上でサンプルスクリプトを探していました。しかし、あるのはＶＢのサンプルばかりで
ＶＢを知らない素人の私には解釈に苦労しています。（本屋でもＶＢの書籍はおおいですね。）
M.Mさんから頂いたサンプルも含め、素人ＰＢユーザの為にもこういう情報をまとめた書籍やサイトが
たくさん出てくるといいですね。

それではまた。

＞イモぐらぶさん、こんにちは。
＞
＞＞いやはや、よもやこんなにはやくお返事を頂けるとは・・・ありがとうございます。
＞＞問題も解決しました。どうもありがとうございました。
＞
＞無事問題解決したようでなによりです。
＞しかし興味のあるテーマなので、ちょっと実験君してみました。
＞
＞以下、実験君した時のサンプルスクリプトです。
＞

＞OS: NT4.0 SP3
＞PB: 5.0.04
＞UNLHA32.DLL
＞  : 1.45a
＞ 
＞????????????????????????????????????
＞[外部関数の定義]
＞function long unlha(long _hwnd, string _szCmdLine, &
＞                    ref string _szOutput, long dwSize) &
＞              library \"UNLHA32.DLL\"
＞ 
＞[スクリプトの記述]
＞long   lHwnd , size   , ret
＞string buffer, cmdline
＞ 
＞//unlha32.dllに渡すコマンド。LHA.EXEと同じ書式です。
＞cmdline = \"a c:\\test.lzh\"
＞ 
＞//その他のパラメータ
＞lHwnd  = handle(parent)
＞size   = 1024
＞buffer = space(size+1)
＞ 
＞//\"unlha32.dll\"をコール
＞ret = unlha(lHwnd, cmdline, buffer, size)
＞if ret=0 then
＞  messageBox(\"確認\",\"処理は正常に終了しました\")
＞else
＞  messageBox(\"エラー\",\"\'unlha32.dll\'実行時にエラーが発生しました\")
＞end if
＞????????????????????????????????????
＞

＞
＞