1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

function GetDirectXVersion(var major, minor: word): boolean;
var Reg: TRegistry;
    str: string;
    res: boolean;
    DXVersion: record
                 Major: Longword;
                 Minor: Longword;
               end;

begin
  str:='';
  res:=false;
  major:=0; minor:=0;
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('\Software\Microsoft\DirectX', False) then
    begin
      res:=true;
      Reg.ReadBinaryData('InstalledVersion', DXVersion, SizeOf(DXVersion));
    end;
  finally
    Reg.CloseKey;
    Reg.Free;
  end;

  if res then
  begin
    Major:=HiByte(hiWord(DXVersion.Major));
    Minor:=HiByte(hiword(DXVersion.Minor));
  end;

  Result := res;
end;                    

1:
2:
3:
4:
5:
6:

procedure TForm1.Button1Click(Sender: TObject);
var Major, Minor: Byte;
begin
  GetDirectXVersion(Major, Minor);
  ShowMessage('Version: ' + IntToStr(major) + '.' + IntToStr(minor));
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

// uses GetDXVerUnit nicht vergessen!

procedure ShowDXVersion;
var C: Cardinal; // Nur wegen dem out-Parameter
    dxversion: String;
begin
 GetDXVersion(C,dxversion);
 Application.MessageBox(PChar(dxversion),'DX-Version');
end;