Forum: Object-Pascal / Delphi-Language
Delphi
by 150gozilla,
28. Jun 2006
Ok, ich habs eben geändert :)
procedure TForm1.FormCreate(Sender: TObject);
var
Filename: String;
begin
Filename := ExtractFilePath(ParamStr(0)) + 'test.exe';
if FileExists(FileName) then showmessage('Ist da') else showmessage('Ist nicht da');
Forum: Object-Pascal / Delphi-Language
Delphi
by 150gozilla,
28. Jun 2006
Danke :)
Ich habe es jetzt so gelöst:
procedure TForm1.FormCreate(Sender: TObject);
var
Filename: String;
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by 150gozilla,
28. Jun 2006
Hallo.
Wenn mein Programm startet, soll es zu erst überprüfen ob z.B die Datei "bla.123" existiert. Wenn Sie existiert, läuft das Programm weiter, wenn Sie nicht existiert, bekommt der Benutzer eine entsprechende Meldung.
Für jede Hilfe bin ich dankbar.
MfG Chris :)