- 博客(3)
- 收藏
- 关注
RSS订阅原创 获取程序路径
function GetProcessExePath(h: HWND): string;varpid: Cardinal;pHandle: THandle;buf: array[0..MAX_PATH] of Char;begin{先获取进程 ID}GetWindowThreadProcessId(h, @pid);{再获取进程句柄}pHandle := OpenProcess(PROCESS_ALL_ACCESS, False, pid);{获取进程路径}GetModuleFileNameEx(pHand
2010-08-20 05:16:00
201
原创 结束进程
<br />function KillTask(ExeFileName: string): integer;<br />const<br />PROCESS_TERMINATE=$0001;<br />var<br />ContinueLoop: BOOL;<br />FSnapshotHandle: THandle;<br />FProcessEntry32: TProcessEntry32;<br />begin<br />result := 0;<br /><br />FSnapshotHandle
2010-08-20 04:48:00
246
原创 删除服务
{删除指定服务，编译通过}uses winsvc;procedure UninstallService(ServiceName: string);var SCManager,Service: THandle; ServiceStatus: SERVICE_STATUS;begin SCManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);//获得SC管理器句柄 if SCManager = 0 then Exit; try
2010-08-20 04:42:00
281
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人