procedure TForm1.FormCreate(Sender: TObject);
…
begin
FD3D:=nil;
FD3D:=Direct3DCreate8(D3D_SDK_VERSION);
if Assigned(FD3D) then begin
if FD3D.GetDeviceCaps(D3DADAPTER_DEFAULT, D3DDEVTYPE_HAL, cap)=D3D_OK then begin
ListBox1.Items.Add('DeviceType: '+IntToStr(cap.DeviceType));
…
ListBox1.Items.Add('LineCaps: '+IntToStr(cap.LineCaps));
LineCaps(cap.LineCaps);
…
procedure TForm1.LineCaps(value: LongWord);
const
names: array[0..4] of string=(
'D3DLINECAPS_TEXTURE',
'D3DLINECAPS_ZTEST',
'D3DLINECAPS_BLEND',
'D3DLINECAPS_ALPHACMP',
'D3DLINECAPS_FOG'
);
var
i: integer;
s: string;
begin
for i:=0 to 4 do begin
ListBox1.Items.Add(#9'- '+names[i]+': '+yesno[value mod 2 = 1]);
value:=value div 2;
end;
end;