Текущий архив: 2004.03.03;
Скачать: CL | DM;

Вниз

Определение версии DitectX!   Найти похожие ветки 

← →
=Sniper=   (2003-06-16 20:28) [0]

Добрый вечер!
Вот есть такая функция определения версии DitectX!


function GetDXVersion : String;
begin
with tregistry.Create do
try
rootkey:=HKEY_LOCAL_MACHINE;
if OpenKey( "\SOFTWARE\Microsoft\DirectX", False) then
begin
result:= copy(Readstring("Version"),4,3);
end
else result:="DirectX

---

← →
2 Kladov =Sniper=   (2003-06-16 21:15) [1]

Vladimir откликнитесь на мою мессагу

---

← →
BelchonokH   (2003-06-16 23:51) [2]

А так не пробовал?

function GetDXVersion : String;
var
n,s : string;
k: HKEY;
begin
k := RegKeyOpenCreate(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\DirectX\");
result :=RegKeyGetStr(k, "Version");
end;


Правда я не проверял на ошибки, но по правилам вроде так... :)

---

← →
SPeller ©   (2003-06-17 15:45) [3]

У меня есть сыроватая переделка TRegistry под КОЛ, которая является обёрткой функций работы с реестром из KOL.PAS. Изменений кода программы практически не требуется. Если интересно, могу выслать.

---

← →
=Sniper=   (2003-06-17 19:23) [4]

2 BelchonokH: Cool! ;-)

Ща положу Кладову на "мыло" для добавления в kolunits.pas

---

← →
BelchonokH   (2003-06-17 20:04) [5]

n,s : string; лишнее тогда!

---

← →
=Sniper=   (2003-06-17 20:14) [6]

Ага ;-)

---

Страницы: 1 вся ветка

Текущий архив: 2004.03.03;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.031 c