[ '(' erwartet, aber ';' gefunden ] nach CopyFile

[DeddyH]

Im FormCreate geht Close nicht.

[Deltachaos]

Zitat:

Zitat von Fussball-Robby

Zitat:

Zitat von Deltachaos

mit dem form1.close hatte ich es probirt da satartet das programm zwar aber es schliest sich net.

Dann wird diese Codestelle wahrscheinlich garnicht ausgeführt.

fragt sich warum weil ja die datei kopirt wird:

Delphi-Quellcode:

procedure upd;
begin
  begin
    CopyFile(PChar(Dat_orig), PChar(Dat_copy) ,false);
  end;
  form1.close;
end;

[Fussball-Robby]

Dann nimm Form1.Destroy;

[DeddyH]

Verschieb das Close nach FormShow oder FormActivate.

[Deltachaos]

Zitat:

Zitat von Fussball-Robby

Dann nimm Form1.Destroy;

lol ZERSTÖREN
hat geklapt!

da sieht man mal wieder das freundlich bitten für dumme gedacht ist. zerstören geht doch viel einfacher!
*ironisch mein*
:mrgreen: :mrgreen: :mrgreen: :mrgreen: :mrgreen:

[Muetze1]

Hier nochmal start vereinfacht:

Delphi-Quellcode:

procedure start;
begin
  MsgDlg1:= MessageDlg('Backup Anlegen ?', mtConfirmation, [mbYes, mbNo], 0);

  if MsgDlg1= mrYes then
  begin
    namen;

    if not DirectoryExists('bak') then 
      mkdir('bak');
  end;

  upd;
end;

[Fussball-Robby]

Ich würde die Prozedur namen ganz rausnehmen und stattdessen Konstanten verwenden. Außerdem braucht man die Variable MsgDlg1 nicht unbedingt:

Delphi-Quellcode:

const
  dat_orig = 'update.exe';
  dat_copy = 'bak\update.exe';
  exe_name = 'update';
  version  = '1.0.0';

//[..]

procedure start;
begin
  if (MessageDlg('Backup Anlegen?', mtConfirmation, [mbYes, mbNo], 0) = mrYes) and (not DirectoryExists('bak')) then mkdir('bak');
  upd;
end;

Mfg

[Muetze1]

Und wohin hast du nun den Aufruf von "namen" wegrationalisiert?

[Fussball-Robby]

In namen wurden nur die Werte von Variablen festgesetzt, diese Variablen habe ich durch Konstanten ersetzt, da sie nicht geändert werden müssen.

Mfg

[Die Muhkuh]

Sollte man nicht sowieso lieber mit absoluten Pfaden arbeiten?

Stand doch erst was in der DP, von wegen aktuellen Arbeitsverzeichnis etc. pp.