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