home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 August / IMM0895.BIN / magazin / optix / disk1 / optxppac.set / EXECTEST.OPT < prev    next >
Text File  |  1995-05-08  |  2KB  |  43 lines
  1. defs(optpath$)
  2. defs(comspec$)
  3. defs(dummy$)
  4. procedure getpath
  5.   locals(i,j,l)
  6.   dummy$:=''
  7.   len(optpath$,l)
  8.   for i:=1 to l do
  9.     dummy$:=optpath$[i]+dummy$
  10.   next(i)
  11.   instr('\',dummy$,i)
  12.   len(optpath$,j),
  13.   delete(optpath$,j-i+1,i)
  14. return
  15. begin
  16.   clearscreen(7)
  17.   rem *** DOS-Aufrufzeile des eigenen Prozesses lesen
  18.   optpath$:=paramstr(0)
  19.   rem *** Pfad extrahieren und Prozess-Name aus Aufrufzeile löschen
  20.   getpath
  21.   getenv('comspec',comspec$)             *** COMMAND.COM - Pfad lesen
  22.   execute(comspec$,'/C CHDIR '+optpath$) *** in akt.OPTIX-Verzeichnis wechseln
  23.   rem ********************************************************************
  24.   rem   !!!!!! voller !!!!!!!              *** hier: Liste aller '*.TGA'-Dateien
  25.   rem   !!!! DOS-Zugriff !!!!              *** an ausführendes OPT.File anhängen
  26.   rem   !!!!!!!!!!!!!!!!!!!!!
  27.   execute('c:\command.com','/C DIR *.TGA >>'+optpath$+'\exectest.opt')
  28.   rem ********************************************************************
  29.   rem ********************************************************************
  30.   rem z.B. auch :    execute(comspec$,'/C command.com') !Return mit EXIT!
  31.   rem      oder :    execute('c:\windows\win.com','')   !vorher RAM aufräumen
  32.   rem oder auch :    befehl$:='for %f in (*.opt) do '
  33.   rem           :    befehl$:=befehl$+'find /n /i ".INC" '
  34.   rem           :    befehl$:=befehl$+'>>c:\test.txt %f'
  35.   rem           :    execute(comspec$,'/C '+befehl$)
  36.   rem ********************************************************************
  37. end
  38. rem *** nach Programmende steht hier eine *.TGA-Liste: (!!!!!!!!!!!!!!!)
  39.  
  40.  
  41.  
  42.  
  43.