home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / vxcliser.zip / VXREXX.2 / MACROS / VXREZ / RUNEXE.VRM < prev   
Text File  |  1994-12-23  |  677b  |  33 lines
  1. /*
  2.  * runexe.vrm
  3.  */
  4.  
  5. Main:
  6.     parse arg main_window
  7.  
  8.     /* Figure out where the project lives... */
  9.  
  10.     exe = ProjectExe( main_window )
  11.  
  12.     if( exe = '' ) then do
  13.         msg = 'Please save the project to disk and make an executable' ,
  14.               'before running.'
  15.         call VRMessage parent, msg, 'Run EXE file'
  16.         exit
  17.     end
  18.  
  19.     address cmd 'start' path
  20.  
  21. exit 0
  22.  
  23. ProjectExe:
  24.     parse arg parent
  25.     ProjectPath = VREProjPermPath()
  26.     if( pos( '\', ProjectPath ) = 0 )then do
  27.         return ""
  28.     end
  29.  
  30.     path = VRParseFileName( ProjectPath, "DPN" ) || '.EXE'
  31.     if( VRFileExists( path ) = 0 )then path = ""
  32. return path
  33.