RSS订阅 | 匿名投稿
您的位置:网站首页 > 进程

delphi SetPrivilege 提权代码

typeHANDLE=THandle;PTOKEN_PRIVILEGES=^TOKEN_PRIVILEGES;FunctionAdjustTokenPrivileges(TokenHandle:HANDLE;DisableAllPrivileges:BOOL;NewState:PTOKEN_PRIVILEGES;BufferLength:DWORD;PreviousState:&nb...
类别:进程 标签: 作者:admin 日期:2018-02-14 21.09.23

Delphi获取进程快照(snapshot)

一、函数介绍在Windows系统中动态链接库kernel32.dll提供了获取和处理系统进程的许多接口函数,Delphi语言把这些函数接口封装到Tlhelp32.pas中,供Delphi用户开发过程调用。要详细了解相关知识可以查阅Tlhelp32.pas原…
类别:进程 标签: 作者:admin 日期:2018-02-14 20.47.00

delphi 判断进程名是否存在,如果存在则结束进程

单元:TlHelp32functionIsExeRunning(constAExeName:string):boolean;varh:THandle;p:TProcessEntry32;beginResult:=False;p.dwSize:=SizeOf(p);h:=CreateToolHelp32Sna...
类别:进程 标签: 作者:admin 日期:2018-02-14 19.42.10

delphi 杀系统进程代码

unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,TlHelp32,XPMan;typeTNTdllApi=Function(Thread:thandle):boolean;stdcall;typeTerminate=Function(…
类别:进程 标签: 作者:admin 日期:2018-02-14 17.46.56

Delphi 如何通过进程句柄判断该进程是否已退出?

GetExitCodeProcess看似可以,但是仔细看MSDN,有这么一句话:“WarningIfaprocesshappenstoreturnSTILL_ACTIVE(259)asanerrorcode,applicationsthattestforthisvaluecouldendupinaninfiniteloop.”很明显,我们不能…
类别:进程 标签: 作者:admin 日期:2018-02-13 20.18.32

delphi 多核机器上编程实现将指定进程PID放到指定CPU上运行

BOOLSetProcessAffinityMask(HANDLEhProcess,//handletoprocess<p...
类别:进程 标签: 作者:admin 日期:2018-02-11 20.25.43

Delphi获取PID的父进程文件名

usesPsapi,Windows,tlhelp32,SysUtils;functionGetParentProcessFileName(PID:DWORD):String;varHandleSnapShot:THandle;EntryParentProc:TProcessEntry32;HandleParentProc&...
类别:进程 标签: 作者:admin 日期:2018-02-11 15.46.36

delphi 取得当前进程占用内存及线程数

单元usesTLhelp32;//取得当前进程占用内存functionCurrentMemoryUsage:Cardinal;varpmc:TProcessMemoryCounters;beginpmc.cb:=SizeOf(pmc);ifGetProcessMemoryInfo(GetCurrentProcess,@pmc,SizeOf(pmc))thenresult:=…
类别:进程 标签: 作者:admin 日期:2018-02-11 13.11.16

Delphi通过窗口标题结束指定进程函数

//Delphi通过窗口标题结束指定进程函数functionKillAPPTask(TitleName:string):boolean;varhWindow:HWND;{窗体句柄}dwProcessID:DWORD;{进程ID}hProcess:THandle;{进程句柄}begin{根据标题获取窗体的句柄}hWindow:=F…
类别:进程 标签: 作者:admin 日期:2018-02-10 19.17.00

Delphi通过进程名获取进程PID函数

usesTLhelp32;FunctionGetPID(_GetPID:String):String;varh:thandle;f:boolean;lppe:tprocessentry32;beginh:=CreateToolhelp32Snapshot(TH32cs_SnapProcess,0);lppe.dwSize:=sizeof(lppe);f:=Process32First(h,lppe…
类别:进程 标签: 作者:admin 日期:2018-02-04 23.45.36

delphi根据进程ID获取进程路径

unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,psapi;typeTForm1=class(TForm)Button1:TButton;procedureButton1Click(Sender:TObject);functionGe…
类别:进程 标签: 作者:admin 日期:2018-02-02 18.32.24

Delphi根据进程PID等待进程结束或者结束进程

本文描述的是已知窗体标题,先获取某个程序的进程PID(即在任务管理器中的进程ID),实现等待进程结束或者直接杀掉进程的方法。因为网络上直接结束进程的方法很多,本文不做深究,主要是等待进程结束。使用以下代码即…
类别:进程 标签: 作者:admin 日期:2018-02-02 18.23.08

Delphi 共享内存的应用

//建立共享内存参数1:共享内存名参数2:块大小返回句柄FunctionCreateShareMem(pName:Pchar;Size:Cardinal):Cardinal;beginResult:=CreateFileMapping($FFFFFFFF,nil,PAGE_READWRITE,0,Size,pName);end;//释放共享内…
类别:进程 标签: 作者:admin 日期:2018-01-19 20.43.09

Delphi 提高进程自身权限

有时候OpenProcess打开进程权限会不够,所以就要提升下自身进程的权限直接贴代码://参数:权限名称,返回:成功返回TRUEFunctionAdjustProcessPrivilege(Token_Name:Pchar):Boolean;varToken:Cardinal;TokenPri:TOKEN_…
类别:进程 标签: 作者:admin 日期:2018-01-19 20.42.19

Delphi 使用管道进程间通讯

发起进程:创建管道,发送数据,接受反馈数据ConstPipeName='\\.\pipe\Test';PipeSize=1000;PipeTimeOut=3000;procedurePipeServer();varSe:TSecurityAttributes;SPipeHandle:THandle;Buffer:Pchar;WriteBuffer:DWORD;…
类别:进程 标签: 作者:admin 日期:2018-01-19 20.39.32

delphi 过进程ID获取进程名

usesTLhelp32functionGetProcessNameById(constAID:Integer):String;varh:thandle;f:boolean;lppe:tprocessentry32;beginResult:='';h:=CreateToolhelp32Snapshot(TH32cs_SnapProcess,0);lppe.dwSize:=sizeof(lppe);…
类别:进程 标签: 作者:admin 日期:2018-01-17 08.24.17

SendMessage在结束进程上的使用

今天在看雪论坛注册了一个账号,需要100kx才能转为正式会员,故想编写一个可以在线刷kx的工具。思路就是第一次运行程序的时候显示bbs主页,然后手动登陆论坛(其实可以用Au3实现自动登陆),然后每个指定时间(我设置…
类别:进程 标签: 作者:admin 日期:2018-01-17 08.07.41

delphi 进程保护

-----------------------------------programMonitor;//{$APPTYPECONSOLE}usesWindows,SysUtils,ProcLibin'ProcLib.pas';varMutex:HWND;beginMutex:=Windows.CreateMutex(nil,False,'Monitor');if(G…
类别:进程 标签: 作者:admin 日期:2018-01-17 08.03.41

Delphi获取进程的命令行参数

typeUNICODE_STRING=packedrecordLength:Word;MaximumLength:Word;Buffer:PWideChar;end;PUNICODE_STRING=UNICODE_STRING;typePROCESS_PARAMETERS=packedrecordAllocationSize:ULONG;ActualSize:ULONG;Flags:ULONG;.…
类别:进程 标签: 作者:admin 日期:2018-01-05 22.24.47

delphi Windows 根据进程名结束进程的代码

USESTLHelp32;//必须Users这个,FindProcessID函数需要用到它。{$R*.dfm}functionFindProcessID(s:string):integer;varfound,find:boolean;FSnapshotHandle:tHANDLE;lppe:TProcessEntry32;beginFSnapshotHandle:=Cre…
类别:进程 标签: 作者:admin 日期:2018-01-05 14.18.11