PC Toledo

Olá!

A WAPI.LIB v1.0 está disponível para download na Seção Downloads do Fórum. Procure lá.

Saludos al forum
Alguien tiene esta libreria wapi.lib me la pueda facilitar.
la funcion showtime() a que libreria pertenece si alguin tien esta libreria,
gracias

... C:\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 ...

... C:\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 ...

... NumToHex(), TOleAuto(), Occurs(), HEval(),
TXMLIterator(), TXMLDocument()
hbmk2: Hint: Add option 'hbwin.hbc' for missing function(s):
wapi_OutputDebugString(), win_axGetControl(), wapi_CreateWindowEx(),
win_axInit(), __oleVariantNew()
hbmk2: Hint: Add option 'hbct.hbc' for missing ...

... da API Windows, na lib hbwin do harbour.

FUNCTION MsgYesNo( cText )

LOCAL lValue

//hb_ThreadStart( { || PlayText( cText ) } )
lValue := wapi_MessageBox( wapi_GetActiveWindow(), cText, AppEmpresaApelido() + " Confirmação", WIN_MB_YESNO + WIN_MB_ICONQUESTION + WIN_MB_DEFBUTTON2 + WIN_MB ...

... or EXE not signed" )
IF .F.
SignEXE( cFileName )
ENDIF
ENDIF

RETURN lOk

FUNCTION ShellExecuteOpen( cFileName, cParameters, cPath, nShow )

wapi_ShellExecute( Nil, "open", cFileName, cParameters, cPath, hb_DefaultValue( nShow, 1 ) )

RETURN Nil

FUNCTION Reorganize( hSetup )

LOCAL dDatIni ...

... GR*" )

? cText
SetColor( cSetColor )
stErro := .T.
Inkey(2)

RETURN Nil

FUNCTION ShellExecuteOpen( cFileName, cParameters, cPath, nShow )

wapi_ShellExecute( Nil, "open", cFileName, cParameters, cPath, hb_DefaultValue( nShow, 1 ) )

RETURN Nil

PROCEDURE HB_GTSYS

REQUEST HB_GT_WVG_DEFAULT ...

... ISVISTAORLATER()

d:\harbour\addons>hbmk2 -find getsystemmetrics
addons\hmge_main.hbc (not installed):
GETSYSTEMMETRICS()
hbwin.hbc (installed):
wapi_GetSystemMetrics()

d:\harbour\addons>hbmk2 -find installeventhandler
addons\hmge_main.hbc (not installed):
INSTALLEVENTHANDLER()

d:\harbour ...

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

... 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 with Android/OSX/Linux...Colocar em "ingrez", pq li numa ...

... w64-mingw32/bin/ld.exe: C:/Users/MICROV~1/AppData/Local/Temp/hbmk_8q1xoq.dir/pci10000.o:pci10000.c:(.data+0x1d18): undefined reference to `HB_FUN_WAPI_SETMENU'
f:/programasinstalados/hmg.3.5/mingw/bin/../lib/gcc/i686-w64-mingw32/9.3.0/../../../../i686-w64-mingw32/bin/ld.exe: C:/Users/MICROV~1 ...

... conforme o email ele já configura imap(gmail), smtp, etc...
Apenas o que é mais importante, a linha de comando, para chamar do nosso .exe

wapi_ShellExecute( 0, 'open', 'thunderbird', '-compose "to=' + "'" + AllTrim(cEmail) + "'," + ;
"subject='"+cSubject+"',preselectid='id1',body='"+cBody ...

... HB_GtInfo( HB_GTI_ISFULLSCREEN, .F. )
HB_GtInfo( HB_GTI_MAXIMIZED, .T. )

Está dando erro: Variable does not exist: HB_GTI_ISFULLSCREEN


wapi_ShellExecute(oMainWindow:handle, "open", "c:/caminho/arquivo.exe")

Não está aparecendo a tela console, embora, aparentemente, esteja abrindo ...

Não testei, mas talvez funcione com esta função da hbwin:

wapi_ShellExecute(oMainWindow:handle, "open", "c:/caminho/arquivo.exe")

O valor 'default' do sexto parâmetro já é SHOWNORMAL Sendo assim, a janela do programa deve aparecer corretamente.

Se houver parâmetros, devem ser passados no quarto ...