Модераторы: Snowy, MetalFan, bems, Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Помощь по CheckBox 
:(
    Опции темы
Виктор21
Дата 11.5.2012, 15:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 11.5.2012

Репутация: -2
Всего: -2
Народ, помогите сделать рабочий 'CheckBox' запомнить имя и пароль. Чтобы во второй раз когда зайдут в программу не надо было ввести заново данные.

Присоединённый файл ( Кол-во скачиваний: 15 )
Присоединённый файл  123.png 66,01 Kb
PM MAIL   Вверх
XperT
Дата 11.5.2012, 16:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 269
Регистрация: 19.8.2006

Репутация: нет
Всего: 4
А в чем конкретно проблема? Чекбоксы на форму бросать не умеем? Считывать состояние чекбокса? Или записывать его в файл/реестр?
PM MAIL   Вверх
Данкинг
Дата 11.5.2012, 16:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Цитата(Виктор21 @  11.5.2012,  16:53 Найти цитируемый пост)
Чтобы во второй раз когда зайдут в программу не надо было ввести заново данные. 

Сохраняй инфу в реестре.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Виктор21
Дата 11.5.2012, 17:37 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 11.5.2012

Репутация: -2
Всего: -2
Цитата(Данкинг @ 11.5.2012,  16:56)
Цитата(Виктор21 @  11.5.2012,  16:53 Найти цитируемый пост)
Чтобы во второй раз когда зайдут в программу не надо было ввести заново данные. 

Сохраняй инфу в реестре.

если можно напиши код

Добавлено через 36 секунд
Цитата(XperT @ 11.5.2012,  16:51)
А в чем конкретно проблема? Чекбоксы на форму бросать не умеем? Считывать состояние чекбокса? Или записывать его в файл/реестр?

проблема в том что несохраняет нифига
PM MAIL   Вверх
Данкинг
Дата 11.5.2012, 17:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Цитата(Виктор21 @  11.5.2012,  18:37 Найти цитируемый пост)
если можно напиши код

Ищи по форуму процедуру RegWriteStr.
Цитата(Виктор21 @  11.5.2012,  18:37 Найти цитируемый пост)
проблема в том что несохраняет нифига 

Совсем нифига несохраняет?


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Виктор21
Дата 11.5.2012, 17:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 11.5.2012

Репутация: -2
Всего: -2
Данкинг совсем нефига
PM MAIL   Вверх
northener
Дата 11.5.2012, 17:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 12
Всего: 20
Цитата(Виктор21 @  11.5.2012,  17:37 Найти цитируемый пост)
проблема в том что несохраняет нифига 

А пробовал?


--------------------
Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!
PM MAIL   Вверх
Виктор21
Дата 11.5.2012, 17:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 11.5.2012

Репутация: -2
Всего: -2
Цитата(northener @ 11.5.2012,  17:56)
Цитата(Виктор21 @  11.5.2012,  17:37 Найти цитируемый пост)
проблема в том что несохраняет нифига 

А пробовал?

конечно
PM MAIL   Вверх
Данкинг
Дата 11.5.2012, 18:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Цитата(Виктор21 @  11.5.2012,  18:58 Найти цитируемый пост)
конечно

Пробуй сохранить в HKCU для данного юзера. Может, прав на запись в реестр нет.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Виктор21
Дата 11.5.2012, 18:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 11.5.2012

Репутация: -2
Всего: -2
Цитата(Данкинг @ 11.5.2012,  18:15)
Цитата(Виктор21 @  11.5.2012,  18:58 Найти цитируемый пост)
конечно

Пробуй сохранить в HKCU для данного юзера. Может, прав на запись в реестр нет.

напиши исходник ато невыходит
PM MAIL   Вверх
Данкинг
Дата 11.5.2012, 18:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Цитата(Виктор21 @  11.5.2012,  19:18 Найти цитируемый пост)
напиши исходник ато невыходит 

Если ато невыходит - это не есть хорошо, но покажи сначала свой код, где ты пробовал.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Виктор21
Дата 11.5.2012, 18:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 11.5.2012

Репутация: -2
Всего: -2
Код

function RegWriteStr(RootKey: HKEY; Key, Name, Value: string): Boolean;
var
  Handle: HKEY;
  Res: LongInt;
begin
  Result := False;
  Res := RegCreateKeyEx(RootKey, PChar(Key), 0, nil, REG_OPTION_NON_VOLATILE,
    KEY_ALL_ACCESS, nil, Handle, nil);
  if Res <> ERROR_SUCCESS then
    Exit;
  Res := RegSetValueEx(Handle, PChar(Name), 0, REG_SZ, PChar(Value),
    Length(Value) + 1);
  Result := Res = ERROR_SUCCESS;
  RegCloseKey(Handle);
end;


Добавлено через 1 минуту и 54 секунды
не знаю правильно или нет...
PM MAIL   Вверх
Виктор21
Дата 11.5.2012, 19:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 11.5.2012

Репутация: -2
Всего: -2
:( чу ни кто не поможет? 
PM MAIL   Вверх
northener
Дата 11.5.2012, 20:13 (ссылка) | (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 12
Всего: 20
Цитата(Виктор21 @  11.5.2012,  19:56 Найти цитируемый пост)
чу ни кто не поможет?

Так где кодБ которым ты пробовал записать в реестр? Не чужая готовая функция (которая кстати в данном случае не пригодна), а твой код.

Добавлено через 14 минут и 34 секунды
Использование TRegistry


--------------------
Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!
PM MAIL   Вверх
Данкинг
Дата 11.5.2012, 21:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Цитата(Виктор21 @  11.5.2012,  19:38 Найти цитируемый пост)
не знаю правильно или нет... 

Да, функция правильная, я про неё и говорил.

Добавлено через 43 секунды
Цитата(northener @  11.5.2012,  21:13 Найти цитируемый пост)
которая кстати в данном случае не пригодна)

Почему? Строковое значение же нужно записать в реестр.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0989 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.