Application.Terminate geht nicht mehr ?

[arnof]

Zitat von jaenicke:

Zitat von arnof:

Ich rufe es auf und die Applikation läuft munter weiter (Passwort falsch, dann habe ich Adminrechte )

Das heißt man muss nur das Beenden der Anwendung verhindern und schon hat man Adminrechte? Das hört sich eher nach einem Designproblem an.
Wieso wird die Anwendung denn überhaupt gestartet, sprich Fenster erstellt usw., wenn das Passwort falsch ist?

Viel sinnvoller wäre doch im Projektquelltext die Prüfungen zu machen, sei es dort direkt oder in einem Steuerungsobjekt. Dann brauchst du auch nichts explizit beenden, weil du einfach nur bei richtigem Passwort etwas machst. Und sonst bist du dann am end des Projekts und es ist automatisch beendet...

Bitte mal richtig lesen, da ist kein Designfehler! Wenn das Programm sich nicht beendet, obwohl es das sollte werden auch keine Einschränkungen mehr gezogen, da es eigentlich schon beendet sein sollte nach einem falschen Login!

[baumina]

jaenicke meint es bestimmt so:

Delphi-Quellcode:

program PLM2012;

{$R *.res}

begin
  Application.Initialize;
...
  If AllesOK then Application.Run;
end.

[arnof]

Zitat von baumina:

jaenicke meint es bestimmt so:

Delphi-Quellcode:

program PLM2012;

{$R *.res}

begin
  Application.Initialize;
...
  If AllesOK then Application.Run;
end.

Sie läuft doch schon sonst müsste nicht Terminiert werden!

Aber das Problem ist doch gelöst zu Designtipps werde ich Fragen stellen, wenn ich Tipps brauche

[jaenicke]

Zitat von arnof:

Aber das Problem ist doch gelöst zu Designtipps werde ich Fragen stellen, wenn ich Tipps brauche

Ich glaube zwar weiter nicht, dass das kein Designproblem ist, aber wenn du keine Tipps in die Richtung möchtest, kannst du natürlich gerne bei deinem Weg bleiben, dann werde ich mich bei Posts von dir in Zukunft mit Tipps in Richtung Design oder Architektur entsprechend zurückhalten. Kein Problem.

[arnof]

Zitat von jaenicke:

Zitat von arnof:

Aber das Problem ist doch gelöst zu Designtipps werde ich Fragen stellen, wenn ich Tipps brauche

Ich glaube zwar weiter nicht, dass das kein Designproblem ist, aber wenn du keine Tipps in die Richtung möchtest, kannst du natürlich gerne bei deinem Weg bleiben, dann werde ich mich bei Posts von dir in Zukunft mit Tipps in Richtung Design oder Architektur entsprechend zurückhalten. Kein Problem.

ja wir reden nicht von einem kleinen Projekt das man mal schnell Umdesignen könnte. Alles wieder zu testen würde sicher 1/2 Mann Jahr Zeit beanspruchen, das werde ich sicher nicht investieren nur wegen Application.Terminate! Mit dem Anmelden ist ja nur ein Beipiel wo es beim Betatesten aufgefallen ist (lustiger weise Tritt es nicht auf, wenn ich eine andere Art von Datenbankserver Connectet bin, warum ist eine Frage, die man sich stellen könnte, aber ich muss diese Woche Liefern!)

[jaenicke]

Das ist ein anderer Punkt und das ist klar, das geht wohl jedem in der Praxis immer wieder so.

[baumina]

Zitat von arnof:

Sie läuft doch schon sonst müsste nicht Terminiert werden!

Die Frage bleibt : WARUM läuft sie schon, wenn man das Login VOR dem Application.Run machen könnte.

[Jumpy]

Zitat von baumina:

jaenicke meint es bestimmt so:

Delphi-Quellcode:

program PLM2012;

{$R *.res}

begin
  Application.Initialize;
...
  If AllesOK then Application.Run;
end.

Es gibt ja keine dummen Fragen, deswegen trau ich mich mal. Wenn die Anwendung noch nicht gestartet ist wie macht man dann das Login-Formular? Das ist doch schon Teil der Anwendung? Bezogen auf das Zitat, was mach AllesOK?

[pHL]

Zitat von Jumpy:

Zitat von baumina:

jaenicke meint es bestimmt so:

Delphi-Quellcode:

program PLM2012;

{$R *.res}

begin
  Application.Initialize;
...
  If AllesOK then Application.Run;
end.

Es gibt ja keine dummen Fragen, deswegen trau ich mich mal. Wenn die Anwendung noch nicht gestartet ist wie macht man dann das Login-Formular? Das ist doch schon Teil der Anwendung? Bezogen auf das Zitat, was mach AllesOK?

Suche mal nach Splash-Screen - das hab ich auf die schnelle gefunden

http://www.swissdelphicenter.ch/de/showcode.php?id=420

MfG
pHL

[jaenicke]

Das sieht normalerweise so ca. aus:

Delphi-Quellcode:

program Foo;

uses
  Vcl.Forms,
  Vcl.Controls,
  ...;

{$R *.res}

var
  LoginForm: TfrmLogin;
  InitSuccess: Boolean;
  App: TApplication;
begin
  App := Application;
  App.Initialize;
  App.MainFormOnTaskbar := True;
  LoginForm := TfrmLogin.Create(nil);
  try
    InitSuccess := IsPositiveResult(LoginForm.ShowModal);
  finally
    LoginForm.Free;
  end;
  if InitSuccess then
  begin
    App.CreateForm(TfrmMain, frmMain);
    App.Run;
  end;
end.

Natürlich ist das so trivial zu knacken, sprich man müsste das Ergebnis in InitSuccess noch ein wenig verschleiern, mehrfach prüfen, usw., aber als Beispiel reicht das ja.