|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#31
|
||||
|
||||
ой сорри что два раза написал. Как удалить сообщение ?
|
#32
|
|||
|
|||
Удалить - это к модератору.
А при "взломе" (взлом ли?) почты самое разумное обратиться к администрации MAIL.RU - без них ничего не получиться или чтобы вычислить негодяя надо быть таким же... Не забывайте делать резервные копии |
#33
|
||||
|
||||
Не просто я в таком бешенстве. Одной моей подруге написал "Я взломаю твою почту кусок идиота". И щас на меня такие претензии понеслись... ААААА. Кстати вернусь к проге. Я думаю может убрать вот это всё "введите старый пароль". Потому что при реализации всего этого я заметил, что
Код:
procedure TPSWfrm.Edit1Change(Sender: TObject); begin if (Edit1.Text = 'qaz') then Edit2.Enabled := true; |
#34
|
|||
|
|||
А может не стоит сдаваться. Ведь все очень просто.
Надо объявить глобальную переменную вот таким образом: Код:
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; Не забывайте делать резервные копии Последний раз редактировалось san-46, 22.06.2008 в 15:02. |
#35
|
||||
|
||||
Цитата:
Код:
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; |
#36
|
|||
|
|||
Загромождаем форум. Обсуждаем другим не интересные вещи.
Но надо сделать. Пиши на мыло (я на связи) san-46@yandex.ru. Да и быстрее будет. Не забывайте делать резервные копии |