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

program x2;
uses ShellApi,Windows,SvcMgr;
var h:integer; //handle
    p:integer;
begin
 p:=5000;
 while true do begin
  sleep(p);
  h:=FindWindow('x1',nil);
  if not(isWindow(h))then begin
   ShellExecute(h, '', 'x1.exe','','c:\programme\x\', SW_SHOWNORMAL);
//   p:=60000; //nur noch 1x/min testen, ob das Tool läuft
  end;
 end;
end.					

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:
27:
28:

const pt_dir='c:\programme\x\';
 ...
 regist:=TRegistry.Create;
 if CheckBox8.Checked then try
  regist.RootKey:=HKEY_LOCAL_MACHINE;
  if not regist.KeyExists('\System\CurrentControlSet\Services\x1')then begin
   ShellExecute(handle,'','instsrv','x1 '+pt_dir+'srvany.exe',pt_dir,SW_HIDE);
   regist.OpenKey('\System\CurrentControlSet\Services\x1',true);
   regist.WriteString('Description','...');
   regist.OpenKey('\System\CurrentControlSet\Services\x1\Parameters',true);
   regist.WriteString('AppDirectory',pt_dir);
   regist.WriteString('Application','x1.exe');
  end;
 finally
  regist.CloseKey;
  regist.Free;
  inherited;
 end else try
  regist.RootKey:=HKEY_LOCAL_MACHINE;
  if regist.KeyExists('\System\CurrentControlSet\Services\x1')then begin
   regist.DeleteKey('\System\CurrentControlSet\Services\x1');
   ShellExecute(handle,'','instsrv','x1 remove',pt_dir,SW_HIDE);
  end;
 finally
  regist.CloseKey;
  regist.Free;
  inherited;
 end					

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:
27:
28:
29:
30:
31:
32:
33:

program hilfstool;
uses JwaWinBase,JwaWinUser;//,dialogs,sysutils - nötig für die Fehlerausgabe
var h:integer; //handle bzw. hwnd
    p:integer;
    si:_STARTUPINFOW;
    pif:PROCESS_INFORMATION;
    res:LongBool;
//    s:string; //für Fehlerausgabe
begin
 p:=5000;
 while true do begin
  sleep(p);
  h:=FindWindow('tollestool',nil);
  if not(isWindow(h))then begin
  si.cb:=SizeOf(startupinfow);
  si.dwFlags:=STARTF_USESHOWWINDOW;
  si.wShowWindow:=SW_SHOWDEFAULT;
  si.lpReserved:=nil;
  si.lpDesktop:=nil;
  si.lpTitle:='Konsole';
  res:=CreateProcessWithLogonW('admin','','wertfred',LOGON_WITH_PROFILE,
   'c:\programme\tollestool\tollestool.exe','c:\programme\tollestool\',
   CREATE_DEFAULT_ERROR_MODE,nil,nil,si,pif);
  if not(res)then begin
//Fehlercode könnte so ausgegeben werden:
{   str(GetLastError,s);
   ShowMessage('CreateProcessWithLogonResult: '+inttostr(ord(res))+#10+
    'GetLastError: '+s+#10+SysErrorMessage(GetLastError));
}  end;
   p:=60000; //nur noch 1x/min testen, ob das Tool läuft
  end;
 end;
end.					

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

01470 typedef struct _STARTUPINFOW {
01471     DWORD cb;
01472     LPWSTR lpReserved_PAL_Undefined;
01473     LPWSTR lpDesktop_PAL_Undefined;
01474     LPWSTR lpTitle_PAL_Undefined;
01475     DWORD dwX_PAL_Undefined;
01476     DWORD dwY_PAL_Undefined;
01477     DWORD dwXSize_PAL_Undefined;
01478     DWORD dwYSize_PAL_Undefined;
01479     DWORD dwXCountChars_PAL_Undefined;
01480     DWORD dwYCountChars_PAL_Undefined;
01481     DWORD dwFillAttribute_PAL_Undefined;
01482     DWORD dwFlags;
01483     WORD wShowWindow_PAL_Undefined;
01484     WORD cbReserved2_PAL_Undefined;
01485     LPBYTE lpReserved2_PAL_Undefined;
01486     HANDLE hStdInput;
01487     HANDLE hStdOutput;
01488     HANDLE hStdError;
01489 } STARTUPINFOW, *LPSTARTUPINFOW;					

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:
27:

LPSTARTUPINFOW = ^STARTUPINFOW;
  {$EXTERNALSYM LPSTARTUPINFOW}
  _STARTUPINFOW = record
    cb: DWORD;
    lpReserved: LPWSTR;
    lpDesktop: LPWSTR;
    lpTitle: LPWSTR;
    dwX: DWORD;
    dwY: DWORD;
    dwXSize: DWORD;
    dwYSize: DWORD;
    dwXCountChars: DWORD;
    dwYCountChars: DWORD;
    dwFillAttribute: DWORD;
    dwFlags: DWORD;
    wShowWindow: WORD;
    cbReserved2: WORD;
    lpReserved2: LPBYTE;
    hStdInput: HANDLE;
    hStdOutput: HANDLE;
    hStdError: HANDLE;
  end;
  {$EXTERNALSYM _STARTUPINFOW}
  STARTUPINFOW = _STARTUPINFOW;
  {$EXTERNALSYM STARTUPINFOW}
  TStartupInfoW = STARTUPINFOW;
  PStartupInfoW = LPSTARTUPINFOW;