Comando RUN com lib GTWVT

[janio]

Olá,

Preciso utilizar o comando RUN pra mapear impressoras e outras coisas mais... o problema é que o comando RUN chama sempre o CMD ou COMMAND.COM, abrindo uma janela sempre que é acionado.

Como faço pra evitar essa janela que o sistema sempre abre quando o RUN é acionado? Existe algum outro comando em xharbour que substitui o RUN?

Um abraço,

Janio

[marcos.gurupi]

Faço suas minhas palavras estah acontecendo comigo tb, n eh nada d mais soh q como estamos deixando o emulador (CMD) pra tras acho q seria justo aplicar comandos mais "modernos". Fico aguardando tb a resposta.


Marcos Roberto.

[Antonio]

Veja se Este Tópico ajuda de alguma forma.

Além do exemplo abaixo:

Código: Selecionar todos

 ?? 'Test program for WINDOWS printing'
      ?  '---------------------------------'
      ? SET(_SET_DEVICE)
      aPrinter:=GetPrinters()
      IF EMPTY(aPrinter)
       ? '----- No Printers installed'
      ELSE
        set printer to (GetDefaultPrinter())
        ? SET(_SET_PRINTER)
        ? SET(_SET_PRINTFILE)
        set console off
        set printer on
        ? 'Default Printer'
        ?'----------------'
        ? GetDefaultPrinter()
        ?
        ? 'Printers Available'
        ?'-------------------'
        FOR x:= 1 TO LEN(aPrinter)
          ? aPrinter[x]
        NEXT x
        aPrinter:= GetPrinters(.T.)
        ? 'Printers and Ports'
        ?'-------------------'
        FOR x:= 1 TO LEN(aPrinter)
          ? aPrinter[x,1]+' on '+aPrinter[x,2]
        NEXT x
        EJECT
        set printer off
        set console on
        set printer to
      ENDIF
      ? SET(_SET_PRINTER)
      ? SET(_SET_DEVICE)
      WAIT
      return nil

[janio]

Olá Antonio,

Tentei com o NetRedir, mas tá dando erro.

Tô fazendo assim:

NetRedir("LPT1:","\\Servidor\impressora")

erro:

Error TOOLS/9999 Windows Network operation failed:
NETREDIR( "LPT1:", "\\legus\fx2180", "")
(DOS Error 66)
quit

O que será isso??

Janio

[Antonio]

Tenta assim: NETREDIR( "LPT1:", "\\legus\fx2180")