FiveTech Software tech support forums

hi Ari,

Ari wrote: do you have any small examples for FiveWin and Harbor

i have no Fivewin / harbour CODE for it, only Xbase++ using OT4XB to build "wrapper" for DLLcall()

under \examples\c\ and \examples\delphi\ you will find CODE which can help to build a "Wrapper" for harbour

Place it just before the final return: #include <windows.h>...if( ! bResult )   MessageBox( 0, "error", "can't ejec't the volume", 0 );return bResult; I would suggest to write a Harbour wrapper for it and there you can issue the warning or simply generate a ...

hi Antonio, return bResult; YES :D next is to write the Harbour wrapper for it and then from there you can check the returned value and show a msg if desired, though usually it is a better practice to leave the developer warn about it in case of an error this is my HB_FUNC() Question               b...

Dear Jimmy,

Simply replace this:

return TRUE ;

with

return bResult;

next is to write the Harbour wrapper for it and then from there you can check the returned value and show a msg if desired,
though usually it is a better practice to leave the developer warn about it in case of an error

hi, i have re-write CODE this Way BOOL EjectVolume( TCHAR cDriveLetter ){   HANDLE hVolume;   BOOL bResult;//   BOOL fRemoveSafely = FALSE;//   BOOL fAutoEject = FALSE;   hVolume = OpenVolume(cDriveLetter);     if( hVolume != INVALID_HANDLE_VALUE )   {      bResult ...

hi Enricon You have to fix the function EjectVolume() as it is not well written. while i had Problem with my DLLCALL Version i have search and found this Version in HMG Forum https://www.hmgforum.com/viewtopic.php?t=4524 but as i´m not a "C" Programmer ...

Try this:

Code: Select all  Expand view

HB_FUNC( OPENVOLUME)
{
    hb_retnl( ( HANDLE ) OpenVolume( ( TCHAR ) hb_parc( 1 ) ) );
}

hi Enrico, This is more correct: HB_FUNC( DISMOUNTVOLUME ){    hb_retl( DismountVolume( ( HANDLE ) hb_parnll( 1 ) ) );} ok, i change all void * to HANDLE ---    HB_FUNC( OPENVOLUME)    {       hb_retl( OpenVolume( ( TCHAR ...

but how with Prototype HANDLE OpenVolume(TCHAR cDriveLetter); HB_FUNC( OPENVOLUME){   hb_retl( OpenVolume(hb_parc( 1 )) );}  Error E2342 FWEJECT.prg 230: Type mismatch in parameter 'cDriveLetter' (wanted 'signed char', got 'const signed char *') HB_...

Dear Jimmy, HB_FUNC( DISMOUNTVOLUME ){    hb_retl( DismountVolume( ( void * ) hb_parnll( 1 ) ) );} This is more correct: HB_FUNC( DISMOUNTVOLUME ){    hb_retl( DismountVolume( ( HANDLE ) hb_parnll( 1 ) ) )...

hi Antonio, YES, this new CODE compile without Error,thx :) so i try "more" and use what chatGPT have answer HB_FUNC( LOCKVOLUME){   hb_retl( LockVolume( ( void * ) hb_parnll( 1 ) ) );}HB_FUNC( DISMOUNTVOLUME ){   hb_retl( ...

Dear Jimmy,

Code: Select all  Expand view

HB_FUNC( DISMOUNTVOLUME )
{
    hb_retl( DismountVolume( ( void * ) hb_parnll( 1 ) ) );
}

i have change CODE as you say but still got (same) Warnings Warning W8004 FWEJECT.prg 190: 'fAutoEject' is assigned a value that is never used in function EjectVolume Warning W8004 FWEJECT.prg 190: 'fRemoveSafely' is assigned a value that is never used in function EjectVolume You are assigning that...

hi Enrico, Try: BOOL fRemoveSafely; // = FALSE;BOOL fAutoEject; // = FALSE; hb_retl( EjectVolume( ( TCHAR ) *szDrive ) ); i have change CODE as you say but still got (same) Warnings Warning W8004 FWEJECT.prg 190: 'fAutoEject' is assigned a value that is never used in function...

What is DismountVolume()? It is not a Windows API.