PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV, WEBDEV e WINDEV Mobile

Inicio | Mensagens recentes | Conecte-se... |  | Português FR
Inicio → WINDEV 25 → WD - Executar um comando Ms-DOS
WD - Executar um comando Ms-DOS
Iniciado por BOLLER ADRIANO, ago., 10 2016 4:38 AM - 1 resposta
#1
Membro registado
3.657 mensagems
Popularité : +175 (223 votes)
Publicado em agosto, 10 2016 - 4:38 AM
Prezados,

Executar um comando Ms-DOS

//MS-DOS
sComando is string
sComando = "%windir%\system32\copy.exe"+NmeOrca+"LPT1"
ExeRun("cmd.exe /c"+sComando,exeInactive,True)


No exemplo acima estou mostrando a você uma forma simples de copia,
copiando um arquivo qualquer do C: para a unidade D:

O ExeRun abre o prompt de comando e executa o comando Copy,
enviando o arquivo teste.txt do diretório C: para o diretório D:

No seu programa você só precisa informar isso, a origem,
o arquivo que você quer que seja copiado e o destino.

//Exemplo MS-DOS
sComando is string
sComando = "Type " + NmeOrca + " > LPT1"
ExeRun("cmd.exe /c "+sComando, exeInactive, True)


Veja este link: http://doc.pcsoft.fr/en-US/?3062013&name=sopen-function

:merci:

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
#2
Membro registado
3.657 mensagems
Popularité : +175 (223 votes)
Publicado em agosto, 12 2016 - 1:36 AM
Procedure VerErrosEcf()
sretorno is Pascal string on 200 = " "
RetErro is int
RetAviso is int
nhret is int
nErroEcf is int

IF gECF = 1
API("DarumaFrameWork.dll","rStatusUltimoCmdInt_ECF_Daruma",&RetErro,&RetAviso)
IF reterro <> 0 THEN
nHret = API("DarumaFrameWork.dll","eInterpretarErro_ECF_Daruma",RetErro,&sRetorno)
Error("Erro do ECF ",sRetorno)
nErroEcf = 1
END
IF retaviso <> 0 THEN
nhret = API("DarumaFrameWork.dll","eInterpretarAviso_ECF_Daruma",RetAviso,&sretorno)
Error("Erro do ECF ",sretorno)
nErroEcf = 1
END
END
RESULT nErroEcf


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
→ Voltar para WINDEV 25