Загрузка пароля из файла

[RockForr]

Как загрузить пароль из ини файла.

procedure TPasswordDlg.OKBtnClick(Sender: TObject);
var
s: TMemoryStream;
inifile: tinifile;
begin
S := TMemoryStream.Create;
inifile:=inifile.create('2.ini');
Edit1.Text.LoadFromStream(s);
end.

[beemoto]

так:

 
  ini:= TIniFile.Create(extractfilepath(paramstr(0))+'2.ini');
  Edit1.Text := ini.ReadBool('tools', 'check1', true); // check1 - это параметр в катором записан пасс, tools - это раздел где записан пасс
  ini.Free;

[Jeni]

Опять ты упрямо пишешь inifile:=inifile.create вместо inifile:=Tinifile.create!
Думаешь переубедить компьютер?

[Kotofff]

Файл в котором хранишь пароль должен быть нечитаем извне иначе пропадает весь смысл хранения пароля.
Т.е. зашифрован, например как это сделано в TDataFile.
Я уже говорил неоднократно о нем.

[RockForr]

Подскажите, как переделать эту строку, чтобы из Эдита читался пароль записанный в файле 1.ini, а потом открывалась следующая форма, а если пользователь вводит неверный пароль выдабалась бы ошибка "Пароль введен не верно"

if s=Edit1.Text then form1.show else close;

[KORN]

begin
  ini:= TIniFile.Create(extractfilepath(application.exename)+'1.ini');
  s := ini.Readstring('options', 'pass', ''); 
  ini.Free;

  if s<>edit1.text then
  begin
  showmessage('неверный пароль');
  exit;
  end;
form1.show;
end;

[RockForr]

Здесь ошибка [Error] Unit2.pas(57): Undeclared identifier: 'showmessage'

begin
showmessage('неверный пароль');

[Kotofff]

Модуль Dialogs подключи ...

[RockForr]

Спасибо! А как сделать, чтобы form1 не показывалась, если пароль неверный?

[KORN]

а ты введи блин неправильный пароль и проверишь, что за привычка спрашивать раньше чем проверишь7