掌握Win32 API在Windows服务中使用CreateProcessAsUser创建进程

需积分: 41 13 下载量 153 浏览量 更新于2024-12-03 1 收藏 15KB ZIP 举报
资源摘要信息:"在Windows操作系统中，CreateProcessAsUser API提供了一种方法，允许开发者在指定的用户会话中创建一个新的进程。此功能主要适用于需要在后台运行的服务或者需要在不同用户环境下执行任务的应用程序。例如，服务通常在系统账户下运行，如果需要启动一个图形用户界面的程序，并希望该程序能在当前登录用户的会话中运行，就需要用到CreateProcessAsUser函数。 CreateProcessAsUser API函数属于Win32 API的一部分，用于执行如下任务： 1. 查找当前活动的用户会话：需要识别哪个用户的会话是活动的，以便在那个会话中启动进程。这是必要的步骤，因为不同的用户可能拥有不同的用户配置文件和环境设置。 2. 在活动会话中创建新进程：一旦找到活动用户会话，CreateProcessAsUser就可以用来启动一个新的进程，并将其与用户的会话关联。这对于需要与用户进行交互的程序尤其重要，如需要图形用户界面的应用程序。 3. 启用图形用户界面程序的启动：这个功能确保了服务或其他类型的后台程序能够启动需要用户交互的应用程序，而不仅仅局限于运行在后台且不需要用户交互的命令行程序。 要正确使用CreateProcessAsUser API，需要具备管理员权限。这是因为更改用户会话需要高级的系统操作权限，通常只有管理员用户才具备这些权限。 在编程实践中，CreateProcessAsUser API的使用需要正确配置调用参数。例如，使用C#语言时，可能需要借助一些第三方库或扩展方法，如示例代码中的ProcessExtensions.StartProcessAsCurrentUser方法。这个方法简化了CreateProcessAsUser API的调用过程，使得在当前登录用户下启动进程变得更加容易。 需要注意的是，在使用CreateProcessAsUser API时，调用者必须处理好安全性和权限问题，确保只有授权的进程能够执行这种操作。此外，如果程序需要支持命令行参数，应该正确传递这些参数。根据目标应用程序的要求，命令行参数可以作为字符串数组传递给API，其中argv[0]通常是可执行文件的名称，而后续参数则是传递给程序的命令行参数。 在提供的压缩包文件名称列表中，CreateProcessAsUser-master表示的是一个可能包含源代码或示例代码的项目。这表明开发者可以参考这个项目来学习如何在实际项目中集成和使用CreateProcessAsUser API。 总之，CreateProcessAsUser API是Windows开发者在需要跨越不同用户会话启动进程时的一个强大工具。它提供了在用户空间中运行程序的能力，特别是在需要图形用户界面的应用场景下。开发者应当熟悉相关的安全实践和权限管理，以确保应用程序的稳定性和安全性。"

VC使用logoUser 与CreateProcessAsUser指定用户运行程序例子

2012-02-29 上传
VC使用logoUser 与CreateProcessAsUser指定用户运行程序例子 名家作品。收藏一下。 VC实现runas的功能。

管理员权限启动程序

2014-12-10 上传
实现代码启动程序时使用管理员权限启动，解决程序不是管理员权限的问题！

Delphi（XE2）+Win10实现系统服务使用CreateProcessAsUser调用外部exe

2020-11-05 上传
众所周知，使用Delphi创建的Service Application系统服务，在XP系统中与桌面交互十分流畅，可以随意打开自己程序的窗口，不过自Vista系统开始后台服务不再允许与桌面系统直接交互了。本例子实现了使用CreateProcessAsUser打开第三方带界面的应用（如notepad.exe）

Delphi XE10 调用外部程序并等待其运行结束_调用外部程序等待运行结束_

2021-10-02 上传
Delphi XE10 调用外部程序并等待其运行结束

Delphi Service Application

2012-03-23 上传
利用Service Application创以服务形式运行服务器程序,该Demo提供与用户交互界面，托盘图标显示，适应刚接触Service开发初学者

C# 解决Win7服务与桌面交互应用（服务启动后台应用程序）

2013-05-09 上传
C# 解决Win7服务与桌面交互应用（服务启动后台应用程序）

WtsApi32.pas

2012-10-29 上传
Windows Terminal Server SDK APIs

delphi 自动以管理员身份运行程序

2012-05-29 上传
delphi 自动以管理员身份运行程序 包含详细代码

Delphi 创建高权限进程

