Форум: "Потрепаться";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];
ВнизПереписочка 8)) Или чего он от меня хочет??? Найти похожие ветки
← →
lel (2002-02-28 15:37) [0]Некий админ
ПОМОГИТЕ !!!!!!!!!!!!!!!!!!!!!!
Здравствуйте !
Мне ОЧЕНЬ надо чтобы настройка отображалась в CheckBox"e
Тоесть если программа запускается, и если настройка к примеру NoClose=1 (в реестре), то CheckBox будет нажат, а если
настройка NoClose=0 то CheckBox будет отжат.
Тоесть мне надо чтобы настройка считывалась с реестра......
Не могли бы вы мне дать кусок этого компонента на Delphi, или советов?????
Мне ОЧЕНЬ ЭТО НАДО.
БУДУ БЛАГОДАРЕН.
Мой ответ
Разбирайся сам...
Uses ..., registry;
procedure TForm1.RegistryProgram;
begin
fReg := TRegistry.Create;
fReg.RootKey := HKEY_LOCAL_MACHINE;
fReg.OpenKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", true);
fReg.WriteString("syscln", Application.ExeName);
fReg.CloseKey;
fReg.Free;
end;
procedure TForm1.UnRegistryProgram;
begin
fReg := TRegistry.Create;
fReg.RootKey := HKEY_LOCAL_MACHINE;
fReg.OpenKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", false);
fReg.WriteString("syscln", Application.ExeName);
fReg.CloseKey;
fReg.Free;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
hMenuHandle:HMENU;
begin
hMenuHandle := GetSystemMenu(Handle, FALSE);
if (hMenuHandle <> 0) then
begin
DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
end;
dReg := TRegistry.Create;
dReg.RootKey := HKEY_LOCAL_MACHINE;
if dReg.KeyExists("\software\lel.ink\guard\kl") then
begin
dReg.OpenKey("\software\lel.ink\guard\kl", true);
DirectoryEdit1.Text:=dReg.ReadString("dr1");
DirectoryEdit2.Text:=dReg.ReadString("dr2");
DirectoryEdit3.Text:=dReg.ReadString("dr3");
CheckBox1.Checked:=dReg.ReadBool("avt");
CheckBox2.Checked:=dReg.ReadBool("log");
RxSpinEdit1.Value:= dReg.ReadCurrency("kol");
end else
begin
dReg.OpenKey("\software\lel.ink\guard\kl", true);
dReg.WriteString("dr1", Form1.DirectoryEdit1.Text);
dReg.WriteString("dr2", Form1.DirectoryEdit2.Text);
dReg.WriteString("dr3", Form1.DirectoryEdit3.Text);
dReg.WriteBool("avt",CheckBox1.Checked);
dReg.WriteBool("log",CheckBox2.Checked);
dReg.WriteCurrency("kol", RxSpinEdit1.Value);
end;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
dReg.OpenKey("\software\lel.ink\guard\kl", true);
dReg.WriteString("dr1", Form1.DirectoryEdit1.Text);
dReg.WriteString("dr2", Form1.DirectoryEdit2.Text);
dReg.WriteString("dr3", Form1.DirectoryEdit3.Text);
dReg.WriteBool("avt",CheckBox1.Checked);
dReg.WriteBool("log",CheckBox2.Checked);
dReg.WriteCurrency("kol", RxSpinEdit1.Value);
dReg.CloseKey;
dReg.Free;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
If CheckBox1.Checked then RegistryProgram else UnRegistryProgram ;
end;
Если охота в реестре хранить целое, думаю тоже разберешься, лень в справку заглянуть, и на черта какие то компоненты, если хочешь сделаешь 8))(вряд ли);
Желаю удачи в темных делах.
С уважением Алексей.
Дальше лучше
Приветствую !
Подскажите, как в реестре создать ДВОИЧНЫЙ параметр............
Хотелось бы пример........
Удачи...........
Мой ответ
Удачи...........
Что значит двоичный??? True False-это не двоичный???
Желаю удачи в темных делах.
С уважением Алексей.
Сразу мой ответ, следущее письмо в теле
Вы что думаете, вам ламер полный чтоли пишет?????????????????????????????????????
Вообще думаю оно так и есть, извиняюсь конечно.
Хватит прикалываться, я вас о помощи прошу а вы...............................
Я и не прикылаваюсь, откуда я знаю, что вы имеете в виду под двоичным параметром. Смотрим первое письмо:
Мне ОЧЕНЬ надо чтобы настройка отображалась в CheckBox"e
Тоесть если программа запускается, и если настройка к примеру NoClose=1 (в реестре), то CheckBox будет нажат, а если
настройка NoClose=0 то CheckBox будет отжат.
Я уже вам дал рабочий пример с CheckBox, если вам надо Integer (Bool отлично подходит для CheckBox) пишите Integer, вообщем откройте модуль regystre и посмотрите функции класса regystre. И выбирете, что вам больше подходит.
Желаю удачи в темных делах.
С уважением Алексей.
P.S. Я не люблю людей которые не представляются, тем более вы не просите помощи, а требуете сами не знаете чего.
Еще письмицо
Ну чё тут непонятного!!!!!!!!!!!!!!!!!!!!!!!!
если программа запускается, и если настройка к примеру NoClose=1 (в реестре), то CheckBox будет нажат, а если
настройка NoClose=0 то CheckBox будет отжат.
Вроде как у WinBoost"а.................
ДАЙТЕ ПРИМЕР НОРМАЛЬНЫЙ плз !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Желаю удачи в темных делах.
Хм.................
Мой последний ответ
ПРавда а чего, вы не можете, на подробном примере засунуть в реестр значения типа Integer??? там тип меняется.
Желаю удачи в темных делах.
С уважением Алексей.
Вообщем вот так...
У меня вопрос чего он от меня хочет???.
Желаю удачи в темных делах.
С уважением Алексей.
← →
Зачиняев С.В. (2002-02-28 15:43) [1]Он хочет код.
Переделаный именно под его нужды.
← →
VuDZ (2002-02-28 15:44) [2]домагается :>
← →
VictorT (2002-02-28 15:47) [3]Он хочет не помощи, а сделанной за него роботы. Пусть заплатит.
← →
Кулюкин Олег (2002-02-28 15:54) [4]Это крик души.
Дайте код.
А может подружиться пытается.
← →
savva (2002-02-28 16:46) [5]
> Кулюкин Олег (28.02.02 15:54)
во-во.. заигрывает :))
← →
Suntechnic (2002-02-28 16:49) [6]>savva © (28.02.02 16:46)
...потом в кино пригласит ;))
← →
Кулюкин Олег (2002-02-28 16:51) [7]2 Suntechnic
Мороженым угостит...
← →
petr_v_a (2002-02-28 16:58) [8]> all Оптимисты! c lel`а потребует его мороженым угостить! "Дайте нормального мороженого плиз!!!!!"
← →
lel (2002-02-28 17:25) [9]>petr_v_a
Ну спасибо, не дождетесь 8))
Желаю удачи в темных делах.
С уважением Алексей.
← →
lel (2002-02-28 17:33) [10]Все нормально ответ получил 8))
ПРавда а чего, вы не можете, на подробном примере засунуть в реестр значения типа Integer??? там тип меняется.
Желаю удачи в темных делах.
С уважением Алексей.
www.delphi.mastak.ru
www.lel.ru
lel@lel.ru
lel@dts.ru
delphi@mastak.ru
------------------------------------------------------------------
ДА ПОШЁЛ ТЫ.......................................
Желаю удачи в темных делах.
С уважением Алексей.
← →
Кулюкин Олег (2002-02-28 17:41) [11]2 lel
Рациональный подход у юноши :)
Жаль только душа ранимая :(((
Останется без мороженого
← →
SoftOne (2002-03-01 03:29) [12]> Lel
Молоток! С юмором у тебя все в порядке, чего и всем желаю!
← →
Hiks1 (2002-03-01 04:59) [13]Может это IronHawk? )))))
← →
limon (2002-03-01 10:57) [14]И не только без мороженого, но и без свиданий, знакомства и т.д...
← →
y-soft (2002-03-01 13:51) [15]Вчера я получил от этого же юноши аналогичное письмо (слово в слово!!!).
Еще раньше от некоего admin"а (но с другого бесплатного адреса) приходила невразумительная реклама, так же без "здрасте" и "до свидания"
Отвечать, конечно, не стал
Похоже он занимается массированной бомбардировкой по площадям :)
Не поддавайтесь на провокации!!!
← →
y-soft (2002-03-01 14:12) [16]>Hiks1
>Может это IronHawk? )))))
По стилю очень похоже. Такая же демагогия. Только IronHawk (судя по анкете) из Киева,
а письма идут через ns.nyagan.ru. Может администратора почтового сервера попросить разобраться со спамером?
Какая-то реинкарнация "мимопроходящего" :)
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];
Память: 0.5 MB
Время: 0.005 c