进程相关

IORI915189 2005-09-16 09:34:56

小弟初学DELPHI 希望大家多帮助

有一段获取进程的代码可以获取进程添加到LISTBOX控件里
另一段代码是提升到DEBUG权限的为什么放在一起后就无法获取进程了

...全文

113 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

IORI915189 2005-10-03

打赏
举报

IORI915189 2005-09-28

打赏
举报

IORI915189 2005-09-16

打赏
举报

下面是该２段代码
procedure GetDebugPrivs;
var
h : THandle;
tkp: TTokenPrivileges;
retval: dword;
begin
OpenProcessToken (GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, h);
LookupPrivilegeValue(nil, 'SeDebugPrivilege', tkp.Privileges[0].Luid);
tkp.PrivilegeCount := 1;
tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
AdjustTokenPrivileges(h, false, tkp, 0, nil, retval);
CloseHandle(h);
end;

procedure Getprocrss;
var
lppe: tprocessentry32;
sshandle: thandle;
found:boolean;
begin
form1.listbox1.Clear;
sshandle := createtoolhelp32snapshot (TH32CS_SNAPALL, 0);
found := process32first (sshandle, lppe);
while found do
begin
form1.listbox1.Items.Add (lppe.szExeFile);

found := process32next(sshandle, lppe);
end;
CloseHandle(sshandle);
end;