| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Определение версии DitectX!
=Sniper= © (2003-06-16 20:28:00)Добрый вечер!
Вот есть такая функция определения версии 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
=Sniper= (2003-06-17 20:14:00) [1]
Ага ;-)
BelchonokH (2003-06-17 20:04:00) [2]
n,s : string; лишнее тогда!
=Sniper= (2003-06-17 19:23:00) [3]
2 BelchonokH: Cool! ;-)
Ща положу Кладову на "мыло" для добавления в kolunits.pas
SPeller (2003-06-17 15:45:00) [4]
У меня есть сыроватая переделка TRegistry под КОЛ, которая является обёрткой функций работы с реестром из KOL.PAS. Изменений кода программы практически не требуется. Если интересно, могу выслать.
BelchonokH (2003-06-16 23:51:00) [5]
А так не пробовал?
function GetDXVersion : String;
var
n,s : string;
k: HKEY;
begin
k := RegKeyOpenCreate(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\DirectX\");
result :=RegKeyGetStr(k, "Version");
end;
Правда я не проверял на ошибки, но по правилам вроде так... :)
2 Kladov =Sniper= (2003-06-16 21:15:00) [6]
Vladimir откликнитесь на мою мессагу
| |
