Переписочка 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
Рациональный подход у юноши :)
Жаль только душа ранимая :(((

Останется без мороженого

> Lel
Молоток! С юмором у тебя все в порядке, чего и всем желаю!

Может это IronHawk? )))))

И не только без мороженого, но и без свиданий, знакомства и т.д...

Вчера я получил от этого же юноши аналогичное письмо (слово в слово!!!).
Еще раньше от некоего admin"а (но с другого бесплатного адреса) приходила невразумительная реклама, так же без "здрасте" и "до свидания"

Отвечать, конечно, не стал

Похоже он занимается массированной бомбардировкой по площадям :)

Не поддавайтесь на провокации!!!

>Hiks1

>Может это IronHawk? )))))

По стилю очень похоже. Такая же демагогия. Только IronHawk (судя по анкете) из Киева,
а письма идут через ns.nyagan.ru. Может администратора почтового сервера попросить разобраться со спамером?

Какая-то реинкарнация "мимопроходящего" :)

Переписочка 8)) Или чего он от меня хочет??? Найти похожие ветки