{$B-,J+,Q-,R-,T-,X+}

{$IFDEF VER100}
  // Delphi 3
  {$DEFINE DelphiX_Delphi3}
{$ENDIF}

{$IFDEF VER120}
  // Delphi 4
  {$DEFINE DelphiX_Delphi4}
{$ENDIF}

{$IFDEF VER130}
  // Delphi 5
  {$DEFINE DelphiX_Delphi5}
{$ENDIF}

{$IFDEF VER140}
  // Delphi 6
  {$DEFINE DelphiX_Delphi6}
{$ENDIF}  

{$IFDEF DelphiX_Delphi3}
  {$DEFINE DelphiX_Spt3}
{$ENDIF}

{$IFDEF DelphiX_Delphi4}
  {$DEFINE DelphiX_Spt3}
  {$DEFINE DelphiX_Spt4}
{$ENDIF}

{$IFDEF DelphiX_Delphi5}
  {$DEFINE DelphiX_Spt3}
  {$DEFINE DelphiX_Spt4}
  {$DEFINE DelphiX_Spt5}
{$ENDIF}

{$IFDEF DelphiX_Delphi6}
  {$DEFINE DelphiX_Spt3}
  {$DEFINE DelphiX_Spt4}
  {$DEFINE DelphiX_Spt5}
  {$DEFINE DelphiX_Spt6}
{$ENDIF}    

quote:

---

Original post by Anonymous Poster
...
(Geee ... my english sucks )

---

quote:

---

Original post by myfirstgame
But in the step 6, I don't know what it mean, and I don't know how to continous, can anybody describe me more clearly and simple,thx

---

quote:

---

Find the line #139 in DirectDraw.pas - it has a comment saying "// Delphi 5 can't handle interface in variant records
// so we have to use pointers instead (which can be type-casted into interfaces):"

Notice there are a few {$IFDEF}s there. These conditionally compile different parts of the code. The term used, ver***, means the Delphi version used. I don't think that the headers have been updated for Delphi 7, though I could be wrong!

Find the line #148. It says:

PDirectDrawSurface = IDirectDrawSurface;

Try changing this to

PDirectDrawSurface = Pointer;

---