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;

[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

[neolithos]

Ist die Datenbank noch offen, bzw. bestehen Verbindungen darauf?

[Ultimator]

Zitat:

p:='-a -c2 -p -q '+(DateToStr)+' '.zip Edit1.Text+1*.db';

Ich glaube, du musst das .zip auch in '' setzen. Ich würde das so machen:
p:='-a .c2 -p -q '+(DateToStr)+'.zip'+Edit1.Text+1*.db oder sehe ich da was falsch?