Moderador: Moderadores
juniorcamilo escreveu:ola amigos!
como não tem como o startThread() funcionar em xHarbour 1.2.3, fiz um recurso técnico! Fiz minha automação chamar minha própria automação passando parâmetro, ou seja, executou o sistema em segundo plano e faz oq eu pedir e não para a execução!
betovsp escreveu:Olá meu amigo, consegue me mostrar como fez?
Estou precisando disso também.
procedure EXECUTEDOWNLOADTRAVA(net,mArq)
if Valtype(net) == "L"
if net == .t.
net := "net online"
else
net := "net offline"
endif
endif
if at(":",CLDADOS) == 0
ccomando := '"'+CURDRIVE()+':'+CLDADOS+EXENAME()+'"'+" EXECUTE$DownloadTrava('"+tira(net," ")+"','"+mArq+"')"
winexec(cComando,2)
else
MyRun('"'+CLDADOS+EXENAME()+'"'+" EXECUTE$DownloadTrava('"+net+"','"+mArq+"')")
endif
return
FUNCTION Main(Envio)
*********************
if at("EXECUTE$",Envio) # 0
TRY
Private Funcao := substr(Envio,at("$",Envio)+1)
&Funcao.
CATCH e
bErro := .t.
DefError(e,.f.)
FINALLY
seguranca()
END
endif
*********************
Usuários vendo este fórum: Nenhum usuário registrado online e 6 visitantes