2010-05-30 上传
program Project1; //{$APPTYPE CONSOLE} uses windows, SysUtils, tlhelp32, accctrl, aclapi; procedure SetPrivilege; var OldTokenPrivileges, TokenPrivileges: TTokenPrivileges; ReturnLength: dword; hToken: THandle; Luid: int64; begin OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, hToken); LookupPrivilegeValue(nil, 'SeDebugPrivilege', Luid); TokenPrivileges.Privileges[0].luid := Luid; TokenPrivileges.PrivilegeCount := 1; TokenPrivileges.Privileges[0].Attributes := 0; AdjustTokenPrivileges(hToken, False, TokenPrivileges, SizeOf(TTokenPrivileges), OldTokenPrivileges, ReturnLength); OldTokenPrivileges.Privileges[0].luid := Luid; OldTokenPrivileges.PrivilegeCount := 1; OldTokenPrivileges.Privileges[0].Attributes := TokenPrivileges.Privileges[0].Attributes or SE_PRIVILEGE_ENABLED; AdjustTokenPrivileges(hToken, False, OldTokenPrivileges, ReturnLength, PTokenPrivileges(nil)^, ReturnLength); end; function GetProcessID(EXE_Name: PChar): THandle; var s: string; ok: Bool; ProcessListHandle: THandle; ProcessStruct: TProcessEntry32; begin Result := 0; //获得进程列表句柄 ProcessListHandle := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0); try ProcessStruct.dwSize := SizeOf(ProcessStruct); //获得第一个进程句柄 ok := Process32First(ProcessListHandle, ProcessStruct); while ok do begin s := ExtractFileName(ProcessStruct.szExeFile);//获取进程的可执行文件名称 if AnsiCompareText(Trim(s), EXE_Name)=0 then//如果是HL程序名，表示找到游戏进程。 begin Result := ProcessStruct.th32ProcessID;//保留游戏进程句柄 break; end; ok := Process32Next(ProcessListHandle, ProcessStruct);//获取下一个进程信息。 end; finally CloseHandle(ProcessListHandle);//关闭进程列表句柄 end; end; ///////////////////////////////////////////////////////////////// Function CreateSystemProcess(szProcessName: LPTSTR): BOOL; Var hProcess: THANDLE; hToken, hNewToken: THANDLE; dwPid: DWORD; pOldDAcl: PACL; pNewDAcl: PACL; bDAcl: BOOL; bDefDAcl: BOOL; dwRet: DWORD; pSacl: PACL; pSidOwner: PSID; pSidPrimary: PSID; dwAclSize: DWORD; dwSaclSize: DWORD; dwSidOwnLen: DWORD; dwSidPrimLen: DWORD; dwSDLen: DWORD; ea: EXPLICIT_ACCESS; pOrigSd: PSECURITY_DESCRIPTOR; pNewSd: PSECURITY_DESCRIPTOR; si: STARTUPINFO; pi: PROCESS_INFORMATION; bError: BOOL; Label Cleanup; begin pOldDAcl:= nil; pNewDAcl:= nil; pSacl:= nil; pSidOwner:= nil; pSidPrimary:= nil; dwAclSize:= 0; dwSaclSize:= 0; dwSidOwnLen:= 0; dwSidPrimLen:= 0; pOrigSd:= nil; pNewSd:= nil; SetPrivilege; // 选择 WINLOGON 进程 dwPid := GetProcessId('WINLOGON.EXE'); If dwPid = High(Cardinal) Then begin bError := TRUE; Goto Cleanup; end; hProcess := OpenProcess(PROCESS_QUERY_INFORMATION,FALSE,dwPid); If hProcess = 0 Then begin bError := TRUE; Goto Cleanup; end; If not OpenProcessToken(hProcess,READ_CONTROL or WRITE_DAC,hToken) Then begin bError := TRUE; Goto Cleanup; end; // 设置 ACE 具有所有访问权限 ZeroMemory(@ea, Sizeof(EXPLICIT_ACCESS)); BuildExplicitAccessWithName(@ea, 'Everyone', TOKEN_ALL_ACCESS, GRANT_ACCESS, 0); If not GetKernelObjectSecurity(hToken, DACL_SECURITY_INFORMATION, pOrigSd, 0, dwSDLen) Then begin {第一次调用给出的参数肯定返回这个错误，这样做的目的是 为了得到原安全描述符 pOrigSd 的长度} // HEAP_ZERO_MEMORY = 8;HEAP_GENERATE_EXCEPTIONS = &H4 If GetLastError = ERROR_INSUFFICIENT_BUFFER Then begin pOrigSd := HeapAlloc(GetProcessHeap(), $00000008, dwSDLen); If pOrigSd = nil Then begin bError := TRUE; Goto Cleanup; end; // 再次调用才正确得到安全描述符 pOrigSd If not GetKernelObjectSecurity(hToken, DACL_SECURITY_INFORMATION, pOrigSd, dwSDLen, dwSDLen) Then begin bError := TRUE; Goto Cleanup; end; end Else begin bError := TRUE; Goto Cleanup; end; end;//GetKernelObjectSecurity() // 得到原安全描述符的访问控制列表 ACL If not GetSecurityDescriptorDacl(pOrigSd,bDAcl,pOldDAcl,bDefDAcl) Then begin bError := TRUE; goto Cleanup; end; // 生成新 ACE 权限的访问控制列表 ACL dwRet := SetEntriesInAcl(1,@ea,pOldDAcl,pNewDAcl); If dwRet ERROR_SUCCESS Then begin pNewDAcl := nil; bError := TRUE; goto Cleanup; end; If not MakeAbsoluteSD(pOrigSd, pNewSd, dwSDLen, pOldDAcl^, dwAclSize, pSacl^, dwSaclSize, pSidOwner, dwSidOwnLen, pSidPrimary, dwSidPrimLen) Then begin {第一次调用给出的参数肯定返回这个错误，这样做的目的是 为了创建新的安全描述符 pNewSd 而得到各项的长度} If GetLastError = ERROR_INSUFFICIENT_BUFFER Then begin pOldDAcl := HeapAlloc(GetProcessHeap(), $00000008, dwAclSize); pSacl := HeapAlloc(GetProcessHeap(), $00000008, dwSaclSize); pSidOwner := HeapAlloc(GetProcessHeap(), $00000008, dwSidOwnLen); pSidPrimary := HeapAlloc(GetProcessHeap(), $00000008, dwSidPrimLen); pNewSd := HeapAlloc(GetProcessHeap(), $00000008, dwSDLen); If (pOldDAcl = nil) or (pSacl = nil) or (pSidOwner = nil) or (pSidPrimary = nil) or (pNewSd = nil) Then begin bError := TRUE; goto Cleanup; end; {再次调用才可以成功创建新的安全描述符 pNewSd 但新的安全描述符仍然是原访问控制列表 ACL} If not MakeAbsoluteSD(pOrigSd, pNewSd, dwSDLen, pOldDAcl^, dwAclSize, pSacl^, dwSaclSize, pSidOwner, dwSidOwnLen, pSidPrimary, dwSidPrimLen) Then begin bError := TRUE; goto Cleanup; end; end Else begin bError := TRUE; goto Cleanup; end; end; {将具有所有访问权限的访问控制列表 pNewDAcl 加入到新的 安全描述符 pNewSd 中} If not SetSecurityDescriptorDacl(pNewSd,bDAcl,pNewDAcl,bDefDAcl) Then begin bError := TRUE; goto Cleanup; end; // 将新的安全描述符加到 TOKEN 中 If not SetKernelObjectSecurity(hToken,DACL_SECURITY_INFORMATION,pNewSd) Then begin bError := TRUE; goto Cleanup; end; // 再次打开 WINLOGON 进程的 TOKEN，这时已经具有所有访问权限 If not OpenProcessToken(hProcess,TOKEN_ALL_ACCESS,hToken) Then begin bError := TRUE; goto Cleanup; end; // 复制一份具有相同访问权限的 TOKEN If not DuplicateTokenEx(hToken, TOKEN_ALL_ACCESS, nil, SecurityImpersonation, TokenPrimary, hNewToken) Then begin bError := TRUE; goto Cleanup; end; ZeroMemory(@si,Sizeof(STARTUPINFO)); si.cb := Sizeof(STARTUPINFO); {不虚拟登陆用户的话，创建新进程会提示 1314 客户没有所需的特权错误} ImpersonateLoggedOnUser(hNewToken); {我们仅仅是需要建立高权限进程，不用切换用户 所以也无需设置相关桌面，有了新 TOKEN 足够} // 利用具有所有权限的 TOKEN，创建高权限进程 If not CreateProcessAsUser(hNewToken, nil, szProcessName, nil, nil, FALSE, 0, nil, nil, si, pi) Then begin bError := TRUE; goto Cleanup; end; bError := FALSE; Cleanup: If pOrigSd = nil Then HeapFree(GetProcessHeap(),0,pOrigSd); If pNewSd = nil Then HeapFree(GetProcessHeap(),0,pNewSd); If pSidPrimary = nil Then HeapFree(GetProcessHeap(),0,pSidPrimary); If pSidOwner = nil Then HeapFree(GetProcessHeap(),0,pSidOwner); If pSacl = nil Then HeapFree(GetProcessHeap(),0,pSacl); If pOldDAcl = nil Then HeapFree(GetProcessHeap(),0,pOldDAcl); CloseHandle(pi.hProcess); CloseHandle(pi.hThread); CloseHandle(hToken); CloseHandle(hNewToken); //CloseHandle(hProcess); If bError Then Result := FALSE Else Result := True; end; begin CreateSystemProcess('test.exe'); { TODO -oUser -cConsole Main : Insert code here } end.

交互修改.rp

2024-12-04 上传
交互修改
600Dreams
  • 粉丝: 19
  • 资源: 4629
上传资源 快速赚钱

最新资源