| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2018/9/24 16:04:45 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | getlasterror返回5 // OpenProcess() 打不开进程句柄.. pid仅仅是普通的服务进程exe呢.. 求大神支招.. ---------------------------------------------- delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行. |
|||||
| 作者： |
|
2018/9/24 17:00:24 | ||||
| 1楼： | 看似提供了几个信息，其实屁用没有。 ---------------------------------------------- (C)(P)Flying Wang |
|||||
| 作者： |
|
2018/9/24 18:42:13 | ||||
| 2楼： | 1、管理员运行程序？2、可能需要 SeDebugPrivilege 特权 ---------------------------------------------- - |
|||||
| 作者： |
|
2018/9/24 20:40:10 | ||||
| 3楼： | 确认是管理员运行, SeDebugPrivilege 也提了的... const SE_DEBUG_NAME = 'SeDebugPrivilege'; var hToken: THandle; lpLuid: TLargeInteger; tkp: TOKEN_PRIVILEGES; bRes: Boolean; retlen: DWORD; begin Result := False; //*以调整和查询的方式，打开本进程的令牌环*/ bRes := OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken); try if bRes then begin bRes := LookupPrivilegeValue(nil, SE_DEBUG_NAME, lpLuid); if bRes then begin tkp.PrivilegeCount := 1; tkp.Privileges[0].Luid := lpLuid; tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED; AdjustTokenPrivileges( hToken, false, tkp, sizeof(TOKEN_PRIVILEGES), nil, retlen); Result := (GetLastError = ERROR_SUCCESS); end; end; finally Config.IsDebugPriv := Result; CloseHandle(hToken); end; end; // GetLastError = 5 ---------------------------------------------- delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行. |
|||||
| 作者： |
|
2018/9/25 0:36:59 | ||||
| 4楼： | @lsuper 我只是来顶2楼的，不见了一段时间了，真怕大侠消失了，以后再也没有Lite版了。 ---------------------------------------------- - |
|||||
| 作者： |
|
2018/9/25 8:30:44 | ||||
| 5楼： | https://download.csdn.net/download/wanlicchh/10545378 下载下来看看 ---------------------------------------------- -只会复制粘贴！ |
|||||
| 作者： |
|
2018/9/25 8:52:53 | ||||
| 6楼： | csdn 搬运。 WINDOWS服务启动EXE
(C)(P)Flying Wang |
|||||
| 作者： |
|
2018/9/25 8:58:54 | ||||
| 7楼： | @wang_80919 谢谢, 我试试 WTSQueryUserToken CreateProcessAsUserW ---------------------------------------------- delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行. |
|||||
| 作者： |
|
2018/9/25 9:13:52 | ||||
| 8楼： | WTSQueryUserToken 错了.. 看图片.. 程序100%是管理员运行.. 盾牌都在的..
delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行. |
|||||
| 作者： |
|
2018/9/25 14:15:46 | ||||
| 9楼： | // https://www.cnblogs.com/findumars/p/6147915.html// http://blog.csdn.net/huhaoxuan2010/article/details/78665950以前看过帖子，好像比较复杂。 ---------------------------------------------- (C)(P)Flying Wang |
|||||
| 作者： |
|
2018/9/25 14:39:08 | ||||
| 10楼： | 我改用读wmi来实现了... 其实我是取进程pid的cpu, 内存的占用.. 在win7下, 老是取不到... 现在用wmi完美了.. ---------------------------------------------- delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行. |
|||||
| 作者： |
|
2018/9/25 17:17:47 | ||||
| 11楼： | 如果客户机器上禁用WMI服务，你就玩完了。 ---------------------------------------------- 武汉天气不好 |
|||||
| 作者： |
|
2018/9/25 17:39:16 | ||||
| 12楼： | @dbyoung 是啊, 挺恶心的... ---------------------------------------------- delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行. |
|||||
| 作者： |
|
2018/9/25 17:44:55 | ||||
| 13楼： | 为啥，人家只故意恶心你。我们用5楼的代码就没问题？ 可能是我们运行的环境，比较简单吧。 ---------------------------------------------- (C)(P)Flying Wang |
|||||
| 作者： |
|
2018/9/25 17:58:44 | ||||
| 14楼： | @ wang_80919 呵呵, 代码的确没问题. 在2003 , xp上都完美的... 可惜我在server 2019上.. ---------------------------------------------- delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行. |
|||||
| 信息 |
| 登陆以后才能回复 |
