Programm starten und warten
//*********************************************************
//
// Object: Window
// Event: clicked
// Arguments: none
// Returns: long
// Description: Öffnet den System-Taschenrechner und wartet bis dieser
// beendet ist, bevor die nachfolgende Meldung ausgegeben wird.
//
//*********************************************************
// Revision History
// Date Name Revision
//--------------------------------------------------------------------------------
// 05.10.2004 Christoph Menken CM Initial Version
//*********************************************************
// Copyright ©2004 Power People All Rights Reserved.
//*********************************************************
OleObject l_wshell
integer li_rc, &
li_visible = 1 /* 0 ... unsichtbar;
1 ... normal;
2 ... minimized;
3 ... maximized*/
boolean lb_wait = TRUE /* TRUE ... warten;
FALSE ... weitermachen */
string ls_programm = "C:\WINNT\system32\calc.exe"
// Ein Shell-OleObjekt erzeugen
l_wshell = CREATE OleObject
li_rc = l_wshell.ConnectToNewObject("WScript.Shell")
// Applikation starten
l_wshell.Run( ls_programm, li_visible, lb_wait )
// anschließend Meldung ausgeben
MessageBox("Meldung", "Diese Meldung sollte erst nach dem Starten " &
+ "~r~nund Beenden des Taschenrechners ausgegeben werden.")
|
