Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.10.08;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.044 c
15-1158640912
Иксик
2006-09-19 08:41
2006.10.08
Люди добрые


3-1154418338
VictorT
2006-08-01 11:45
2006.10.08
Сравнение результатов двух запросов


2-1158925605
learner
2006-09-22 15:46
2006.10.08
SetLength дла массива Record - в.


6-1147542695
RUNaum
2006-05-13 21:51
2006.10.08
Распаковать gzip-архив


2-1158920627
mfender
2006-09-22 14:23
2006.10.08
Метод класса в производном классе





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский