Запрос пороля

[Anna_fors]

Добрый день!
Заинтересовал вопрос на тему "Запрос пароля для входа в систему". Сделала для начала поиск по форуму. Отыскала ссылку. Воспользовалась ею.

Сообщение от beegl

и здесь можеш почитать:
http://programmersforum.ru/showthrea...E0%F0%EE%EB%FC

Вопрос: 1) как прописать d событии OnShow для Form1 значение - Form3.ShowModal?
2) Почему выдает ошибку [Error] Unit2.pas(23): Undeclared identifier: 'TIniFiles'? В соответст. разделах программы я все указала про этот нов. модуль.

[Stilet]

как прописать d событии OnShow для Form1 значение - Form3.ShowModal?

Как обычно:

procedure TForm1.FormShow(Sender: TObject);
begin
 form3.ShowModal;
end;

Почему выдает ошибку

Модуль в uses iniFiles указан? Если нет - код в студию.

[Toxa]

1) напиши в обработчике события OnShow для Form1 эту строку Form3.ShowModal, предварительно подключив Form3 в Form1
2) не TIniFiles, а TIniFile на 23 строчке кода если это не Uses, иначе вместо TIniFiles надо IniFiles

не успел

[Anna_fors]

Спасибо, ребята, за активность в ответах.
Теперь др. проблема выскочила:

procedure TForm2.FormCreate(Sender: TObject);
begin
IniFile:=TIniFile.Create(ExtractFil ePath(Application.ExeName)+'settings.ini'); //ну а здесь мы создали ini файл в директории рядом с программой!
Edit1.Text:=IniFile.ReadString('Pro gram', 'password', ''); //тут мы считываем наш пароль из Ini файла в Edit1
end;

выдает ошибку:[Error] Unit2.pas(34): Undeclared identifier: 'ExtractFil'
Как я понимаю, я должна прописать путь к файлу.ini. Времени мало, разобраться хочется поскорее. ПОдскажите, кто знает, в каком виде должен работать этот оператор....

[Квэнди]

ExtractFil ePath=>ExtractFilePath

[Anna_fors]

Опять вопрос:
Чтоб теперь войти в систему:
Для входа в систему какой я должна ввести пароль? Каторый прописан в коде:Edit1.Text:=IniFile.ReadString ('Program', 'password', '');
Я чего то не понимаю, установила пароль, а теперь не знаю как войти в систему. В Edit прописываю password или Program, а регистрация не позволяет войти. Подскажите, мне , глупой, может я что-то не верно сделала. Вроде по логике я делаю правильно....

[Neeter]

Вы читаете из ini-файла
Следовательно пароль должен быть такой(это примерный текст ini-файла)

[Program]
password=пароль

Вот тот пароль и нужен

[Anna_fors]

Сообщение от Neeter

Вы читаете из ini-файла
Следовательно пароль должен быть такой(это примерный текст ini-файла)

[Program]
password=пароль

Вот тот пароль и нужен

Да где же в конце концов мне его прописать , я не понимаю, как этот файл.ini его просмотреть и отредактировать

[Stilet]

Смотри.
Открой блокнот и набери такое:

[pa]
pass=qwert

Сохрани это в папке проекта как File1.ini
А вот пример:

unit Unit1;

interface

uses     inifiles,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var    f:TIniFile;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var s:string;
begin
// открываем файл
 f:=TIniFile.Create(ExtractFilePath(paramStr(0))+'file1.ini');
// Читаем из секции ра переменку pass
  s:=f.ReadString('pa','pass','');
// просим ввести пароль и проверяем его на эквивалентность 
// с тем что из ини слизали
  if InputBox('','','')<>s then Application.Terminate;
// И если неврно то прога дальше не пойдет
 f.Free;
end;

end.

Так понятно?

[Anna_fors]

Так понятно?

Спасибо, теперь понятнее стало. Не подскажите, а с шифрованием пароля не очень сложно? И еще для регистарции юзера Edit2 если добавить, по аналогии будет так же, Нет там "подводн камней"