Application läuft nicht.

[Christian18]

Hallo,

Weiß jemand warum das nicht funktioniert??? Ich habe keine Ahnung. Ich weiß auch nicht was.

Delphi-Quellcode:

procedure TFTagessicherung.Button2Click(Sender: TObject);
var f, p, d : string;
begin
  f:='pacomp.exe';
  p:='-a -c2 -p -q '+(DateToStr)+' '.zip Edit1.Text+1*.db';
  ShellExecute(FTagessicherung.handle,nil,PChar(f),PChar(p),PChar(ExtractFileDir(Application.ExeName)), 1);
end;