HB_FUNC( WRITEPRIVATEPROFILESTRING ) 
 { 
 #ifndef UNICODE 
    LPCSTR   lpSection = hb_parc( 1 ); 
    LPCSTR   lpEntry = HB_ISCHAR( 2 ) ? hb_parc( 2 ) : NULL; 
    LPCSTR   lpData = HB_ISCHAR( 3 ) ? hb_parc( 3 ) : NULL; 
    LPCSTR   lpFileName = hb_parc( 4 ); 
 #else 
    LPWSTR   lpSection = AnsiToWide( ( char * ) hb_parc( 1 ) ); 
    LPWSTR   lpEntry = HB_ISCHAR( 2 ) ? AnsiToWide( ( char * ) hb_parc( 2 ) ) : NULL; 
    LPWSTR   lpData = HB_ISCHAR( 3 ) ? AnsiToWide( ( char * ) hb_parc( 3 ) ) : NULL; 
    LPWSTR   lpFileName = AnsiToWide( ( char * ) hb_parc( 4 ) ); 
 #endif 
    BOOL     result = WritePrivateProfileString( lpSection, lpEntry, lpData, lpFileName ); 
  
    if( !result ) 
    { 
       // DWORD lastError = GetLastError(); 
       // Log the error or return a specific error code to Harbour 
       // Example: hb_errrt_raise(HB_ERR_GENERAL, 1234, "WritePrivateProfileString failed", lastError); 
       hb_retl( FALSE ); 
    } 
    else 
    { 
       hb_retl( TRUE ); 
    } 
  
 #ifdef UNICODE 
    hb_xfree( lpSection ); 
    hb_xfree( lpFileName ); 
    if( lpEntry ) 
    { 
       hb_xfree( lpEntry ); 
    } 
  
    if( lpData ) 
    { 
       hb_xfree( lpData ); 
    } 
 #endif 
 }