PC Toledo

... Fixed
- **shellapi.c**: fixed Unicode/ANSI string handling – replaced
`HB_PARSTRDEF()` with `HB_PARSTR()` in `HWG_SELECTFOLDER()` and
`HWG_SHELLEXECUTE()` for proper TCHAR/Unicode support.
- **shellapi.c**: fixed `HWG_SHELLEXECUTE()` return value – changed from
`HB_RETHANDLE()` to `hb_retnint ...

... If oDanfe:cRetorno # [OK]
MsgInfo(cArqXml, [Erro em: ] + cArqXml)
MsgInfo(oDanfe:cRetorno, [Erro ao Gerar o Pdf])
Else
If lCkVisual
WAPI_SHELLEXECUTE(cFilePDF,, cFilePDF,,, 1)
Else
If !Hb_FileExists(GetCurrentFolder() + [\sumatrapdf.exe])
fOpenFTP([sumatrapdf.exe])
Endif

If WAPI ...

... 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 ...