Если вы забыли напрочь свой парль для входа в 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 dialogtryif (FormPasswd.ShowModal = ID_OK) thenbegin// If OK is pressed then get password from edit "edPassword"
Passwd := FormPasswd.edPasswd.Text
endelsebegin// If Cancel is pressed then terminate application
Application.ShowMainForm := False;
Application.Terminate;
Exit;
end;
finally
FormPasswd.Free; // finally free password formend;
Continue := (Passwd > '');
Session.AddPassword(Passwd); // Add password typed to sessionend;
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 Eventend;
Статья Как использовать свой диалог ввода пароля BDE раздела Базы данных BDE может быть полезна для разработчиков на delphi & pascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.