Создание паролей в Delphi

[RockForr]

Подскажите как сделать изменение пароля в своей программе, так чтобы можно было ввести пароль в поле Edit одной формы, а в главной форме этот пароль вводился в следующий раз при входе в программу. Типа изменение пароля по желанию пользователя.

[maladoy]

работай с ini-файлами или с БД! храни в них пароль! и при изменении перезаписывай!

[RockForr]

Если есть киньте исходник

[maladoy]

работа с ини файлами и реестром

[RockForr]

Как ещё можно менять пароли без работы ини и реестром

[KORN]

сохраняй пароли в базе данных

[RockForr]

Мне надо как в Винде сделать фишку, чтобы я мог сам задавать пароль в своей программе через Edit и нажатием на кнопку, чтобы этот пароль запоминался! КТО-НИБУДЬ ЗНАЕТ КАК ДЕЛАТЬ?

Помогите сделать журнал событий для своей проги, таким образом чтобы
при нажатии на кнопку на одной форме это событие отображалось на другой форме в Memo или ListBox, например кнопка "включить свет", нажимаем на нее, а на другой форме в Memo записываются события-"12:35 Свет включен". Помогите исходником!!!

[maladoy]

procedure TForm2.SpeedButton2Click(Sender: TObject);
begin
form1.Memo.Lines.Add(' Свет включен'+DateTostr(Now));
end;

только модули подключи!

[ScorpioN_T]

вот пример с ИНИ файлом, очень простой....
добавляешь модуль

uses inifiles;
...
var
inifile: tinifile;
s:string;
...
Запись пароля в переменную "S"...
procedure tform.formcreate(sender: tobject);
begin
ini:=inifile.create(extractfilepath(paramstr(0))+'book.ini');
s:=inifile.readestring('Pas','Pass','1234');
inifile.free;
end;

ПРоверка пароля...
procedure TForm1.Button1Click(Sender: TObject);
begin
If edit1.text=s then form2.show
else Form1.Close;
end;

кнопка для записи пароля в ИНИ файл...
procedure TForm1.Button2Click(Sender: TObject);
begin
ini:=inifile.create(extractfilepath(paramstr(0))+'book.ini');
inifile.writestring('Pas','Pass',edit1.text);
inifile.free;
end;

Суть проги при загрузке формы проверяется на начличие пароля, т.е.
записывает пароль в переменную "S", если пароля нет записывает в переменную "S" -1234. После.
При нажатии на ПЕРВУЮ кнопку проверяется ПАРОЛЬ
При нажатии на Второю кнопку создается или меняется ПАРОЛЬ

[RockForr]

ОГРОМНОЕ СПАСИБО!!!

А как сделать чтобы в Memo всегда события хранились?

procedure TForm1.Button1Click(Sender: TObject);
begin
form2.Memo1.Lines.Add(TimeTostr(Now)+ '  ' +DateTostr(Now)+'  -  '+'Свет включен');
end;

end.