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

Вниз

Как записать в реестр параметр типа DWORD?   Найти похожие ветки 

 
ronyn   (2005-07-21 00:43) [0]

Как записать параметр типа DWord   в реестр. У меня прописывается почему-то любой другой тип, кроме этого.


 
GanibalLector ©   (2005-07-21 01:20) [1]

да хоть тот-жеWriteInteger ;)

var Reg:TRegistry;
begin
 REg:=TRegistry.Create;
 try
   with Reg do
   begin
     OpenKey("software",true);
     OpenKey("poBEDA",True);
     WriteInteger("fuck",12345);
   end;
 finally
   Reg.Free;
 end;
end;


 
GanibalLector ©   (2005-07-21 01:23) [2]

Ну,а если на низком уровне,то юзай RegSetValueEx


 
ronyn   (2005-07-21 01:34) [3]

А где же здесь прописывается параметр типа DWORD?


 
GanibalLector ©   (2005-07-21 01:41) [4]

>А где же здесь прописывается параметр типа DWORD?
вот :   WriteInteger("fuck",12345);

Потому как где-то в Registry.pas имеем :

...
rdInteger: Result := REG_DWORD;
... // или даже ;))
Value = REG_DWORD then Result := rdInteger

procedure TRegistry.WriteInteger(const Name: string; Value: Integer);
begin
 PutData(Name, @Value, SizeOf(Integer), rdInteger);
end;


 
GanibalLector ©   (2005-07-21 02:01) [5]

Кстати,чтобы развеять твои сомнения можешь проверить :

var Info: TRegDataInfo;
...

GetDataInfo("fuck",Info);
if Info.RegData=rdInteger then
MessageDlg("Таки DWord...",MtInformation,[MbOk],0);


 
evvcom ©   (2005-07-21 08:34) [6]


> А где же здесь прописывается параметр типа DWORD?

А что есть такое DWORD, ты понимаешь?


 
Anatoly Podgoretsky ©   (2005-07-21 09:06) [7]

ronyn   (21.07.05 00:43)  
И как неправильно ты делаешь?



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

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

Наверх




Память: 0.48 MB
Время: 0.049 c
1-1121927266
MAVr
2005-07-21 10:27
2005.08.07
Возможно ли изменить атрибуты файла?


1-1121671426
Джек
2005-07-18 11:23
2005.08.07
Поиск файлов


4-1118150125
СССР
2005-06-07 17:15
2005.08.07
как прочитать информацию ATIP ?


6-1114085582
Gek1
2005-04-21 16:13
2005.08.07
Проблема с TClientSocket


9-1113983835
lifo
2005-04-20 11:57
2005.08.07
Алгоритм сравневаия рисунков