Application läuft nicht.

[mirage228]

Zitat von 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;

Versuchs mal so:

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'; // da fehlte ein ' / und was soll DateToStr
  ShellExecute(FTagessicherung.Handle, 'open', PChar(f), PChar(p), PChar(ExtractFilePath(Application.ExeName)), 
    SW_SHOWNORMAL);
end;

mfG
mirage228