1:
2:

ShellExecute(Handle, nil, pchar(label30.caption+ '\ynot\suchep.exe'), nil, nil, SW_Show);
  labelanz.caption := inttostr(TbSchueler.recordcount);  screen.cursor := crdefault;					

1:

ShellExecute(Handle, 'open', 'c:\test\test.exe', '-Hallo', nil, SW_Show);					

1:
2:
3:

var muh: integer;
begin
  muh := ShellExecute(Handle, 'open', 'c:\test\test.exe', '-Hallo', nil, SW_Show);					

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

procedure TPatMatForm.ReadStrVariable;
var H: THandle;
begin
  H := FindWindow('TBuchMain', NIL);
  PostMessage(H, WM_READSTR, 0, 0);
end;

procedure TPatMatForm.ReceiveStrVariable(var msg: TWMCopyData );
var sText  : array[0..256] of Char;
begin
  StrLCopy(sText, Msg.CopyDataStruct.lpData, Msg.CopyDataStruct.cbData);
  qFname := sText;
  Label11.Caption := qFname;                           {uses FileCtrl/SysUtils}
  Label11.Caption := MinimizeName(qFname,        //Der abzukürzende Pfadname
                                  Label11.Canvas, //Die Referenz-Zeichenfläche
                                  Label11.Width); //Die maximale Ausgabe-Breite
  Label11.Hint := qFname;
end;					

1:

  ShellExecute(Handle, 'open', PChar(ExtractFilePath(ParamStr(0)) + 'Project1.exe'), PCHar('100 100 800 600'), nil, SW_SHOW);					

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:

procedure TForm1.FormShow(Sender: TObject);
var Bounds: Array[0..3] of integer;
begin
  if ParamCount > 1
  then
    Bounds[0] := StrToIntDef(ParamStr(1), Form1.Left) //StrToIntDef mit Form1.Left als default, da Wert sonst 0, wenn ParamStr(x) kein Integer ist
  else
    Bounds[0] := Form1.Left;
  if ParamCount > 2
  then
    Bounds[1] := StrToIntDef(ParamStr(2), Form1.Top)
  else
    Bounds[1] := Form1.Top;
  if ParamCount > 3
  then
    Bounds[2] := StrToIntDef(ParamStr(3), Form1.Width)
  else
    Bounds[2] := Form1.Width;
  if ParamCount > 4
  then
    Bounds[3] := StrToIntDef(ParamStr(4), Form1.Height)
  else
    Bounds[3] := Form1.Height;
  Form1.SetBounds(Bounds[0], Bounds[1], Bounds[2], Bounds[3]);
end;					

1:

SetBounds(100, 100, 800, 600);