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

function test : Boolean;
var
  strDir: String;
  ShExecInfo : SHELLEXECUTEINFO;
  
strDir  := ExtractFilePath("pfad zu der datei");

    ShExecInfo.cbSize := sizeof(SHELLEXECUTEINFO);
    ShExecInfo.fMask := SEE_MASK_NOCLOSEPROCESS;
    ShExecInfo.lpVerb := nil;
    ShExecInfo.lpFile := PChar(fExePath);
    ShExecInfo.lpDirectory := nil;
    ShExecInfo.nShow := SW_HIDE;

    Result := ShellExecuteEx(@ShExecInfo);

end;                    

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

procedure TForm1.Button2Click(Sender: TObject);
const
  APP = 'c:\Windows\notepad.exe';
var
  si: TStartupInfo;
  pi: TProcessInformation;
begin
  ZeroMemory(@si, sizeof(TStartupInfo));
  ZeroMemory(@pi, sizeof(TProcessInformation));
  if not CreateProcess(nil, PChar(APP), nil, nil, False, 0, nil, nil, si, pi) then
    ShowMessage(SysErrorMessage(GetLastError))
  else
    ShowMessage(IntToStr(pi.dwProcessId));
end;