ShellExecute, Batch über runas starten

[waldforest]

Hallo,
ist es möglich shellexecute mit runas und den Profildaten eines Admins als Parameter zu übergeben.

Hintergrund: ich habe einen Rechner, der 2 Benutzerprofile besitzt, eines mit Administrationsrecht, das Andere als klassischer Nutzer.
Nun möchte ich vom Nutzer ohne Adminrechte aus meiner Anwendung, ohne jedes mal den Benutzer und das Passwort eingeben zu müssen, über Shellexecute eine Batch starten. Diese soll mit Adminrechte gestartet werden.

Geht dies überhaupt mit shellexecute oder wie kann ich so etwas realisieren ?

[himitsu]

Code:

[Win] CMD [Enter] runus [Enter]

[waldforest]

Hallo,
mir schwebt eher der eine Möglichkeit aus meiner Anwendung heraus vor.
Ich habe da Problem wie folgt gelöst.

Delphi-Quellcode:

function RunAsWithLogon(const User, PW, Application, CmdLine: WideString): DWORD;
var
  si                : TStartupInfoW;
  pif               : TProcessInformation;
  s                 : WideString;
begin
  ZeroMemory(@si, sizeof(si));
  si.cb := sizeof(si);
  si.dwFlags := STARTF_USESHOWWINDOW;
  si.wShowWindow := 1;

  if CmdLine = '' then
    s := Application
  else
    s := Application + ' ' + CmdLine;

  SetLastError(0);
  CreateProcessWithLogonW(PWideChar(User), nil, PWideChar(PW), 0, nil, PWideChar(s), CREATE_DEFAULT_ERROR_MODE, nil,
    nil, @si, @pif);
  Result := GetLastError;
end;