PB 電子会議室
発言No. | 更新日 | 題名(クリックすると発言内容と関連するコメントが表示されます) |
---|---|---|
11840 | 00/06/20 12:37:11 | RE(6):PB6.5: \"外部プログラム(他のEXE)が起動されるまで待つ\"は? By Potato |
11839 | 00/06/20 12:01:55 | RE(5):PB6.5: \"外部プログラム(他のEXE)が起動されるまで待つ\"は? By okaken |
11814 | 00/06/19 10:18:14 | RE(4):PB6.5: \"外部プログラム(他のEXE)が起動されるまで待つ\"は? By キノタク |
11808 | 00/06/19 09:19:12 | RE(3):PB6.5: \"外部プログラム(他のEXE)が起動されるまで待つ\"は? By Potato |
11804 | 00/06/16 19:40:03 | RE(2):PB6.5: \"外部プログラム(他のEXE)が起動されるまで待つ\"は? By M.M |
11797 | 00/06/16 17:19:29 | RE(1):PB6.5: ”外部プログラム(他のEXE)が起動されるまで待つ”は? By ryochan |
11790 | 00/06/16 11:51:28 | PB6.5: ”外部プログラム(他のEXE)が起動されるまで待つ”は? By okaken |
カテゴリ:スクリプトの記述
日付:2000年06月19日 09:19 発信者:Potato
題名:RE(3):PB6.5: \"外部プログラム(他のEXE)が起動されるまで待つ\"は?
M.Mさん、おはようございます。
>okakenさん、こんばんは。
>
>>DDE通信を行うため、サーバーとして外部プログラム(他のEXE)を、
>>PBアプリをクライアントとして用意します。
>>PBアプリからDDEサーバーとなる外部プログラム(他のEXE)を起動し、
>>起動し終わるまで待つことは出来るのでしょうか?
>
>実験君しました。Win32 APIの\"FindWindowA\"を使用するのがコツです。
>以下のスクリプトを参考にしてください。
>
>[テスト環境]
>PB:7.0
>OS:NT4.0 SP3
>DB:Adaptive Server Anywhere 6.0
>???????????????????????????????????
>[外部関数]
>FUNCTION UnsignedInt FindWindowA(Unsignedlong classname
> ,REF String lpszWindow) LIBRARY \"User32.dll\"
>
>[スクリプト]
>//Excelを起動する
> int iret
>
> iret = run(\"C:\\Program Files\\Microsoft Office\\Office\\EXCEL.EXE\")
> if iret=-1 then messageBox(\"エラー\",\"Excel起動時にエラーが発生しました\")
>
>//起動が完了するまで待つ
> unsignedInt uiret
> string stitle
>
> stitle = \"Microsoft Excel\"
> do while (uiret=0)
> uiret = FindWindowA(0, stitle)
> loop
>
> messageBox(\"\",\"Excelが起動しました\")
>???????????????????????????????????
>
>
>
横からすみません。
do while ループの間に1つyield関数を入れたほうがよいかと
思います。
付加情報:
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows NT 4.0
DBMS Oracle SQL*Net 2.3
Browser InternetExplorer4.X
Server SoftWare
OS (記載なし)
DBMS Oracle 7.3
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.