PC Toledo

Código: Selecionar todos

   Arg:= " cotacao.txt"+ " -to " +rtrim(destino)+ " -charset 850 -log envio.log -q -of blat.cfg > nul"  
   Exec:= "Blat.exe"
   SwpRunCmd(Exec + Arg,0,"","")

Código: Selecionar todos

NOBELL
BLINKER EXECUTABLE EXTENDED
BLINKER INCREMENTAL OFF
#BLINKER EXECUTABLE CLIPPER E000;F:201;DYNF:8;TEMPPATH:"\TEMP";SWAPK:40000

Blinker Exec Clipper //F:201, //E:1024, //R:128

BLINKER EXECUTABLE COMPRESS 1
BLINKER PROCEDURE DEPTH 70
BLINKER MEMORY CLEAR 0
BLINKER DEMONSTRATION MINUTES 0
OUTPUT SCE 

Código: Selecionar todos

BLINKER INCREMENTAL OFF
BLINKER CLIPPER PAGE OFF
BLINKER link XMS ON
BLINKER EXECUTABLE EXTENDED 2048
BLINKER HOST MESSAGE ON
BLINKER HOST DPMI ON
BLINKER HOST VCPI ON
BLINKER HOST XMS ON
BLINKER PROCEDURE DEPTH 70
BLINKER EXECUTABLE COMPRESS 1
OUTPUT SCE

Código: Selecionar todos

cCmd := "C:\WINDOWS\SYSTEM32\CMD.EXE /C NOTEPAD.EXE"
run &cCmd.

Código: Selecionar todos

 // Function Runcmd
 //          [<cComando>] -> commando a executar não use "command" ou "cmd" ou "start"
 //          [<lVoltar>]    -> executa o comando e volta 
FUNCTION RunCmd(cComando, lVoltar)
LOCAL  cComSpec, lWin9x, aInfo,nMajor,nMinor,nMinpos,nMajpos

// matriz com os erros do swpruncmd
aInfo:={ ;
 {0 ," No Error"},;
 {1 ," Disk Full"},;
 {2 ," File Not Found"},;
 {3 ," Disk I/O Error"},;
 {4 ," Change Directory Error"},;
 {5 ," Temp File Creation Error"},;
 {6 ," Change Drive Error"},;
 {7 ," EMS Error"},;
 {8 ," XMS Error"},;
 {9 ," SHELL Error"},;
 {10 ," Handle Table Too Large To Save"},;
 {11 ," Top Of Memory Error"},;
 {12 ," MCB Chain Corrupt"},;
 {13 ," To Many MCB's"},;
 {14 ," DOS Memory Function Call Error"},;
 {15 ," Unable To Locate Same Segment"},;
 {16 ," Unable to Find COMSPEC "},;
 {254," Swap Internal Error"},;
 {255," Swap Internal Error"}, ;
 {-99," Unknown Error"} ;
}

if cComando <> NIL

   cComsPec := Lower(GetEnv('OS'))
   lWin9x   := (Empty(cComSpec)  .or.;
                     '9'  $ cComSpec  .or.;
                     'me' $ cComSpec)
   if lWin9x // Quando for Windows 95/98 ou Me
      cComando := (cComando + ' > nul')
   else // Windows XP
      cComSpec := GetEnv('SystemRoot')
      cComSpec += '\System32\Cmd.exe /c "'
      if lVoltar == NIL .or. lVoltar         
         cComando := (cComSpec +  cComando)
      else
         cComando := (cComSpec +  ' start /b ' + cComando + '"')
     endif
   endif
endif

if !SwpRunCmd(cComando,0,"","")
   
   nMajor := SwpErrMaj()
   nMinor  := SwpErrMin()
  
   if (nMinPos:=Ascan(aInfo,{|ele| ele[1]==nMinor }))==0 
      nMinPos:=len(aInfo) 
   endif

   if (nMajPos:=Ascan(aInfo,{|ele| ele[1]==nMajor }))==0 
        nMajPos:=len(aInfo)
   endif

   Alert('ERRO :'+;
           ' Major ErrorCode:'  + aInfo[nMinPos][2] +;
           ';Minor ErrorCode:' + aInfo[nMajPos][2])

endif
InKey(3)
RETURN .t.