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

Halt!

Ja, entweder mit Halt; (Brutale Methode).
Oder besser im Projekt Quelltext vor dem erstellen der Form prüfen.

Ü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.

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):

markieren

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.

Oder so:

markieren

Delphi-Quellcode:

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

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

Noch 'ne Möglichkeit:

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

Zitat von Bernhard Geyer:

Noch 'ne Möglichkeit:

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

Das funkt aber nicht