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 (記載なし)

PowerSpaceの運営は、パワーフューチャー株式会社が行っております。
Copyright © 2013 Power Future Co., Ltd.