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

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