oWSH = CreateObject( "WScript.Shell" ) >oWSH.AppActivate( "Command Prompt - FOXPROX" )>
DECLARE INTEGER GetLastError IN WIN32API >DECLARE INTEGER FindWindow IN WIN32API STRING, STRING >DECLARE INTEGER SetForegroundWindow IN WIN32API INTEGER >DECLARE INTEGER ShowWindow IN WIN32API INTEGER, INTEGER > >cWindowTitle = "Command Prompt - FOXPROX" >hDOSApp = FindWindow( .NULL., cWindowTitle + CHR(0) ) > >IF hDOSApp == 0 THEN > MESSAGEBOX( "Unable to automatically maximize your DOS application. " ; > + TRANSFORM( GetLastError() ) ; > , 64 + 0 ; > , "SmartShop" ) > QUIT >ENDIF > >iResult1 = ShowWindow( hDOSApp, 1 ) >iResult2 = SetForegroundWindow( hDOSApp )The MessageBox displayed above shows error number 127 (Unable to find procedure). This works when done from the command window.