- 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;
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;