HDR*PowerBuilder0600*7򲢵ȴִFRE*NOD*- 8ENT*0600 F9 runapp.aplENT*0600F9 runapp.sraENT*0600"QF9 runapp.praENT*0600 #F9 w_runapp.winENT*0600:F9 w_runapp.srwinDAT*rf@F9F9o@o@!p@p@8>q@q@QWr@r@W]t@t@]ef@f@f@q^@^@{h@h@i@i@j@j@k@k@}@}@@@@@@@\@\@  n@  runapptransactionsqlcadynamicdescriptionareasqldadynamicstagingareasqlsaerrormessageapplicationstructuremailrecipientenvironDAT*mentmailfiledescriptionmailmessagedatawindowchildlistviewitemtreeviewitemconnectioninfopowerobjectfindwindowaiswindoww_runapp2/ sqlcasqldasqlsaerrormessagerunappx     ( ~ lpclassnamelpwindownamefindwindowauser32.dllFindWindowAhwndiswindowIsWindow+create+destroycommandline+openG LSSDDAT*BLQlQS$8 x _initsrctransactiondynamicdescriptionareadynamicstagingareaerrormessageapplicationrunappstructuremailrecipientenvironmentmailfiledescriptionmailmessagedatawindowchildlistviewitemtreeviewitemconnectioninfopowerobjectw_runapp|@@4@G@M@U @ah @DAT*r @@@@@@@@@@  f80j(j<j\jxj(6DRd 0 appnamerunappmesDAT*sagetransaction0dynamicdescriptionareaDdynamicstagingareaderror (<\x$ d  "@8d commandlinew_runapp( @ 2 4 findwindowaiswindow+create+destroy+opendDAT*%.2        ! 8-DI0$R-D[3c3xD8%DAT*forward global transaction sqlca global dynamicdescriptionarea sqlda global dynamicstagingarea sqlsa global error error global message message end forward global type runapp from application end type global runapp runapp type prototypes Function long FindWindowA (String lpClassName , String lpWindowName ) Library "user32.dll" Function boolean IsWindow (Long hwnd ) Library "user32.dll" end prototypes on runapp.create appname = "runapp" message = create message sqlca = crDAT*eate transaction sqlda = create dynamicdescriptionarea sqlsa = create dynamicstagingarea error = create error end on on runapp.destroy destroy( sqlca ) destroy( sqlda ) destroy( sqlsa ) destroy( error ) destroy( message ) end on event open;open(w_runapp) end event DAT*$rn@F9F9 n@n@n@@@Z@Z@(Y@Y@4a@a@AT@T@R^@^@\h@h@ji@i@vj@j@k@k@}@}@@@@@@@\@\@@@@@@@%@@0@@:@@F@@R@@b@b@E@E@t@t@ w_runappwindowmenuwindowtypewindowstatewindowobjecttoolbaralignmentstDAT*Q?gl! { fH$) h;h`F"`{mlB"ArialpldP`l"Arial@ll?"Arial@"Arial1@'P@#DAT*&ructuremailrecipientenvironmentmailfiledescriptionmailmessagedatawindowchildlistviewitemtreeviewitemconnectioninfopowerobject qstatictextfontcharsetfontpitchfontfamilyalignmentfillpatternborderstylecommandbuttonu're welcome! x.dragobjectpointerfindwindowaiswindowmessagep2 w_runapp " +create+destroy+clicked DAT*( QL xk _initsrcwindoww_runappmenuwindowtypewindowstatewindowobjecttoolbaralignmentstructuremailrecipientenvironmentmailfiledescriptionmailmessagedatawindowchildlistviewitemtreeviewitemconnectioninfopowerobjectstatictextst_messagefontcharsetfontpitchfontfamilyalignmentfillpatternborderstylecommandbuttoncb_1dragobjectpointermessagel@!@&@DAT**1@=@J@[@e@s @ @ @ @ @@@@@@@@@%@1@=@KP@[@cDAT*,@ vW(&-!, b*,*4DL$T$ |,d \8 st_message&cb_1$'$control<a@&$' , 4D L T "DAT*.$$$d , st_message&cb_1' $ 2  +create+destroy(2 Y xywidthheighttitlebartitlebackcolorcontrolmenuwindowtypest_messagecb_1  Hm\"`(2DAT*0>I T ] \`  p1  @@@  --2  2 sDAT*2 xywidthheightenabledfocusrectangletextcolorbackcolortextsizeweightfacenamefontcharsetfontpitch7 @ L!0:DMT]i] 7@L DAT*4  @:E@@8$$8,08D0@81}|1'<8I08Q08F'@'$2r8 '@'$X$`8h08q08t0w@w8,DAT*61,$ > \   Dld2 lu_returnlu_handleiloopspath::messaged  " (@( st_message&textִгԵ...calcscicalc&ִokӦóִ $ X `  !!2 & +clDAT*8ickedfindwindowaiswindow<2 V xywidthheighttabordertexttextsizeweightfacenamefontcharsetfontpitchHm 8 ` "'07@L] 8`  DAT* @ -!DAT*<forward global type w_runapp from Window end type type st_message from statictext within w_runapp end type type cb_1 from commandbutton within w_runapp end type end forward global type w_runapp from Window int X=1554 int Y=752 int Width=1298 int Height=348 boolean TitleBar=true string Title="u're welcome!" long BackColor=79741120 boolean ControlMenu=true WindowType WindowType=response! st_message st_message cb_1 cb_1 end type global w_runapp w_runapp on w_runapp.create tDAT*>his.st_message=create st_message this.cb_1=create cb_1 this.Control[]={this.st_message,& this.cb_1} end on on w_runapp.destroy destroy(this.st_message) destroy(this.cb_1) end on type st_message from statictext within w_runapp int X=55 int Y=64 int Width=704 int Height=76 boolean Enabled=false boolean FocusRectangle=false long TextColor=33554432 long BackColor=67108864 int TextSize=-9 int Weight=400 string FaceName="" FontCharSet FontCharSet=GB2312CharSet! FontPitch FoDAT*@ntPitch=Variable! end type type cb_1 from commandbutton within w_runapp int X=946 int Y=56 int Width=270 int Height=96 int TabOrder=10 string Text="" int TextSize=-9 int Weight=400 string FaceName="" FontCharSet FontCharSet=GB2312CharSet! FontPitch FontPitch=Variable! end type event clicked;uint lu_return ulong lu_handle int iloop string sPath SetPointer(HourGlass!) st_message.text = 'ִгԵ...' run("calc") for iloop= 1 to 10000 lu_hanDAT*#dle = FindWindowA("scicalc","") yield() if lu_handle <> 0 then exit end if next //Loop until that window is no longer there Do While isWindow(lu_handle) Yield() Loop //Ӧִ st_message.text = 'ִ' MessageBox("ok", "Ӧóִ") end event