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:

procedure ExecuteNewInstance(AExplicitAdmin, AWait: Boolean; AWindow: THandle;
  AParams: string);
var
  ExecuteInfo: SHELLEXECUTEINFO;
begin
  ExecuteInfo.cbSize := sizeof(SHELLEXECUTEINFO);
  ExecuteInfo.Wnd := AWindow;
  ExecuteInfo.fMask := SEE_MASK_NOCLOSEPROCESS;
  if AExplicitAdmin then
    ExecuteInfo.lpVerb := 'runas'
  else
    ExecuteInfo.lpVerb := 'open';
  ExecuteInfo.lpFile := PChar(ParamStr(0));
  ExecuteInfo.lpParameters := PChar(AParams);
  ExecuteInfo.lpDirectory := PChar(ExtractFilePath(ParamStr(0)));
  ExecuteInfo.nShow := SW_SHOWNORMAL;

  { TODO 5 -oSebastian -cWindows 9x Support : When executing ShellExecuteEx Windows 98 and ME fire an exception }
  if ShellExecuteEx(@ExecuteInfo) then
    try
      if AWait then
        WaitForSingleObject(ExecuteInfo.hProcess, INFINITE);
    finally
      CloseHandle(ExecuteInfo.hProcess);
    end;
end;