FiveTech Software tech support forums

Armando

ShellExecute(cWeb + AllTrim( cMap ))

Salu2

... y si es posible sin que se abra acrobat o similar Gracias https://docs.microsoft.com/en-us/windows/win32/api/shellapi/nf-shellapi-shellexecutea ShellExecute(,"Print","File.pdf",,,3)

... If !MsgNoYes( "El sistema se actualizará, está usted seguro de realizar este proceso?","Confirme" ) Return NIL EndIf ShellExecute( 0, , "actualiza.exe", , NIL, 3 ) oVentPrin:bValid := { || NIL } PostQuitMessage( 0 ) Quit Return NIL Y este es el código del ...

... Indice.prg------------------------------------------------------------------------  why ? for now I resolve with oBrowse:bRClicked := {|nRow,nCol| ShellExecute( IfNil( oDlg:hWnd, GetWndDefault() ), "open",cFolderFiles+oBrowse:aArrayData[oBrowse:narrayat][2])} But I wish open the pdf in ...

... ) CallDll32 ( 'UltimaRespuesta' , 'WINFIS32.DLL' , nHandler , @cRta ) cRta:= StrToken(cRta,3, SE ) ? cRta // esta OK ahora s:= 'http://'+ cRta ShellExecute( 0,'OPEN', s ,'','', 1 ) // FUCIONA OK Muchas gracias por tu tiempo y ayuda, Saludos cordiales, Mariano

Hola Mariano: Modifique el ejemplo que viene con Fivewin, testurl.prg, y le puse un boton que llame a la funcion ShellExecute, y funciona bien. Verificaste bien que la oWnd esta definida? Te copio el ejemplo para que lo pruebes #include "FiveWin.ch"#include "URLLink.ch"#define ...

... // esta dirección la obtengo consultando un impresor fiscal en linea sin problemas // TEST 1 no funciona cCadena:='http://' +cIp ShellExecute( oWnd:hwnd,'open', cCadena ) // TEST 2 no funciona cCadena:=('http://' +cIp) ShellExecute( oWnd:hwnd,'open','"'+cCadena+'"') ...

Dear All,

I'm sorry, ShellExecute() works fine.

Hi Giovany, How do you call BATCH file from the main program and keep it still run after the main program end? I try ShellExecute() but it doesn't run. It uses the same executable, downloads a zip file, unzipped into a folder and the program itself creates a .BAT file, and closes ...

Hi !

Fixed it ! Is a permission problema, if copy msg.exe to application directory, shellexecute() function run msg.exe

Thanks in advance !

Best regards,

No utilizo ShellExecute()

Saludos

Albeiro, GMAPD.PRG y GMAPD.RC ya ejiste en C:\FWH..\SAMPLES, solo hice la modificación en el fuente *.prg.

Saludos.

https://imgur.com/Accq0na https://i.imgur.com/Accq0na.png // C:\FWH..\SAMPLES\GMAPD.PRG Modificado: 15/05/2018.#include "FiveWin.ch"FUNCTION Main()   LOCAL oDlg, oActiveX   LOCAL cStreet := PadR( "BROADWAY 500", 80 )&nb...

Mira con este código , es para harbour .... Function CreaOleExplorer( cUrl , nAXWidth , nAXHeight )   local oIE   local nBorde := 8   local nBarra := 23   DEFAULT cUrl := "https://mail.google.com/mail/u/0/#inbox"   DEFAULT nAXWidth ...

karinha, tu ejemplo funciona pero lo necesito usando este archivo especificamente.

Code: Select all  Expand view

Local cURL   := cFilePath( GetModuleFilename( GetInstance() ) ) + "btkserver.htm"