Инициализация DirectX

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, D3DX9, Direct3D9, DXTypes, ExtCtrls;
 
type
 
  TCustomVertex = record
    X, Y, Z: Single;
    RWH: Single;
    Color: DWord;
  end;
 
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  private
    D3D: IDirect3D9;
    D3DMode: D3DDISPLAYMODE;
    D3DParam: D3DPRESENT_PARAMETERS;
    D3DDevice: IDirect3DDevice9;
 
    TR: Array [0..2]of TCustomVertex;
    V: IDirect3DVertexBuffer9;
    PBV: Pointer;
 
  public
    { Public-Deklarationen }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  D3D := Direct3DCreate9(D3D_SDK_VERSION);
  D3D.GetAdapterDisplayMode(D3DADAPTER_DEFAULT, D3DMode);
 
  ZeroMemory(@D3DParam, SizeOf(D3DParam));
 
  D3DParam.BackBufferWidth := ClientWidth;
  D3DParam.BackBufferHeight := ClientHeight;
 
  D3DParam.Windowed := True;
  D3DParam.SwapEffect := D3DSWAPEFFECT_FLIP;
  D3DParam.BackBufferFormat := D3DMode.Format;
 
  D3DParam.FullScreen_RefreshRateInHz := D3DPRESENT_RATE_DEFAULT;
  D3DParam.PresentationInterval := D3DPRESENT_INTERVAL_DEFAULT;
 
  D3D.CreateDevice(D3DADAPTER_DEFAULT, D3DDEVTYPE_HAL, Handle, D3DCREATE_SOFTWARE_VERTEXPROCESSING, @D3DParam, D3DDevice);
 
  TR[0].X := 300;
  TR[0].Y := 300;
  TR[0].Z := 0.5;
  TR[0].RWH := 1;
  TR[0].Color := 255;
 
  TR[1].X := 150;
  TR[1].Y := 300;
  TR[1].Z := 0.5;
  TR[1].RWH := 1;
  TR[1].Color := 255;
 
  TR[2].X := 150;
  TR[2].Y := 150;
  TR[2].Z := 0.5;
  TR[2].RWH := 1;
  TR[2].Color := 255;
 
  D3DDevice.CreateVertexBuffer(3 * SizeOf(TCustomVertex), 0, D3DFVF_XYZ or D3DFVF_DIFFUSE, D3DPOOL_DEFAULT, V, nil);
 
  PBV := nil;
 
  V.Lock(0, SizeOf(TR), PBV, 0);
  CopyMemory(PBV, @TR, SizeOf(TR));
  V.Unlock;
 
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  D3D := nil;
  D3DDevice := nil;
end;
 
procedure TForm1.FormPaint(Sender: TObject);
begin
  D3DDevice.Clear(0, nil, D3DCLEAR_TARGET, D3DCOLOR_XRGB(255, 255, 255), 1, 0);
 
  D3DDevice.BeginScene;
 
  D3DDevice.SetStreamSource(0, V, 0, SizeOf(TCustomVertex));
  D3DDevice.SetFVF(D3DFVF_XYZ or D3DFVF_DIFFUSE);
  D3DDevice.DrawPrimitive(D3DPT_TRIANGLELIST, 0, 1);
 
  D3DDevice.EndScene;
 
  D3DDevice.Present(nil, nil, 0, nil);
end;
 
end.

  TCustomVertex = record
    X, Y, Z: Single;
    RWH: Single;
    Color: DWord;
  end;

D3DDevice.CreateVertexBuffer(3 * SizeOf(TCustomVertex), 0, D3DFVF_XYZ or D3DFVF_DIFFUSE, D3DPOOL_DEFAULT, V, nil);

D3DDevice.CreateVertexBuffer(3 * SizeOf(TCustomVertex), 0, D3DFVF_XYZRHW or D3DFVF_DIFFUSE, D3DPOOL_DEFAULT, V, nil);