/* 
  * hello.prg 
  */ 
  
 PROCEDURE main() 
    // 
    OutStd("Hello from resources!") 
  
    ErrorLevel( 7 ) 
    // 
    RETURN 

 
 /* 
  * testres.prg 
  */ 
 #define IDR_HELLO 1001 
  
 PROCEDURE main() 
    LOCAL cFileOut := hb_dirTemp() + "\" + "he$$o.tmp" 
    LOCAL nSize, hProcess, nRet 
    // 
    DELETE FILE cFileOut 
  
    nSize := RCDataToFile( IDR_HELLO, cFileOut ) 
  
    IF nSize > 0 
       hProcess := hb_processOpen( cFileOut ) ; nRet := hb_processValue( hProcess, .t. ) 
       QOut( nRet ) 
    ENDIF 
    // 
    RETURN 
  
    // 
    RETURN 
  
 #pragma BEGINDUMP 
  
 #include "hbapi.h" 
 #include "windows.h" 
  
 // JE -> JumpIfEqual 
 #define  JE( _val1_, _val2_, _retval_ ) \ 
               if ( _val2_ == _val1_ ) { dwRet = _retval_; goto ret_code; } 
  
 HB_FUNC( RCDATATOFILE ) 
 {    
    HMODULE  hModule = GetModuleHandle( NULL );  
    HRSRC   hResInfo; 
    HGLOBAL hResData; 
    LPVOID    lpData; 
    DWORD     dwSize, dwRet; 
    HANDLE     hFile; 
  
    hResInfo = FindResource( hModule, MAKEINTRESOURCE(hb_parnl(1), RT_RCDATA );  
    JE( hResInfo, NULL, -1 ) 
  
    hResData = LoadResource( hModule, hResInfo );  
    JE( hResData, NULL, -2 ) 
  
    lpData = LockResource( hResData );  
    JE( lpData,   NULL, -3 ) 
  
    dwSize = SizeofResource( hModule, hResInfo );     
    hFile = CreateFile( hb_parc(2), GENERIC_WRITE, 0, NULL, CREATE_ALWAYS, (DWORD) NULL, NULL ); 
    JE( hFile, INVALID_HANDLE_VALUE, -4 ) 
  
    WriteFile( hFile, lpData, dwSize, &dwRet, NULL );     
    if ( dwRet != dwSize ) 
    { 
       dwRet = -5; 
    } 
    CloseHandle( hFile ); 
  
 ret_code: 
    hb_retnl( dwRet ) ;     
 } 
 #pragma ENDDUMP