Thema: Delphi ShellExecute mit RunAs

Einzelnen Beitrag anzeigen

lukdelphias

Registriert seit: 23. Jun 2020
50 Beiträge
 
Delphi 10.3 Rio
 
#1

ShellExecute mit RunAs

  Alt 16. Jul 2020, 14:59
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
  Mit Zitat antworten Zitat