1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

// Auszug aus meinem Prog !!!

procedure TForm1.run(Sender: TObject);
Var
RunFile, path, program, opt : String;

Begin
    path       := ExtractFilePath(ParamStr(0));
    program := 'meinProg.exe'
    opt         := edit1.text;
    RunFile   := path + program + '  ' + opt;
    ShellExecute(0,'open',PChar(RunFile),'','',0);
end;					

1:
2:
3:
4:
5:
6:
7:
8:

HINSTANCE ShellExecute(
    HWND hwnd,
    LPCTSTR lpOperation,
    LPCTSTR lpFile,
    LPCTSTR lpParameters,  // <-- Was´n das? ;o)
    LPCTSTR lpDirectory,
    INT nShowCmd
);					

1:

ShellExecute(0,'open',PChar(run),PChar(opt),' ',0);					

1:

...,' ',0);					

1:

ShellExecute(0,'open',PChar(run),PChar(opt),'',0);					

1:

ShellExecute(0,'open',PChar(run),PChar(opt),nil,0);					

1:

ShellEecute(Application.Handle,Pchar(Name),nil,PChar(Path),sw_ShowNormal);					

1:
2:
3:
4:

path       := ExtractFilePath(ParamStr(0));
program := 'meinProg.exe'
{ ... }
RunFile   := path + program;					

1:

ShellExecute(0,'open','explorer.exe',nil,nil,0);					

1:

RunFile   := path + program + '  ' + opt;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

procedure TForm1.FormCreate(Sender: TObject);
var IniFile : TIniFile;
    MDate   : TDateTime;
    path, s, d, y, m, mc, opt, run : String;
begin
   try
   path := ExtractFilePath(ParamStr(0));
   IniFile:=TInifile.Create(path + 'set.ini');
   Source := IniFile.ReadString('Folder','Source','');
   Target := IniFile.ReadString('Folder','Target','');
   Label3.Caption := Source;
   Label4.Caption := Target;
   finally
   IniFile.Free;
   end;
   label5.Caption:='processing . . . ';
   MDate := date;
   Label6.Caption := DateToStr(Mdate);
   mc := IntToStr(monthof(MDate));
   m  := mc;
   if (StrToInt(mc) < 10) then m:= '0'+ mc;
   d := IntToStr(dayof(MDate));
   y := IntToStr(yearof(MDate));
   s:= 'NW-'+ m + '-' + d + '-' + y + '.zip';
   Label6.Caption:=s;
//   target := '"' + target + s + '"';       Parameter mit "
//   source := '"' + source + '\*.*"';     Parameter mit "
   target := target + s;                   // Parameter ohne "
   source := source + '\*.*';           // Parameter ohne "
   opt := ' ' + Target + ' ' + source;
   run := 'wzzip.exe';                    // Test mit WinZip Command Line
//   ShowMessage(run+opt);
   ShellExecute(0,'open',PChar(run),PChar(opt),nil,0);
   Application.Terminate;
end;					

1:
2:

run := 'wzzip.exe';
ShellExecute(0,'open',PChar(run),PChar(opt),nil,0);					

1:

ShellExecute(0,nil,PChar(run),PChar(opt),PChar(path),0);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.FormCreate(Sender: TObject);
var
  Source,
  Target  : string;
  IniFile : TIniFile;
  path,
  s,
  run     : String;
begin
  path     := ExtractFilePath(ParamStr(0));					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

  IniFile  := TInifile.Create(path + 'set.ini');
  try
    Source := IniFile.ReadString('Folder','Source','');
    Target := IniFile.ReadString('Folder','Target','');
  finally
    IniFile.Free;
  end;

  Label3.Caption := Source;
  Label4.Caption := Target;
  Label5.Caption :='processing . . . ';					

1:
2:

  s              := FormatDateTime('"NW-"mm"-"dd"-"yyyy".zip"',Date);
  Label6.Caption := s;					

1:
2:

  if(Target[length(Target)] <> '\') then
    Target       := Target + '\';					

1:
2:
3:

  Target         := Target + s;
  Source         := Source + '\*.*';
  run            := 'wzzip.exe';					

1:
2:
3:

  ShellExecute(0,'open',pchar(run),pchar(Target + #32 + Source),
    pchar(path),SW_SHOWNORMAL);
end;