program AdminLancher;
uses
 Windows, SysUtils, Registry, Users, Scrb, MsgLog;
Type
 PUser = ^TUser;
 TUser = Record
   UserName   : String[20];
   Domain     : String[MAX_COMPUTERNAME_LENGTH];
   UserPass   : String[14];
   UserStatus : String[255];
 end;

Var
 Reg         : TRegistry;
 Buff        : String;
 BuffSize    : Integer;
 User        : PUser;
 StartupInfo : TStartupInfo;
 ProcessInfo : TProcessInformation;
 AppName     : String;
Const
 ConfigPath = '\Software\elsetrue\AdminLancher';
 Profile    = 'Profile';
begin

 if ParamCount = 0 then begin
   SendDebugMsg('Exit: ParamCount = '+IntToStr(ParamCount));
   exit;
 end;

 for BuffSize:=1 to ParamCount do
   AppName:=AppName+ParamStr(BuffSize)+' ';

 SendDebugMsg('ParamCount = '+IntToStr(ParamCount));
 AppName := Trim(AppName);
 SendDebugMsg('AppName = '+AppName);

 try
   Reg:=TRegistry.Create;
   Reg.RootKey:=HKEY_CURRENT_USER;

   if Not Reg.OpenKeyReadOnly(ConfigPath) Then begin
     SendDebugMsg('error: no open key = '+ConfigPath);
     Exit;
   end;

   if Not REg.ValueExists(Profile) Then begin
     SendDebugMsg('error: no value exists = '+Profile);
     Exit;
   end;

   BuffSize:=Reg.GetDataSize(Profile);

   if BuffSize = 0 then begin
     SendDebugMsg('error: GetDataSize = 0');
     Exit;
   end;

   SetLength(Buff,BuffSize);
   FillChar(Buff[1], BuffSize, #0);

   if Reg.ReadBinaryData(Profile,Buff[1],BuffSize) = 0 then begin
     SendDebugMsg('Exet. error: ReadBinaryData readSize = 0');
     Exit;
   end;

 finally
   Reg.Free;
 end;

   //Декодированние прочитанного буффера
   Buff:=DeCode(Buff);

   try
     try
       New(User);
       BuffSize := Sizeof(TUser);
       FillChar(User^, BuffSize, #0);
       Move(Buff[1], User^, BuffSize);

       SendDebugMsg('User Name = '     + User.UserName);
       SendDebugMsg('User Domain = '   + User.Domain);
       SetLength(Buff,Length(User.UserPass));
       FillChar(buff[1],Length(User.UserPass), Ord('*'));
       SendDebugMsg('User Password = ' + Buff);
       SendDebugMsg('User Status = '   + User.UserStatus);

       if Not CreateProcessWithLogonW(
                     PWideChar(StringToWideString(User^.UserName,CP_ACP)),
                     PWideChar(StringToWideString(User^.Domain,CP_ACP)),
                     PWideChar(StringToWideString(User^.UserPass,CP_ACP)), 0, Nil,
                     PWideChar(StringToWideString(AppName,CP_ACP)), 0, Nil, Nil,
                     StartupInfo,
                     ProcessInfo) then
       begin
         SendDebugMsg('CreateProcessWithLogonW = false, GetLastError: '+IntToStr(GetLastError));
         Exit;
       end;

     finally
       Dispose(User);
     end;
   Except
     SendDebugMsg('Critical error: bed copy buffer');
   end;
end.

runas ...... /savecred