function _RunAsSystem_1(ApplicationName: string; CommandLine: string): Boolean;
var
 SI: STARTUPINFO;
 PI: PROCESS_INFORMATION;
 PSD: PPSecurity_Descriptor;
 ppDacl: PACL;
 hProcess, hToken: Cardinal;
begin
 Result:= False;
 hProcess:= OpenProcess(PROCESS_QUERY_INFORMATION, False, GetWinlogonPID);
 if hProcess <> 0 then
 begin
   try
     OpenProcessToken(hProcess, MAXIMUM_ALLOWED, hToken);
     if hToken <> 0 then
     begin
       if GetSecurityInfo(hToken, SE_KERNEL_OBJECT, DACL_SECURITY_INFORMATION, nil, nil, @ppDacl, nil, PSD) = ERROR_SUCCESS then
       begin
         if SetSecurityInfo(hToken, SE_KERNEL_OBJECT, DACL_SECURITY_INFORMATION, nil, nil, nil, nil) = ERROR_SUCCESS then
         begin
           CloseHandle(hToken);
           hToken:= 0;
           OpenProcessToken(hProcess, MAXIMUM_ALLOWED, hToken);
           if hToken <> 0 then
           begin
             try
               if ImpersonateLoggedOnUser(hToken) then
               begin
                 ZeroMemory(@SI, SizeOf(SI));
                 SI.cb:= SizeOf(SI);
                 if CreateProcessAsUser(hToken, PChar(ApplicationName), PChar(CommandLine), nil, nil, False, CREATE_DEFAULT_ERROR_MODE, nil, nil, SI, PI) then
                   Result:= True;
                 RevertToSelf;
               end;
               SetSecurityInfo(hToken, SE_KERNEL_OBJECT, DACL_SECURITY_INFORMATION, nil, nil, ppDacl, nil);
             finally
               CloseHandle(hToken);
             end;
           end;
         end;
         LocalFree(DWORD(ppDacl));
         LocalFree(DWORD(PSD));
       end;
     end;
   finally
     CloseHandle(hProcess);
   end;
 end;
end;