CONNAITRE LA VERSION DE DIRECTX INSTALLÉ SUR LA MACHINE

function TFMain.GetDirectXVersion(var major, minor: word): boolean;
var
Reg: TRegistry;
str: string;
res: boolean;
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;
  str:=Reg.ReadString('Version');
 end;
finally
 Reg.CloseKey;
 Reg.Free;
end;
if res then begin
 Delete(str, 1, POS('.', str));
 Major:=StrToInt(Copy(str, 1, POS('.', str)-1));
 Delete(str, 1, POS('.', str));
 Minor:=StrToInt(Copy(str, 1, POS('.', str)-1));
end;

GetDirectXVersion:=res;
end;