B
Bo Haslund
Guest
You could try modifying rtp_compress.p by adding something like: PROCEDURE ShellExecuteA EXTERNAL "shell32.dll": DEFINE INPUT PARAMETER hwnd AS SHORT. DEFINE INPUT PARAMETER lpszOp AS CHAR. DEFINE INPUT PARAMETER lpszFile AS CHAR. DEFINE INPUT PARAMETER lpszParams AS CHAR. DEFINE INPUT PARAMETER lpszDir AS CHAR. DEFINE INPUT PARAMETER fsShowCmd AS SHORT. DEFINE RETURN PARAMETER err-num AS SHORT. END PROCEDURE. /* --- ShellExecuteA --- */ FUNCTION RunCommand RETURNS INTEGER (INPUT pchCommand AS CHARACTER, INPUT pchParameters AS CHARACTER, INPUT pchDirectory AS CHARACTER, INPUT plgShow AS LOGICAL) : /*------------------------------------------------------------------------------ Purpose: Windows specific version of OS-COMMAND. Supports UNC Notes: Return value <= 32 indicates error ------------------------------------------------------------------------------*/ DEFINE VARIABLE iinResult AS INTEGER NO-UNDO. RUN ShellExecuteA(INPUT 0, INPUT "Open":U, INPUT pchCommand, INPUT pchParameters, INPUT pchDirectory, INPUT IF plgShow THEN 1 ELSE 0, OUTPUT iinResult ). RETURN iinResult. END FUNCTION. and then replacing OS-COMMAND SILENT VALUE(QUOTER(PTempDir + "TEMP.BAT")). with RunCommand(QUOTER(PTempDir + "TEMP.BAT"), "", "", FALSE). You can off course run ShellExecuteA directly and skip the function. //Bo
Continue reading...
Continue reading...