Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС
выпущен 4 ноября!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Как использовать свой диалог ввода пароля BDE

Если вы забыли напрочь свой парль для входа в UNIX То попробовать вам нужно подобрать его по буквам Если он не очень длинный, символов на 6, не больше То успеете наверно подобрать его при жизни....


 //  .....
 //  .....
   public
     { Public declarations }
     procedure Password(Sender: TObject; var Continue: Boolean);
 //    ...
   end;
 
 var
   FormMain: TFormMain;
 
 implementation
 {$R *.dfm}
 
 procedure TFormMain.Password(Sender: TObject; var Continue: Boolean);
 var
   Passwd: String[15];
 begin
   Passwd := '';
 
   FormPasswd := TFormPasswd.Create(Application);  // Creating dialog
   try
     if (FormPasswd.ShowModal = ID_OK) then begin  // If OK is pressed then get password from edit "edPassword"
       Passwd := FormPasswd.edPasswd.Text
     end
       else begin                                  // If Cancel is pressed then terminate application
         Application.ShowMainForm := False;
         Application.Terminate;
         Exit;
       end;
   finally
     FormPasswd.Free;                              // finally free password form
   end;
 
   Continue := (Passwd > '');
   Session.AddPassword(Passwd);                    // Add password typed to session
 end;
 
 procedure TFormMain.FormCreate(Sender: TObject);
 begin
   ClientDatabase.Session.RemoveAllPasswords;  // Remove all typed passwords from session, so user need type password again in app start
 //  Undocument next row in debug mode. This is for debugging and testing only, so we don't need typing password again and again ...
 //  ClientDatabase.Session.AddPassword('YOUR-PASSWORD');
   ClientDatabase.Session.OnPassword := Password;  // Set OnPassword Event
 end;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS