Programm von Dienst starten lassen (Jetzt aber wirklich mal)

[Dezipaitor]

• Du hast 3 Tokeninstanzen, die du nicht wieder löscht.
• Wenn irgendwas nach ServiceToken := ... fehlschlägt, dann werden diese Instanzen nicht gelöscht. Also einzeln mit try/finally für nach jedem Create eins erstellen.
  
  Delphi-Quellcode:

  Create1
  try
    create2
    try
    finally
      Free2
    end;
  finally
    Free1;
  end;

  Übrigens:
  JwsclComUtils implementiert AutoDestructZeiger.
  
  
  Delphi-Quellcode:

  Token2 := TJwSecurityToken....
  TJwAutoPointer.Wrap(Token2);

  In diesem Fall wird das Objekt Token2 gelöscht, wenn man beim "End;" ankommt.
  
  Es geht auch mehrmals. Alle mit Wrap umschlossenen Objekte werden zerstört. Egal welcher Variablenname.
  
  Delphi-Quellcode:

  Token2 := TJwSecurityToken....
  TJwAutoPointer.Wrap(Token2);
  Token2 := TJwSecurityToken....
  TJwAutoPointer.Wrap(Token2);

  
  Man kann soetwas auch für eine Instanzvariable machen, wenn man das COM Objekt speichert.
  
  Delphi-Quellcode:

   TXY = class
     myWrappedToken : IJwAutoPointer;
     Token2 := TJwSecurityToken;
  
     procedure Do;
   end;
  
  procedure TXY.Do;
  begin
    Token2 := TJwSecurityToken....
    myWrappedToken := TJwAutoPointer.Wrap(Token2);
  end;

  Sobald die Klasseninstanz zerstört wird, wird das Token gelöscht.
  
  
  
  
• Jedes Create aus der JWSCL kann eine Exception liefern. Man sollte sie nicht ignorieren. Es ist zum eigenen Schutz, da die JWSCL alle Fehlercodes der SecurityAPI in Exceptions umwandelt, wird verhindert, dass Code danach ausgeführt wird, der so garnicht zum Laufen kommen sollte.
• WtsGetActiveConsoleSessionID liefert dasselbe wie UserToken.TokenSessionId. Du brauchst also garkein UserToken erstellen. Für Win2000 kannst du auch einfach 0 verwenden.
• Diese Zeile
  true, //__in BOOL bInheritHandles, funktioniert nicht unbedingt unter XP. Unter Vista jedoch schon. Sie funkz dann nicht, wenn die Session eine andere ist, als die des Prozesses in dem CreateProcess... aufgerufen wird. Handles können nicht über Sessiongrenzen hinweg vererbt werden. Also false setzen.
• UNICODE <-> ANSICODE
  
  Delphi-Quellcode:

  CreateProcessAsUser(  { TODO : UNICODE VERSION? }
        CopiedToken.TokenHandle,
        TJwPChar(App),

  Wenn du das mit UNICODE kompilierst, dann funkz es nicht, weil TJwPChar dann ein PWideChar sein wird. Dasselbe mit CreateProcessAsUserW (wenn du es änderst). Also entweder machst du ein IFDEF UNICODE um CreateProcessAsUserA/W oder du verwendest nicht TJwPchar sonder PAnsiChar.
•     JwaWindows.CreateEnvironmentBlock(@pEnv, UserToken.TokenHandle, true); Warum true hier? Willst du Env-Strings von SYSTEM mit drin haben?