【文件属性】:
文件名称:获取进程路径
文件大小:107KB
文件格式:RAR
更新时间:2014-12-18 04:37:27
获取进程路径
获取正在运行进程的完整路径
function EnabledDebugPrivilege(const bEnabled: Boolean): Boolean;
var
hToken: THandle;
tp: TOKEN_PRIVILEGES;
a: DWORD;
const
SE_DEBUG_NAME = 'SeDebugPrivilege';
begin
Result := False;
if (OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES, hToken)) then
begin
tp.PrivilegeCount := 1;
LookupPrivilegeValue(nil, SE_DEBUG_NAME, tp.Privileges[0].Luid);
if bEnabled then
tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED
else
tp.Privileges[0].Attributes := 0;
a := 0;
AdjustTokenPrivileges(hToken, False, tp, SizeOf(tp), nil, a);
Result := GetLastError = ERROR_SUCCESS;
CloseHandle(hToken);
end;
end;
【文件预览】:
进程模块
----ProcessDelUnit.~ddp(51B)
----ProcessUnit.~ddp(51B)
----FKFAP.sys(13KB)
----ProcessUnit.ddp(51B)
----RKHit.sys(32KB)
----ProcessUnit.dcu(21KB)
----ProcessDelUnit.~pas(19KB)
----Project1.stat(180B)
----DllUnit.~pas(1KB)
----Win32API.dll(32KB)
----ProcessDelUnit.dcu(21KB)
----Project1.~dpr(247B)
----ProcessUnit.~dfm(53KB)
----ProcessUnit.pas(19KB)
----ProcessUnit.dfm(53KB)
----ProcessDelUnit.~dfm(53KB)
----ProcessUnit.~pas(19KB)
----Project1.res(876B)
----DllUnit.pas(2KB)
----ProcessDelUnit.dfm(53KB)
----ProcessDelUnit.pas(19KB)
----ProcessDelUnit.ddp(51B)
----Project1.dof(2KB)
----Project1.dpr(262B)
----Project1.cfg(434B)
----DllUnit.dcu(2KB)