[MezKo]

Сообщение от san-46

Код:

var
  StrPsw : String = 'gaz';

//при запуске программы вызывать функцию LoadPSW
  S := LoadPSW(FileName); //S - локальная переменная (временная)
  if S <> '' then
    StrPsw := S;

не мог бы уточнить куда этот кусок писать ? В форму с паролем, которая появляется при запуске программы? или нет. И если да то в какое место его засунуть ? В это ?

Код:

function LoadPsw(FileName : string): string;
var
  IniF : TIniFile;
begin
  Result := '';
  IniF := TIniFile.Create(FileName);
  try
    Result := IniF.ReadString('PSW', 'PSW', '');
  finally
    IniF.Free;
  end;
end;