[MezKo]

ой сорри что два раза написал. Как удалить сообщение ?

[san-46]

Удалить - это к модератору.

А при "взломе" (взлом ли?) почты самое разумное обратиться к администрации MAIL.RU - без них ничего не получиться или чтобы вычислить негодяя надо быть таким же...

[MezKo]

Не просто я в таком бешенстве. Одной моей подруге написал "Я взломаю твою почту кусок идиота". И щас на меня такие претензии понеслись... ААААА. Кстати вернусь к проге. Я думаю может убрать вот это всё "введите старый пароль". Потому что при реализации всего этого я заметил, что

Код:

procedure TPSWfrm.Edit1Change(Sender: TObject);
begin
  if (Edit1.Text = 'qaz') then
    Edit2.Enabled := true;

только при вводе 'qaz' Edit2 будет активно, а если пароль измениться это нада и в Edit1 вводить старое значение, а это ещё больше проблем. Так что я думаю остановлюсь на том что сделаю одно поле Edit, как я видел в одной программе. Запрашивается ввод нового пароля и всё.

[san-46]

А может не стоит сдаваться. Ведь все очень просто.
Надо объявить глобальную переменную вот таким образом:

Код:

var
  StrPsw : String = 'gaz';

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

//а пароль проверять подставляя эту переменную, а не константу 'gaz'.
procedure TPSWfrm.Edit1Change(Sender: TObject);
begin
  if (Edit1.Text = StrPsw) then
    Edit2.Enabled := true;  

Кстати, TIniFile находится в модуле IniFiles, который и надо указать в секции uses.

[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;

[san-46]

Загромождаем форум. Обсуждаем другим не интересные вещи.
Но надо сделать. Пиши на мыло (я на связи) san-46@yandex.ru. Да и быстрее будет.