CreateProcessAsUser

[toyoman]

Ich habs nun endlich, nach ein paar Tagen Testen Testen und nochmals testen.
Wir können jetzt den SAP Mobile client damit installieren, DOS Befehle absetzen, VBS Skripte ausführen, EXE und MSI's.
Der springende Punkt war die richtige Übergabe de lpApplicationname und lpCommandline.
Wird die Commandline mit Parametern in einer Zeile übergeben muss der lpApplicationName blank sein ('').

Delphi-Quellcode:

var
   kommando:string;
   cCmd: array [0..1023] of char;
   serviceok:integer;
   s:textfile;
   ersteszeichen:string;
   ergebnis2:dword;
   si: STARTUPINFOW;
   pif: PROCESS_INFORMATION;
   res: Bool;
   ss: string;



procedure....
      //erstmal die StartUpInfoW setzen
      //set StartUpInfoW first
      si.cb := SizeOf(startupinfow);
      si.dwFlags  := STARTF_USESHOWWINDOW;
      si.wShowWindow := SW_SHOWDEFAULT;
      si.lpReserved := nil;
      si.lpDesktop := nil;
      si.lpTitle := 'HILTI Installer - RUNAS';
      // dann CreateProcessWithLogonW ausführen...
      // run CreateProcessWithLogonW...
      logfileschreiben('Converting to absolute paths: '+command.text);
      command.text:=replaceStr(command.text,'.\',getpath);
      res := CreateProcessWithLogonW(StringToOleStr(adminuser), StringToOleStr(admindomain), StringToOleStr(passwort), LOGON_WITH_PROFILE,
      StringToOLEstr(''), StringToOLEstr(command.text)
      , CREATE_DEFAULT_ERROR_MODE, nil, nil, si, pif);
      logfileschreiben('Created: '+StringToOLEstr(command.text));
      logfileschreiben('Waiting for process and checking for errors...');
          repeat
              sleep(500);
              application.ProcessMessages;
              GetExitCodeProcess(pif.hProcess,ergebnis2);
          until ergebnis2<>STILL_ACTIVE;
      if booltostr(res) = '0' then
      begin
          //wenn ein Fehler auftritt, soll der Fehlercode ausgegeben werden
          //über 'net helpmsg ' in der Kommandoeingabeaufforderung
          //kann dieser entziffert werden

          //if an error occures, show the error-code
         //this code can be 'translated' with 'net helpmsg ' on command-prompt
        str(GetLastError, ss);
        logfileschreiben('ERROR: CreateProcessWithLogonResult: ' + booltostr(res) +
          ' --> GetLastError: ' + ss);
      end;
      //closehandle(pif.hProcess);
end;