ShellExecute mit RunAs

[lukdelphias]

Hallo liebes Forum,

ich habe ein kleines Problem. Ich rufe über ShellExecute ein selbst geschriebenes Programm auf.
Allerdings soll dieses Programm mit einem anderen Benutzer ausgeführt werden. Diese Zugangsdaten sollen hart im Code hinterlegt sein. Also keine Credentials o.ä.
Gibt es da eine Möglichkeit zum Beispiel die RunAs Methode in ShellExecute zu implementieren?
Vielleicht hat einer ne Idee. Vielen Dank schon mal.
Hier noch der Code der ShellExecute:

Delphi-Quellcode:

begin
  CompName := GetEnvironmentVariable('ComputerName');
    try
      ExecResult := ShellExecute(0, 'open',
      PChar('"C:\Beispielpfad"'),
      PChar('"--ID='+IntToStr(result)+'" "--user="C:\Users\user.'+CompName+'\Desktop'), nil, SW_SHOWNORMAL);
      if ExecResult <= 32  then
        ShowMessage('Fehlercode: ' + IntToStr(ExecResult));
    except
      ShowMessage('Fehler');
    end;
  end;

Grüße

[oakley]

Könntest Du das nicht über die Konsole machen?

ShellExecute(Handle, 'open', PChar('cmd.exe'), PChar('runAs \user xy "startdatei.exe"')), nil, SW_SHOWNORMAL);

LG

Mirko

[lukdelphias]

Keine schlechte Idee. Weißt du wie man das Passwort bei RunAs mit hinterlegt?

[himitsu]

Garnicht (vermutlich aus Sicherheitsgründen)
https://docs.microsoft.com/en-us/pre...771525(v=ws.11)

CreateProcessEx CreateProcessWithLogon

[lukdelphias]

Das ist schlecht das Passwort für den ausführenden Nutzer soll geheim bleiben da auch andere Personen das Tool benutzen... Fallen euch noch andere Möglichkeiten ein?

[himitsu]

Bei RunAs kann man es wohl nicht angeben, damit es geheim bleibt. (wäre ja blöde, wenn es dort im Klartext mit abgespeichert wäre)

Und wie schon gesagt, über diese APIs ginge es.