Если вы забыли напрочь свой парль для входа в 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;

Эта запись была опубликована 14.12.2007в 14:09. В рубриках: BDE, Базы данных. Вы можете следить за ответами к этой записи через RSS 2.0. Комментарии пока закрыты, но Вы можете оставить трекбек со своего сайта.