Runtime Error in Vista

Graphics3D 640,480 

SetBuffer BackBuffer() 

camera=CreateCamera() 
light=CreateLight() 

cone=CreateCone( 32 ) 
PositionEntity cone,0,0,5 

While Not KeyDown( 1 ) 
RenderWorld 
Flip 
Wend 

End 

// Blitz3D ====================================================================
//-----------------------------------------------------------------------------
.lib "B3D_AppBase.dll"
app_DDHook%(pDD7%):"_app_DDHook@4"
app_DDUnHook():"_app_DDUnHook@0"
app_DDWasLost%():"_app_DDWasLost@0"


// C++ ========================================================================
//-----------------------------------------------------------------------------
#include <windows.h>
#define DIRECTDRAW_VERSION 0x0700
#include <ddraw.h>


//-----------------------------------------------------------------------------
#define BBDECL extern "C" _declspec(dllexport)
#define BBCALL _stdcall


//-----------------------------------------------------------------------------
static LPDIRECTDRAW7        _b3d_pdd;      // pointer to DirectDraw object
static LPDIRECTDRAWSURFACE7 _b3d_pddsPrim; // pointer to primary DirectDraw surface


//-----------------------------------------------------------------------------
BOOL APIENTRY DllMain( HANDLE /*hModule*/, DWORD ul_reason_for_call, LPVOID /*lpReserved*/ )
 {
 switch( ul_reason_for_call )
  {
  case DLL_PROCESS_ATTACH: break;
  case DLL_THREAD_ATTACH: break;
  case DLL_THREAD_DETACH: break;
  case DLL_PROCESS_DETACH: break;
  }
 return TRUE;
 }


//-----------------------------------------------------------------------------
// called by 'app_DDHook()'
HRESULT WINAPI _surfaceEnumCallback_GetPrimary( LPDIRECTDRAWSURFACE7 lpDDSurface, LPDDSURFACEDESC2 lpDDSurfaceDesc, LPVOID /*lpContext*/ )
 {
 if( lpDDSurfaceDesc->ddsCaps.dwCaps & DDSCAPS_PRIMARYSURFACE )
  {
  _b3d_pddsPrim = lpDDSurface;
  return DDENUMRET_CANCEL;
  }
 lpDDSurface->Release();
 return DDENUMRET_OK;
 }


//-----------------------------------------------------------------------------
// Should be called after B3D graphics mode has been set
BBDECL BOOL BBCALL app_DDHook( LPDIRECTDRAW7 pDD )
 {
 if( pDD )
  {
  _b3d_pdd = pDD;
  return (DD_OK == _b3d_pdd->EnumSurfaces( DDENUMSURFACES_DOESEXIST | DDENUMSURFACES_ALL, NULL, NULL, _surfaceEnumCallback_GetPrimary ));
  }
 return FALSE;
 }


//-----------------------------------------------------------------------------
// Should be called before B3D graphics mode is cleared
BBDECL void BBCALL app_DDUnHook()
 {
 if( _b3d_pddsPrim )
  {
  _b3d_pddsPrim->Release();
  _b3d_pddsPrim = NULL;
  _b3d_pdd = NULL;
  }
 }


//-----------------------------------------------------------------------------
// Should be called each time through Blitz3D main-loop
BBDECL BOOL BBCALL app_DDWasLost()
 {
 return (_b3d_pddsPrim && (DD_OK != _b3d_pddsPrim->IsLost()));
 }


// Usage ====================================================================
// On Start Up --------------------------------------------------------------
Graphics3D ...
SetBuffer BackBuffer()
If Not app_DDHook( SystemProperty( "DirectDraw7" ) ) Then /* Error */

// On Shut Down -------------------------------------------------------------
app_DDUnHook()
EndGraphics

// During Main Loop ---------------------------------------------------------
If app_DDWasLost() Then /* reset display, reload graphics */
UpdateWorld: RenderWorld: Flip 

app_DDUnHook()
EndGraphics
Graphics3D ...
SetBuffer BackBuffer()
app_DDHook( SystemProperty( "DirectDraw7" )
; Reload all graphics

; Blitz3D =======================================================
app_init%(hwnd%):"_app_init@4"
app_uninit():"_app_uninit@0"
app_possibleLogOut%():"_app_possibleLogOut@0"
app_clearPossibleLogOut():"_app_clearPossibleLogOut@0"


// C++ =======================================================
//------------------------------------------------------------
static BOOL _winKeyIsDown;
static BOOL _possibleLogOut;


//------------------------------------------------------------
// Intercepts & examines window messages recevied by Blitz3D
LRESULT CALLBACK _AppBase_WindowProc( HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam )
 {
 switch( uMsg )
  {
  case WM_KEYDOWN: _winKeyIsDown = ((wParam == VK_LWIN) || (wParam == VK_RWIN)); break;
  case WM_KEYUP  : _winKeyIsDown = !((wParam == VK_LWIN) || (wParam == VK_RWIN)); break;
  case WM_ACTIVATEAPP:
   {
   if( (wParam == FALSE) && (lParam == 0x0) ) _possibleLogOut = _winKeyIsDown;
   _winKeyIsDown = FALSE;
   }
  break;
  }
 return CallWindowProc( _b3d_windowProc, hwnd, uMsg, wParam, lParam ); 
 }


//------------------------------------------------------------
// Should be called as soon as possible within B3D app.
// Usage: if app_init( SystemProperty( "AppHWND" ) ) then ...
BBDECL BOOL BBCALL app_init( HWND hwnd )
 {
 _b3d_hwnd = hwnd;
 _b3d_windowProc = (WNDPROC)SetWindowLong( _b3d_hwnd, GWL_WNDPROC, (LONG)_AppBase_WindowProc );
 return TRUE;
 }


//------------------------------------------------------------ 
// Should be called just before B3D app ends.
// Usage: app_uninit()
BBDECL void BBCALL app_uninit()
 {
 SetWindowLong( _b3d_hwnd, GWL_WNDPROC, (LONG)_b3d_windowProc );
 _b3d_hwnd = 0;
 }


//-----------------------------------------------------------
// Should be called just before calls to RenderWorld().
// Usage:
//  if app_possibleLogOut() then
//    app_clearPossibleLogOut()
//    /* reset B3D */
//  else
//    RenderWorld: Flip
//  EndIf
BBDECL BOOL BBCALL app_possibleLogOut() { return _possibleLogOut; }


//-----------------------------------------------------------
// Should be called after app_possibleLogOut() has returned TRUE
// Usage: see above
BBDECL void BBCALL app_clearPossibleLogOut() { _possibleLogOut = FALSE; }