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:

       Optionsstring := '-min -a '
                        +CHR(34)
                        +Pfad
                        +DataModul.Macht.FieldValues['DATENPFAD']
                        +'_DB_'
                        +inttostr(Datamodul.Stamm.FieldValues['MONATE'])
                        +'_'
                        +inttostr(Datamodul.Stamm.FieldValues['JAHRE'])
                        +CHR(34)
                        +' '
                        +CHR(34)
                        +Pfad
                        +'Datenbank\'+Hauptserver+'\ComStar\*.*'
                        +CHR(34);
   try
    Success := False;
    if WarteBox.Checked then
     begin
     // Disable the button while the external app is running
     // Make sure to re-enable the button afterwards
      Zippen.Enabled := False;
      Success := ExecAppWait('winzip',Optionsstring);
     end
    else
     begin
      InstanceID := ShellExecute(Handle, 'open', PChar('winzip'),
        PChar(Optionsstring), nil, SW_SHOW);
      Success := InstanceID >= 32; // a value less than 32 is an error
     end;
   finally
    Zippen.Enabled := True;
   end;
   if not Success then
    ShowMessage('Application failed: ' + 'winzip' + ' ' +
      Optionsstring);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

function ExecAppWait(AppName, Params: string): Boolean;
var
  // structure containing and receiving info about application to start
  ShellExInfo: TShellExecuteInfo;
begin
  FillChar(ShellExInfo, SizeOf(ShellExInfo), 0);
  with ShellExInfo do begin
    cbSize := SizeOf(ShellExInfo);
    fMask := see_Mask_NoCloseProcess;
    Wnd := Application.Handle;
    lpFile := PChar(AppName);
    lpParameters := PChar(Params);
    nShow := sw_ShowNormal;
  end;
  Result := ShellExecuteEx(@ShellExInfo);
  if Result then
    while WaitForSingleObject(ShellExInfo.HProcess, 100) = WAIT_TIMEOUT do
    begin
      Application.ProcessMessages;
      if Application.Terminated then Break;
    end;
end;                    

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

          with Player do
            begin
              FileName :=pfad+'Sounds\Explosion'+a+'.wav';
              Open;
              wait:=true;
              Play;             
              Close;
            end;