Página 1 de 1
Comando RUN com lib GTWVT
Enviado: 22 Fev 2006 21:48
por 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
Enviado: 23 Fev 2006 12:00
por 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.
Enviado: 23 Fev 2006 12:51
por 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
Enviado: 23 Fev 2006 23:57
por 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
Enviado: 24 Fev 2006 12:36
por Antonio
Tenta assim: NETREDIR( "LPT1:", "\\legus\fx2180")