Programm in FormCreate beenden nach Test ???

[Michi27]

Hi,

ich teste in meinem Programmim Abschnitt TForm1.FormCreate ob eine bestimmte Datei vorhanden ist,
wenn diese vorhanden ist soll das Programm nicht weitermachen sondern sich selbst beenden ohne
weitere Aktivitäten des Benutzers.

Weiß jemand wie ich das hinbekomme, da ja das beenden mit close; im FormCreate wohl nicht geht?!?!

Wer hat einen Tipp parat :-)


Bis dann


Michi

[Sunlight7]

Halt!

Ja, entweder mit

Delphi-Quellcode:

Halt;

(Brutale Methode).
Oder besser im Projekt Quelltext vor dem erstellen der Form prüfen.

[Luckie]

Überleg mal, was du achen willst: Du willst ins Auto einsteigen und gleichzeitig wieder aussteigen. Kann das Funktionieren? Entweder du überlegst vorher, ob du einsteigen willst oder du steigst erst ein und dann wieder aus. Entweder prüfst du vorher, ob die Datei da ist und machste s davon abhängig, b du deine Form erzeugst und weiternachst oder du setzt im OnCreate Ereignis ein Flag und beendets das Programm in einem Ereignis, welches nach OnCreate aufgerufen wird, zum Beispiel OnShow.

[cruiser]

Häng diese Prüfung nich ins Form.OnCreate sondern noch vor dem Aufruf des Application iniziierens in die dpr. bzw halt vor den Code, der die Form aufruft, ich geh aber frecherweise vom Programmstart aus.


Projekt>Quelltext anzeigen

und dann folgendes (rot) einpflegen (ist nur ein schnelles Beispiel):

Code:

program Project1;

uses
  Forms, [color=#ff0000]SysUtils,[/color]
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  [color=#ff0000]if not FileExists('blah') then
  begin[/color]
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  [color=#ff0000]end;[/color]
end.

[Sunlight7]

Oder so:

Delphi-Quellcode:

begin
  If not FileExists('IrgendEinDateiname') then
     Exit;

  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

[Bernhard Geyer]

Noch 'ne Möglichkeit:

Delphi-Quellcode:

PostMessage(WM_CLOSE, self.Handle, 0, 0);

im FormCreate.

[Sunlight7]

Zitat:

Zitat von Bernhard Geyer

Noch 'ne Möglichkeit:

Delphi-Quellcode:

PostMessage(WM_CLOSE, self.Handle, 0, 0);

im FormCreate.

Das funkt aber nicht :zwinker: