Чтение пароля с ini файла

[mish@]

Как сохранить пароль и uin в ini файл и при слудующем запуске приложения эти данные были в edit1 и edit2 ?

[Arigato]

Так же, как и другие данные. См. внизу страницы ссылки.

[russian-stalker]

uses inifiles;

var
ini:tinifile;
begin
ini:=tinifile.create(extractfilepath(paramstr(0))+'config.ini');
ini.writestring('User','UIN',edit1.text);
ini.writestring('User','password',edit2.text);
ini.free;

///
edit1.text:=ini.readstring('user','uin','');
edit2.text:=ini.readstring('user','password','');

[mish@]

russian-stalker, а если несколько пользователей зашло и надо несколько уинов и паролей сохранить, и поместить в combobox ?

[Usov]

а как определить какой поместить из нескольких?

[russian-stalker]

procedure TForm1.FormDestroy(Sender: TObject);
var
i:integer;
Ini:tinifile;
begin
ini:=tinifile.Create(extractfilepath(paramstr(0))+'users.ini');
for i:=0 to combobox1.Items.Count-1 do
begin
ini.WriteString(combobox1.Items.Strings[i],'password',edit1.text);
end;
ini.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
Ini:tinifile;
begin
ini:=tinifile.Create(extractfilepath(paramstr(0))+'users.ini');
ini.ReadSections(combobox1.Items);
ini.Free;
end;

[DeKot]

А зачем пароль грузить в .ini ?.Сам пароль можно и в коде программы держать в виде строковой переменной.

var passw: string = 'adc123';
    // вводим пароль в какой либо Edit
 if Form1.Edit1.Text = passw then < открываем программу>;
 else  <выход с программы>;
  //  для нескольких пользователе столько же passw1 .. passwN
      и выбор через case ;

[mustang007]

russian-stalker когда ставлю процедуру FormDestroy и прописываю ваш код, программа перестает работать и не удаляется. А если проверить антивирусом то он говорит, что это троян...