13 Jul 2017 16:15
13 Jul 2017 18:51
17 Jul 2017 11:14
oShell := CreateObject( "WScript.Shell" )
!GetEnv( "OS" ) == "Windows_NT"
cComando += "start " + cComando
ENDIF
RET := oShell:Run( "%comspec% /c " + cComando, nStyle, lWait )
17 Jul 2017 13:28
METHOD Button4Click( oSender ) CLASS TForm2
local oShell, nRet
oShell := CreateObject('WScript.Shell')
nRet := oShell:Run("%comspec% /c DEL *.TXT")
if nRet == 0
MsgInfo('Sucesso ao executar o comando!')
endif
RETURN Nil
17 Jul 2017 15:40
18 Jul 2017 17:03
20 Jul 2017 14:45
20 Jul 2017 15:28
nRet := oShell:Run("%comspec% /c DEL *.TXT")
set comspec
ComSpec=C:\WINDOWS\system32\cmd.exe
20 Jul 2017 15:39
/*
ZE_SHELLEXECUTE
José Quintas
*/
FUNCTION ShellExecuteOpen( cFileName, cParameters, nShow )
hb_Default( @cParameters, "" )
hb_Default( @nShow, WIN_SW_SHOWNORMAL )
WAPI_ShellExecute( NIL, "open", cFileName, cParameters,, nShow )
RETURN NIL
FUNCTION ShellExecutePrint( cFileName, cParameters, nShow )
hb_Default( @cParameters, "" )
hb_Default( @nShow, WIN_SW_SHOWMINNOACTIVE )
WAPI_ShellExecute( NIL, "print", cFileName, cParameters,, nShow )
RETURN NIL
20 Jul 2017 17:03