================================= RC 
  
 pvn.lv          CUSTOM      Pvn.lv 
 pvn.ru          CUSTOM      Pvn.ru 
 pvn0.dbf        CUSTOM      Pvn0.dbf 
  
 ================================= применение 
  
  Res2File(Self:LANGINI, lower("PVN"+"."+Self:LANG))    // языковые ini файлы LV / RU 
  
 ================================= HB 
  
 FUNCTION Res2File( cFile, cRes, cTip )  // Ресурс по имени в файл (если файла нет) 
 LOCAL j, l 
  
  IF file(cFile); RETURN .T. 
  ENDIF 
  
  Default cTip To "CUSTOM" 
  
  j := bkApi_LoadResource(bkApi_GetInst(), cRes, cTip) 
  
  l := ! empty(j) .and. valtype(j) == "C" 
  
  IF l; hb_memowrit(cFile, j) 
  ENDIF 
   
 RETURN l 
  
 // В MiniGui есть функция GetInstance(), похоже ее можно использовать вместо BKAPI_GETINST() 
  
 ================================= C  
  
 #define HB_OS_WIN_USED 
  
 #include "hbapi.h" 
 #include "hbapierr.h" 
 #include "hbwinuni.h" 
 #include "hbwapi.h" 
  
 HB_FUNC( BKAPI_LOADLIBRARY ) 
 { 
    LPSTR     pLib; 
    HINSTANCE hInst;                            // Указатель загруженой либы 
  
    pLib  = ( LPSTR ) hb_parc(1); 
  
    hInst = LoadLibraryEx( pLib, NULL, LOAD_LIBRARY_AS_DATAFILE); 
  
    hb_retptr( hInst ); 
 } 
  
 HB_FUNC( BKAPI_FREELIBRARY ) 
 { 
    HINSTANCE hInst; 
  
    hInst = ( HINSTANCE ) hb_parptr( 1 ); 
  
    if( hInst!=NULL )  FreeLibrary( hInst ); 
 } 
  
 HB_FUNC( BKAPI_LOADRESOURCE ) 
 { 
  
   HINSTANCE hInst; 
   HRSRC     hRes; 
   HGLOBAL   hMem; 
   void      *pMem; 
  
   char Name[256]; 
   char Type[256]; 
  
   char *pName, *pType; 
   DWORD i,k; 
  
  
   hInst = ( HINSTANCE ) hb_parptr( 1 ); 
  
   if(hInst==NULL) { hb_retclen("",0); return ; } 
  
   memset(Name, 0, 256); 
   memset(Type, 0, 256); 
  
   pName = (char *) hb_parc(2); 
       k = hb_parclen(2); 
       k = (k < 256)? k : 255; 
  
   for(i=0;i<k;i++) Name = *pName++; 
  
   pType = (char *) hb_parc(3); 
       k = hb_parclen(3); 
       k = (k < 256)? k : 255; 
  
   for(i=0;i<k;i++) Type = *pType++; 
  
  
   hRes = FindResource( hInst, Name, Type); 
  
  
   if( hRes==NULL ){  hb_retclen("",0); return ; } 
    
  
   hMem = LoadResource( hInst, hRes); 
  
   if( hMem==NULL ){  hb_retclen("",0); return ; } 
  
  
   pMem = LockResource( hMem ); 
  
   if( pMem==NULL ){  hb_retclen("",0); return ; } 
  
   k = SizeofResource( hInst, hRes ); 
  
   hb_retclen( ( char * ) pMem, k); 
     
 } 
  
 HB_FUNC ( BKAPI_GETINST ) 
 { 
  
    HINSTANCE hInst; 
    HANDLE hInstance = NULL; 
    hb_winmainArgGet( &hInstance, NULL, NULL ); 
    hInst = ( HINSTANCE ) hInstance; 
  
    hb_retptr( hInst ); 
     
 }