Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Pls Help .. Mr.Ed Rauh's FAQ ID: 7789 , api_apprun
Message
From
23/03/2004 03:25:13
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Windows API functions
Title:
Pls Help .. Mr.Ed Rauh's FAQ ID: 7789 , api_apprun
Miscellaneous
Thread ID:
00888760
Message ID:
00888760
Views:
90
Dear all,

pls see the command I am using in my application, this is working fine, but the problem is before completing the process(imrun.exe) the statement " wait wind 'Done'" is executing. to solve this problem I did lot of search in user forums, as the result I got a thread FAQ ID: 7789 from universaltheard.com written by Mr.Ed Rauh. I thought of using his codes to solve my problem, But even then I am not getting what I want. I am sure that class is capable of doing this , somewhere I am doing something wrong, pls see the code I have written to utilize Ed Rauh's class(after the '*****'). My requirement is to execute the statement 'Wait Wind 'Done'" only after the exit of imrun.exe.
looking for a solution from someone. please help
Thanks in advance

jijo david

DECLARE INTEGER ShellExecute IN shell32.dll ;
INTEGER hndWin, ;
STRING cAction, ;
STRING cFileName, ;
STRING cParameters, ;
STRING cDirectory, ;
INTEGER nShowWin
ShellExecute(0,"open","C:\Program Files\Microsoft Business Solutions\Integration Manager\imrun","/i ScEvaInv","",1)

wait wind 'Done'
***************************

*SET PROCEDURE TO Process ADDITIVE
*ShellExecute(0,"open","C:\Program Files\Microsoft Business Solutions\Integration Manager\imrun","/i ScEvaInv","",1)
*oProcess = CREATEOBJ('API_AppRun','NOTEPAD.EXE ','C:\','NOR')
oProcess = CREATEOBJ('API_AppRun','C:\Program Files\Microsoft Business Solutions\Integration Manager\imrun.exe /i ScEvaInv','','NOR')
*Run the application and don't wait to terminate
oProcess.LaunchApp()
*Check the exit status; 259 means still running
DO WHILE oProcess.CheckProcessxitCode() = 259
wait window 'Still running' nowait
ENDDO
WAIT WINDOW 'done'
RETURN
Next
Reply
Map
View

Click here to load this message in the networking platform