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

Вниз

Как записать в реестр переменную типа tagWINDOWPLACEMENT ?   Найти похожие ветки 

 
akiro ©   (2004-02-09 17:59) [0]

Пробую использовать TRegistry.WriteBinaryData - не получается :(


 
Skier ©   (2004-02-09 18:07) [1]

код покажи


 
akiro ©   (2004-02-09 18:18) [2]

GetWindowPlacement(Handle,@varWindowPlacement);

varRegistry := TRegistry.Create;
with varRegistry
do
begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey(sRsRegistryPath,True);
WriteBinaryData(sRsWindowPlacement,varWindowPlacement,2048);
end;


 
VMcL ©   (2004-02-09 18:22) [3]

WriteBinaryData(sRsWindowPlacement, varWindowPlacement, SizeOf(varWindowPlacement));


 
Skier ©   (2004-02-09 18:24) [4]

1) Что возвращает OpenKey True или False ?
2) Почему 2048 (!), а не SizeOf(varWindowPlacement) ?

Если ты увидел число 2048 и бездумно его поставил, то почитай-ка
справку ещё раз :

Long values (more than 2048 bytes) should be stored as separate files, and those file names should be stored in the registry.


 
Skier ©   (2004-02-09 18:26) [5]

Да и ещё ! Нужно использовать try-блок и в секции finally писать
CloseKey !


 
VMcL ©   (2004-02-09 18:47) [6]

>>Skier © (09.02.04 18:26) [5]
>писать CloseKey !

Необязательно, CloseKey() вызывается в Destroy. Если долго не держать в памяти TRegistry, а уничтожать сразу, как отпала необходимость, то вообще можно CloseKey() не вызывать.


 
Skier ©   (2004-02-09 18:49) [7]

смотрим пример в Delphi и видим...

var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey("\Software\Microsoft\Windows\CurrentVersion\RunOnce", True)
then Reg.WriteString("MyApp",""" + ParamStr(0) + """);
finally

Reg.CloseKey;
Reg.Free;

end;
end;


 
VMcL ©   (2004-02-09 19:04) [8]

смотрим Registry.pas и видим:

destructor TRegistry.Destroy;
begin
CloseKey;
inherited;
end;



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

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

Наверх




Память: 0.48 MB
Время: 0.03 c
6-80083
beeper
2003-12-16 19:31
2004.02.25
Изменить настройки сети


1-79707
неуловимый джо
2004-01-23 13:27
2004.02.25
Скрыть MainMenu


1-79935
Sirakuz
2004-02-09 16:23
2004.02.25
Real число и дробная часть


1-79746
Bers01
2004-02-12 10:46
2004.02.25
Как в TListBox вставить элементы типа TCheckBox или TComboBox ...


9-79520
AQUALITY
2003-08-16 18:59
2004.02.25
Вопрос о коллизии