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月16日 19:40 発信者:M.M
題名:RE(2):PB6.5: \"外部プログラム(他のEXE)が起動されるまで待つ\"は?
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が起動しました\")
???????????????????????????????????
付加情報:
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.