Api CreateProcessAsUser

[aeff]

hola colegas del club, ante todo mis especiales saludos y un tremendo FELICIDADES por este nuevo año, y para iniciar con mis preguntaderas quisera saber si alguien me puede decir como trabajar con la API CreateProcessAsUser, si pueden y no es mucha molestia, me pueden mostrar algun ejemplito???

gracias antemano

salu2!!!

[delphi.com.ar]

Espero que te sea de utilidad:

Código Delphi [-]
procedure RunAs(ACommandLine, AUserName, ADomain, APassword: PAnsiChar);
var
  hToken: Cardinal;
  ProcessInfo: TProcessInformation;
  StartupInfo: TStartupInfo;

  function SetUserObjectFullAccess(hUserObject: THandle): Boolean;
  var
    Sd: PSecurity_Descriptor;
    Si: Security_Information;
  begin
    Sd := Ptr(LocalAlloc(LPTR, SECURITY_DESCRIPTOR_MIN_LENGTH));
    InitializeSecurityDescriptor(Sd, SECURITY_DESCRIPTOR_REVISION);
    SetSecurityDescriptorDacl(Sd, True, nil, False);

    Si := DACL_SECURITY_INFORMATION;
    Result := SetUserObjectSecurity(hUserObject, Si, Sd);

    LocalFree(HLOCAL(Sd));
  end;
begin
  Win32Check(LogonUser(AUserName, ADomain, APassword, LOGON32_LOGON_INTERACTIVE, LOGON32_PROVIDER_DEFAULT, hToken));
  try
    ImpersonateLoggedOnUser(hToken);
    try
      SetUserObjectFullAccess(GetThreadDesktop(GetCurrentThreadId));
      SetUserObjectFullAccess(GetProcessWindowStation);

      ZeroMemory(@StartupInfo, SizeOf(TStartupInfo));
      StartupInfo.cb := SizeOf(TStartupInfo);
      StartupInfo.wShowWindow := SW_SHOW;


      if not CreateProcessAsUser(hToken, nil, ACommandLine, nil, nil,
                         False, CREATE_NEW_CONSOLE or CREATE_NEW_PROCESS_GROUP,
                         nil, nil, StartupInfo, ProcessInfo) then
        RaiseLastOsError;
    finally
      RevertToSelf;
    end;
  finally
    CloseHandle(hToken);
  end;
end;

Saludos!

[aeff]

no se si es problema de no entender los parámetros pero no me funciona,
mira el ejemplo dellamada que tomé:

RunAs('C:\WINDOWS\regedit.exe','Alberto',nil, 'nra885');

que crees???

gracias de antemano

[delphi.com.ar]

¿Te produce algún error?.. ¿No hace nada?... ¿Que windows utilizas?...
Ese código yo lo utilizo en una aplicación mía, pero esta plagado de compilación condicional, así que lo limpié un poco.

[fdelamo]

Yo eso lo usé hace algún tiempo (no tengo el código aquí), pero recuerdo que además el usuario debía tener dos permisos especiales (uno era asignar memoria para otro usuario y el otro no recuerdo), no se si irán por ahí los tiros

A ver si tengo un poco de tiempo y busco el código

Un saludo

[delphi.com.ar]

Bueno si.. es importante que el usuario tenga los permisos suficientes inlcusive los del file system. Por el ejemplo que da aeff no creo que venga por ahí el problema, pero no esta de mas aclararlo.

Saludos!