uses Registry; …
function 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;