programmstart überwachen

[PhilmacFlLy]

noch eine frage muss ich das so schreiben

Delphi-Quellcode:

    begin ShellExecute(Handle, 'open', PChar(pfade), nil, nil, SW_NORMAL);
          if
            ShellExecute(Handle, 'open', PChar(pfads), nil, nil, SW_NORMAL) < 33
          then
            Application.MessageBox('File is not avaliable or destoryed', 'Error', MB_OK)
          else
            application.Terminate
        end

oder so

Delphi-Quellcode:

if
            ShellExecute(Handle, 'open', PChar(pfads), nil, nil, SW_NORMAL) < 33
          then
            Application.MessageBox('File is not avaliable or destoryed', 'Error', MB_OK)
          else
            application.Terminate
        end