PC Toledo

... filesold\report\PIX_" + strzero(HB_RandomInt(1, 99999999),8,0) +'.PDF'
hPDF := FCreate(cFileName, 0)
FWrite(hPDF, sPDF)
FClose(hPDF)
WAPI_ShellExecute( NIL, "OPEN", cFileName ,"",NIL,5 )

RETURN Nil


Pra mim, nao ficou claro qual o conteudo dessa variavel ::qrcodeImage
Na primeita parte ok ...

... estou rodando instalado no servidor, e é onde a coisa começou a pegar.

Talvez a solução mais simples seja mesmo copiar pra máquina e rodar com ShellExecute( "aplicativo",,"pasta da rede" ).
E isso acaba com a exigência de certificado especial.

Restaria melhorar a parte de atualização.

É aí que ...

... Isso causa limitação.

Ainda tentando entender essas coisas....
Nem tudo é problema de certificado.

Talvez salvar local por outros meios, e um ShellExecute() ao EXE local indicando a pasta do servidor pra acesso.
De repente um MemoRead() e hb_MemoWrit().
De repente fazer isso em multithread que não ...

... recibo, então consultava protocolo.
O fato de mostrar mensagem ou não, não vém ao caso agora.

2. Ao chamar o programa diretamente (sem o ShellExecute()), aparecia o alerta do windows.
Aquele de programa pouco usado.
Em ShellExecute() o programa era boloqueado.

3. Tem a atualização, aqui é por ...

A coisa é pior do que pensei.

sjpatop.exe - usa ShellExecute() pra carregar topxxx.exe, o mais novo
topxxx.exe - usa ShellExecute() pra carregar sjpa.exe
sjpa.exe - usa ShellExecute() pra carregar jpa_xxx.exe, o mais novo

topxxx.exe é o aplicativo específico da empresa
O jpaxxx.exe é o meu ...

Acho que tem a ver com o anterior, apenas palpite.



RUN ( "c:\pasta\arquivo.exe" )


Isso acima parou de funcionar
Troquei para


ShellExecuteOpen( "c:\pasta\arquivo.exe",,"pasta" )


Passou a funcionar.

Minha suposição:
RUN () fica preso a um programa externo, da rede.
ShellExecute() é na ...

... filesold\report\PIX_" + strzero(HB_RandomInt(1, 99999999),8,0) +'.PDF'
hPDF := FCreate(cFileName, 0)
FWrite(hPDF, sPDF)
FClose(hPDF)
WAPI_ShellExecute( NIL, "OPEN", cFileName ,"",NIL,5 )

RETURN Nil ...

... return nil
endif
oSheet := oBook:AddSheet()
AEval( aData, { |a,i| oSheet:SayRow( i - 1, a ) } )
oBook:Close()

? "written " + cFile

ShellExecute( 0, "Open", cFile )

return nil

//----------------------------------------------------------------------------//
// CLASS ...

Olá!
Sim, mas cadê o seu código ?
Esses dai basta trocar por hwg_msgstop() por alert() e HWG_SHELLEXECUTE() por __run() ou hb_processRun( 'open ' + cArq,,@cStdOut,@cStdErr,.T. )
Como vc está usando a função ?

Não vai acontecer nada se vc está só compilando a função pura.

Saudações,
Itamar M. Lins Jr.

... rlpy6i.dir\teste.c'... Done.
C:/Users/jas58/AppData/Local/Temp/hbmk_rlpy6i.dir/teste.o:teste.c:(.data+0x98): undefined reference to `HB_FUN_HWG_SHELLEXECUTE'
C:/Users/jas58/AppData/Local/Temp/hbmk_rlpy6i.dir/teste.o:teste.c:(.data+0x128): undefined reference to `HB_FUN_HWG_MSGSTOP'
collect2.exe ...

... cTitulo)
cHtml += '</html>'

nHan := FCREATE( cARQ )
FWRITE ( nHan , cHTML , LEN( cHTML ) )
FCLOSE( nHan )

#ifdef __PLATFORM__WINDOWS
hwg_ShellExecute(cArq,"open",nil,cDirSist,1)
#else
hb_processRun( 'open ' + cArq,,@cStdOut,@cStdErr,.T. )
#endif

IF !Empty(cStdOut)
hwg_msgstop(cStdOut ...

... cName ) == cValue ;
.OR. Empty( GetEnv( cName ) ) ;
.OR. ! GetEnv( cName ) == cValue
ShowAlert( "Adding to ENV " + cName + "=" + cValue )
ShellExecuteOpen( "setx", cName + " " + cValue,, 0 )
win_RegWrite( "HKCU\Environment\" + cName, cValue )
AAdd( aCmdList, "SET " + cName + "=" + cValue ...

... oElement[ 1 ] ) ) ;
.OR. ! GetEnv( oElement[ 1 ] ) == oElement[ 2 ]
ShowAlert( "Not found SET " + oElement[ 1 ] + "=" + oElement[ 2 ] )
ShellExecuteOpen( "setx", oElement[ 1 ] + " " + oElement[ 2 ],, 0 )
win_RegWrite( "HKCU\Environment\" + oElement[1], oElement[2] )
AAdd( aCmdList, "SET ...

... l, c + 1 ) + ")", fNum2 )

// Close the workbook.
workbook_close( oBook )

?
set( _SET_ALTERNATE, .F. )
set( _SET_ALTFILE , "" )

// wapi_ShellExecute( nil, "open", BM_FILE_OUT )
wapi_ShellExecute( nil, "open", BM_FILE_XLSX )
// wait
return

// Tools functions common.

// Convert the row and ...

... cOutFileName,cDecode,.F.)
//hOutput := FCreate( '\XYZ\Documentos\' + cOutFileName )

//FWrite( hOutput, cDecode)
//FClose( hOutput )

hwg_Shellexecute(cOutFileName,"open",,cDirSist + "Documentos",1)
//wapi_shellexecute(,"Open",cOutFileName)
RETURN .T.


Zero DLL, 100% Harbour Full compatible ...