runasEx2('Admin','123','cmd');

net stop myservice

RunAdm.exe net stop dnscache

RunAdm.exe net start dnscache

RunAdm.exe cmd /c start compmgmt.msc

BOOL SetUserObjectFullAccess(HANDLE UserObject)
{
PSECURITY_DESCRIPTOR Sd;
SECURITY_INFORMATION Si;
Sd = LocalAlloc(LPTR, SECURITY_DESCRIPTOR_MIN_LENGTH);
InitializeSecurityDescriptor(Sd, SECURITY_DESCRIPTOR_REVISION);
SetSecurityDescriptorDacl(Sd, TRUE, NULL, FALSE);
Si = DACL_SECURITY_INFORMATION;
BOOL Result = SetUserObjectSecurity(UserObject, &Si, Sd);
LocalFree((HLOCAL)Sd);
return Result;
}

DWORD StartProcess(CStr &FileName, CStr &UserName, CStr &UserPass, CStr &OpenFile)
{
CStr Domain;
Split(UserName, Domain, L"\\");

CStr Path;
ExePath(Path);
FileName.Insert(0, Path);

Quoted(OpenFile);

HANDLE Token;
PROCESS_INFORMATION ProcessInfo;
STARTUPINFO StartupInfo;

if ( ! LogonUser(UserName, Domain, UserPass,
 LOGON32_LOGON_INTERACTIVE, LOGON32_PROVIDER_DEFAULT, &Token) )
 return GetLastError();
ImpersonateLoggedOnUser(Token);
SetUserObjectFullAccess(GetThreadDesktop(GetCurrentThreadId()));
SetUserObjectFullAccess(GetProcessWindowStation());
memset(&StartupInfo, 0, sizeof(StartupInfo));
StartupInfo.cb = sizeof(StartupInfo);
StartupInfo.wShowWindow = SW_SHOW;
DWORD Code = 0;
CStr CmdLine = L" ";
CmdLine += OpenFile;
CmdLine += L" ";
Quoted(UserName);
Quoted(Domain);
Quoted(UserPass);
CmdLine += UserName;
CmdLine += L" ";
CmdLine += Domain;
CmdLine += L" ";
CmdLine += UserPass;
Quoted(FileName);
CmdLine.Insert(0, FileName);
if (! CreateProcessAsUser(Token, NULL, CmdLine, NULL, NULL,
 FALSE, CREATE_NEW_CONSOLE | CREATE_NEW_PROCESS_GROUP, NULL, Path, &StartupInfo, &ProcessInfo) )
 Code = GetLastError();
RevertToSelf();
CloseHandle(Token);
return Code;
}

net stop spooler

net start spooler

program RunAdm;
{$APPTYPE CONSOLE}    // ***

uses
 Windows;

type
TPChars = array [0..(MaxInt div SizeOf(PChar))-1] of PChar;
PPChars =^ TPChars;

function CommandLineToArgvW(pCmdLine:PChar; var NumArgs:Integer):PPChars; stdcall; external 'shell32.dll' name 'CommandLineToArgvW';
function CreateProcessWithLogonW( lpUsername         :PCHAR;
                                 lpDomain           :PCHAR;
                                 lpPassword         :PCHAR;
                                 dwLogonFlags       :DWORD;
                                 lpApplicationName  :PCHAR;
                                 lpCommandLine      :PCHAR;
                                 dwCreationFlags    :DWORD;
                                 lpEnvironment      :Pointer;
                                 lpCurrentDirectory :PCHAR;
                                 lpStartupInfo      :PSTARTUPINFOW;
                                 var lpProcessInfo  :TPROCESSINFORMATION
                               ):LongBool; stdcall; external 'advapi32.dll' name 'CreateProcessWithLogonW';
procedure RunAs();
const
tCmd    = 'cmd.exe';
tUser   = 'MyAdminLogin';                // ***
tPass   = 'MyAdminPassword';          // ***
tDomain = '.';
var
pi    :TPROCESSINFORMATION;
si    :TSTARTUPINFOW;
i,n   :Integer;
pArgs :PPChars;
sCmd  :String;
sDir  :String;
begin
ZeroMemory(@pi, sizeof(pi));
ZeroMemory(@si, sizeof(si));
si.cb := sizeof(si);
pArgs := CommandLineToArgvW(GetCommandLine(), n);
if n>1 then begin
 writeln ('Run1'); // ***
 for i := 1 to n-1 do sCmd := sCmd + pArgs[i] + ' ';
 SetLength(sCmd, Length(sCmd)-1);
 sCmd := 'cmd /K ' + sCmd; // *** Иначе ошибку не видно
 if not CreateProcessWithLogonW(tUser, tDomain, tPass, 1, nil, PChar(sCmd), 0, nil, nil, @si, pi) then
   writeln ('Run1 failed')   // ***
end else begin
 writeln ('Run2');  // ***
 SetLength(sDir, 1024);
 SetLength(sDir, GetSystemDirectory(PChar(sDir), Length(sDir)));
 sCmd := sDir + '\'+ tCmd;
 if not CreateProcessWithLogonW(tUser, tDomain, tPass, 1, PChar(sCmd), nil, 0, nil, PChar(sDir), @si, pi) then
  writeln ('Run2 failed');  // ***
end;
CloseHandle(Pi.hThread);
CloseHandle(Pi.hProcess);
LocalFree(NativeUInt(pArgs));
end;

begin
RunAs();
end.