Gerar um script java e executar com cscript
Código: Selecionar todos
FUNCTION MAIN
cArq:='D:/Harbour/h-Poxy/extrato.pdf'
#pragma __cstream | cJS := %s
var exec = new ActiveXObject('WScript.Shell');
{
exec.Run('"%1$s"', 1, false);
}
#pragma __endtext
nHandle := hb_fCreate("script.tmp")
fWrite(nHandle, hb_StrFormat(cJS, cArq))
fClose(nHandle)
cProgram := "cscript" + ;
" //nologo" + ;
" /e:jscript" + ;
" " + FNameEscape( "script.tmp" )
lSuccess := Execute(cProgram, ,1)
RETURN Nil
UNCTION Execute(cProgram, lEspera, nWindowStyle)
LOCAL oShell, lOk := .T., nStyle
hb_Default(@lEspera, .T.)
hb_Default(@nWindowStyle, 0)
TRY
oShell:=WIN_OleCreateObject( "WScript.Shell" )
CATCH
TRY
oShell:=WIN_OleCreateObject( "WScript.Shell" )
CATCH
lOk := .F.
END
END
IF lOk
TRY
/*
intWindowStyle
Description
0 Hides the window and activates another window.
1 Activates and displays a window. If the window is minimized or maximized, the system restores it to its original size and position. An application should specify this flag when displaying the window for the first time.
2 Activates the window and displays it as a minimized window.
3 Activates the window and displays it as a maximized window.
4 Displays a window in its most recent size and position. The active window remains active.
5 Activates the window and displays it in its current size and position.
6 Minimizes the specified window and activates the next top-level window in the Z order.
7 Displays the window as a minimized window. The active window remains active.
8 Displays the window in its current state. The active window remains active.
9 Activates and displays the window. If the window is minimized or maximized, the system restores it to its original size and position. An application should specify this flag when restoring a minimized window.
10 Sets the show-state based on the state of the program that started the application.
*/
oShell:Run(cProgram, nWindowStyle, lEspera)
CATCH
MsgStop("Erro executando "+cProgram, "Erro")
lOk := .F.
END
oShell:=Nil
ENDIF
RETURN lOk
