Форум: "Прочее";
Текущий архив: 2006.10.08;
Скачать: [xml.tar.bz2];

Вниз

Ни-ти-вонипонимаю :-((   Найти похожие ветки 

← →
DillerXX ©   (2006-09-16 23:10) [0]

Код1:

uses
 Windows;
var
 Value: DWORD;

var
 Key: hKey;
 ddSize: DWORD;
begin
 RegOpenKey(HKEY_LOCAL_MACHINE, "SYSTEM\Select", Key);
 RegQueryValueEx(Key, "Current", nil, nil, @Value, @ddSize);
end.


В Д7 и под ХР он НЕ работает, в Value лежит 0. Следующий код
Код2:

uses
 Windows;
var
 Value: DWORD;

procedure Proc;
var
 Key: hKey;
 ddSize: DWORD;
begin
 RegOpenKey(HKEY_LOCAL_MACHINE, "SYSTEM\Select", Key);
 RegQueryValueEx(Key, "Current", nil, nil, @Value, @ddSize);
end;

begin
 Proc;
end.

И он РАБОТАЕТ, Value = 3.
Вопрос: и ..... ???

---

← →
guav ©   (2006-09-16 23:17) [1]

смотри справку по RegQueryValueEx. Инициализируй ddSize

---

← →
Чапаев ©   (2006-09-16 23:19) [2]

> В Д7 и под ХР он НЕ работает, в Value лежит 0.

Мессир, я в панике! Почему у меня под ХР после выполнения первой строки кода в Key лежит 4052?

---

← →
Чапаев ©   (2006-09-16 23:19) [3]

То есть пардон, кое-кому пора спать.

---

← →
DillerXX ©   (2006-09-17 11:16) [4]

Понял, разобрался, всем спасибо :) ДА действительно, мне спать лечь пора было... не подумал про не-инициализацию переменных в процедурах.

---

← →
Чапаев ©   (2006-09-17 11:30) [5]

> ДА действительно, мне спать лечь пора было...

Неправда, спать пора было мне.

---

← →
DillerXX ©   (2006-09-17 14:52) [6]

> Неправда, спать пора было мне

Вы ошибаетесь! Мне тоже пора было...

---

← →
Колдун ©   (2006-09-17 16:28) [7]

ффсем спать - ссут, идёт

---

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

Форум: "Прочее";
Текущий архив: 2006.10.08;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.112 c