1:
2:
3:
4:
5:

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, JvComponent, JvLabel, JvExControls, ExtCtrls, ShellAPI; //<-- hier					

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

procedure TfrmStart.FormActivate(Sender: TObject);
var
  Fehler : Integer;
  Parameter : String;
  SR : TSearchRec;
begin
  if ParamCount > 0 then begin
    Parameter := ParamStr(1);
  end
  else 
  begin
    Parameter := 'Offz';
  end;
  Fehler := FindFirst(Parameter, faAnyFile, SR); // Gibts die Datei überhaupt?
  if Fehler = 0 then // Ja
  begin
    Fehler := ShellExecute(Application.Handle, 'open', PChar(Parameter), Nil, Nil, SW_SHOW);
    Close;
  end;					

1:

shellexecute(Handle, 'open', 'mspaint.exe', Nil, NIl, SW_Show)					

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

program Project2;
{$APPTYPE CONSOLE}
uses sysutils,ShellApi;

begin
  // Hier Anwender-Code
  ShellExecute (Handle,'open','F:\tests\Server.exe',Nil,Nil,SW_SHOW);
  Close;
end.					

1:
2:

  SW_NORMAL = 1;
  SW_SHOW = 5;					

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

procedure TfrmStart.FormActivate(Sender: TObject);
var
  Fehler : Integer;
begin
  if ParamCount > 0 then
    if FileExists(ParamStr(1)) then
    begin
      Fehler := ShellExecute(Application.Handle, 'open', PChar(Parameter), Nil, Nil, SW_SHOW);
      // Hier könnte noch eine Fehlerbehandlung folgen
      Close;
    end;
end;					

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

program Project2;
{$APPTYPE CONSOLE}
uses
  ShellApi,
  Windows;

Var i : Integer;
Begin
  If ParamCount > 0 Then begin
    For i := 1 to ParamCount Do
      ShellExecute (0,'open',PChar(ParamStr(i)),Nil,Nil,SW_Show);
  End;
End.