FiveTech Software tech support forums

Saludos, Necesito utilizar esta funcion en una version antigua de FW que no tiene la funcion CALLDLL Similar a DLL32 Function Apagar (uFlags As LONG, dwReserved AS LONG) ; AS LONG PASCAL FROM "ExitWindowsEx" LIB "USER32.DLL" nResp := DllCall(qrDLL,DC_CALL_STD,"FastQRCode",cStr,cFile) ...

... AS LPSTR,; dwFlags AS DWORD) AS DWORD PASCAL; FROM "ChangeDisplaySettingsA" LIB "User32.dll" DLL32 FUNCTION ExitWindowsEx(uFlags AS DWORD,; dwReserved AS DWORD) AS DWORD PASCAL; LIB "user32.dll" //************************************************************************ ...

... AS LPSTR,; dwFlags AS DWORD) AS DWORD PASCAL; FROM "ChangeDisplaySettingsA" LIB "User32.dll" DLL32 FUNCTION ExitWindowsEx(uFlags AS DWORD,; dwReserved AS DWORD) AS DWORD PASCAL; LIB "user32.dll" ahora puedo usar en cualquier plataforma una resolucion unica de ...

Cleber,

TrackPopupMenuEx() returns a BOOL (logical) value. From Windows API:

BOOL
WINAPI
TrackPopupMenuEx(
HMENU hmenu,
UINT uFlags,
int x,
int y,
HWND hwnd,
LPTPMPARAMS lptpm);

so FWPPC returns a logical value using hb_retl()

... _ (lptypDevMode As Any, ByVal dwFlags As Long) As Long // Exit Windows Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved _ As Long) As Long Best Regards Uwe :?:

... dwReserved AS LONG, ; uReturnCode AS LONG ) ; AS LONG PASCAL; FROM "ExitWindows" LIB "USER32" and DLL32 FUNCTION ExitWindEx; ( uFlags AS LONG, ; dwReserved AS LONG ) ; AS LONG PASCAL; FROM "ExitWindowsEx" LIB "USER32" // uFlags-defines : #define EWX_LOGOFF ...

... AS LPSTR,; dwFlags AS DWORD) AS DWORD; FROM "ChangeDisplaySettingsA" LIB "User32.dll" DLL32 FUNCTION ExitWindowsEx(uFlags AS DWORD,; dwReserved AS DWORD) AS DWORD PASCAL; LIB "user32.dll" Probé tu solución y funciona perfectamente Saludos //--------------------------------------------------------------------------// ...

... AS LPSTR,; dwFlags AS DWORD) AS DWORD; FROM "ChangeDisplaySettingsA" LIB "User32.dll" DLL32 FUNCTION ExitWindowsEx(uFlags AS DWORD,; dwReserved AS DWORD) AS DWORD PASCAL; LIB "user32.dll" Probé tu solución y funciona perfectamente Saludos

... If NOTIFYICONDATA_SIZE = 0 Then SetShellVersion With nid .cbSize = NOTIFYICONDATA_SIZE .hwnd = hwnd .uID = APP_SYSTRAY_ID .uFlags = NIF_INFO .dwInfoFlags = nIconIndex .szInfoTitle = sTitle & vbNullChar .szInfo = sMessage & vbNullChar End With Call Shell_NotifyIcon(NIM_MODIFY, ...

... AS LPSTR,; dwFlags AS DWORD) AS DWORD; FROM "ChangeDisplaySettingsA" LIB "User32.dll" DLL32 FUNCTION ExitWindowsEx(uFlags AS DWORD,; dwReserved AS DWORD) AS DWORD PASCAL; LIB "user32.dll" ------------------------------------------------------------

... AS LPSTR,; dwFlags AS DWORD) AS DWORD; FROM "ChangeDisplaySettingsA" LIB "User32.dll" DLL32 FUNCTION ExitWindowsEx(uFlags AS DWORD,; dwReserved AS DWORD) AS DWORD PASCAL; LIB "user32.dll" Avisame si funcionó saludos

... ( LPCSTR ) hb_parc( 2 ), -1, ( LPWSTR ) pti->szText, hb_parclen( 2 ) + 1 ); pti->hinst = NULL; pti->lpszText = NULL; pti->uFlags = 0; } pone la misma longitud, 40 caracteres y corta el exceso sobre 40. En el segundo caso, HB_FUNC( TTNSETTEXT ) // pNMTTDISPINFO, cTooltipText ...