alÔ Colegas:
Tentei fazer este programa:
set printer to local.bat
set device to printer
@ 0,0 say 'start iexplore http://www.ig.com.br'
set devi to scre
set printer to
winexec(local)
Mas na hora de executar o say ele não reconhece.
Alguém tem alguma dica?
Obrigado
Escrevendo em arquivo texto
Moderador: Moderadores
o seu SET DEVICE esta como PRINT
entaum, eh igual no clipper...
ao inves de
é
eh isso ai
entaum, eh igual no clipper...
ao inves de
Código: Selecionar todos
@ 00,00 SAY "OLA MUNDO"Código: Selecionar todos
@ PROW()+00,00 SAY "OLA MUNDO"Prezado Mario
Neste caso não faz diferença alguma o uso da função PROW() já que ele está direcionando para um arquivo, tanto faz 00,00 ou prow()+00,00.
Não seria mais fácil fazer assim ?
MEMOWRIT("LOCAL.BAT","start iexplore http://www.ig.com.br")
Até logo.
Marcelo
Neste caso não faz diferença alguma o uso da função PROW() já que ele está direcionando para um arquivo, tanto faz 00,00 ou prow()+00,00.
Não seria mais fácil fazer assim ?
MEMOWRIT("LOCAL.BAT","start iexplore http://www.ig.com.br")
Até logo.
Marcelo
Programador que é programador, quando tá de folga vai inventar função nova, fazer testes, ou seja... se divertir
Cobra 210 - Drive de 8" 1.024 KB - 64 KB RAM - Impressora de Linha Cobra - Visicalc - Fortran - Dialog - Sistema Operacional SP/M (é sp/m mesmo - era o cp/m da cobra)
Cobra 210 - Drive de 8" 1.024 KB - 64 KB RAM - Impressora de Linha Cobra - Visicalc - Fortran - Dialog - Sistema Operacional SP/M (é sp/m mesmo - era o cp/m da cobra)
- rochinha
- Administrador

- Mensagens: 4664
- Registrado em: 18 Ago 2003 20:43
- Localização: São Paulo - Brasil
- Contato:
Amiguinho
Faça assim:
...
vARQ := FCreate( "LOCAL.BAT" )
vCMD := "start iexplore http://www.ig.com.br" + Chr( 13 ) + Chr( 10 )
FWrite( vARQ, @vCMD, Len( vCMD ) )
FClose( vARQ )
WinExec("LOCAL.BAT")
...
Ou use esta função
function QueroIrPara( site )
WinExec( "start " + site )
return .t.
@braços :?)
Faça assim:
...
vARQ := FCreate( "LOCAL.BAT" )
vCMD := "start iexplore http://www.ig.com.br" + Chr( 13 ) + Chr( 10 )
FWrite( vARQ, @vCMD, Len( vCMD ) )
FClose( vARQ )
WinExec("LOCAL.BAT")
...
Ou use esta função
function QueroIrPara( site )
WinExec( "start " + site )
return .t.
@braços :?)


