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

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

delphi Debug权限提升

第一种:比较简单,根据标题,找到窗口,再找到进程,杀死进程procedureKillProgram(WindowTitle:s****ing);constPROCESS_TERMINATE=$0001;varProcessHandle:THandle;ProcessID:Integer;TheWindow:HWND;beginTheWind…
类别:进程 标签: 作者:admin 日期:2018-01-02 16.04.29

Delphi中隐藏程序进程

在开发某些软件的时候,为了保护程序自身,就需要用到隐藏程序进程。以下通过实例来讲解隐藏程序进程的方法:1、创建一个新的项目Project1选择File,NewApplication。在表单Form1上放一Memo组件,一个OK按钮组件,改变…
类别:进程 标签: 作者:admin 日期:2018-01-02 14.32.51

DELPHI 通過窗口句柄或窗口标题得到进程句柄

procedureTForm1.Button1Click(Sender:TObject);<spanstyle="box-sizing:border-box;margin:0px;padding:0...
类别:进程 标签: 作者:admin 日期:2017-12-23 20.06.01

delphi 如何获取进程的全路径名

一、Win7下如何获取进程的全路径名?[delphi]1、程序必须包含配置UAC2、用以下函数代码取路径usesTLHelp32,psapi;functionFindProcess(AFileName:string;varID:Cardinal):boolean;varhSnapshot:THandle;//用于获得进…
类别:进程 标签: 作者:admin 日期:2017-12-15 19.11.44

Delphi XP下的进程静音技术

很多浏览器有这种功能,实现原理都是一样。发声源基本都来自Flash,比如Flash游戏啦,视频播放器啦等等而Flash的发声都是通过winmm.dll::waveOutWrite函数来完成,所以,我们只要能“接管”这个函数就行了下面的代码…
类别:进程 标签: 作者:admin 日期:2017-03-19 08.55.32

Delphi 获得每个进程的CPU使用率

functionGetCPUUsage(varliOldIdleTime,liOldSystemTime:LARGE_INTEGER):string;typeTSystem_Basic_Information=packedrecorddwUnknown1:DWORD;uKeMaximumIncrement:ULONG;uPageSize:ULONG;uMmNumberOfPhysicalPages…
类别:进程 标签: 作者:admin 日期:2017-03-19 08.54.47

delphi 创建进程时指定其父进程

usesWindows,PsAPI,SysUtils;constSE_SECURITY_NAME='SeSecurityPrivilege';PROC_THREAD_ATTRIBUTE_PARENT_PROCESS=$00020000;EXTENDED_STARTUPINFO_PRESENT=$00080000;typePPROC_THREAD_ATTRIBUTE_LIST=Pointer;...…
类别:进程 标签: 作者:admin 日期:2017-03-15 20.02.14

delphi 检测进程是否存在

functionCheckProcessExist(constAFileName:string):Boolean;var//用于获得进程列表hSnapshot:THandle;//用于查找进程lppe:TProcessEntry32;//用于判断进程遍历是否完成Found:Boolean;beginResult:=False;//获得系统…
类别:进程 标签: 作者:admin 日期:2017-03-13 18.18.34

Delphi调用CreateProcess创建进程

varsi:STARTUPINFO;pi:PROCESS_INFORMATION;<spanstyle...
类别:进程 标签: 作者:admin 日期:2017-03-08 20.28.58

delphi 关闭进程方法

UsesWindows,SysUtils,Tlhelp32;FunctionKillTask(ExeFileName:String):Integer;//关闭进程FunctionEnableDebugPrivilege:Boolean;//提升权限FunctionFindProcessId(ExeFileName:String):THandle;//查找进程Implemen…
类别:进程 标签: 作者:admin 日期:2016-01-20 22.38.36

Delphi 进程之间传递cmd参数

usesShellAPI;{Unit1.pas}通过这个单元的Button,调用另一个实例;procedureTForm1.Button1Click(Sender:TObject);beginShellExecute(Handle,'open','project2.exe','2HelloWorld',nil,SW_SHOWNORMAL);end;{Uni…
类别:进程 标签: 作者:admin 日期:2016-01-20 22.37.38

Delphi APIHook CreateProcess

unitApiHook;interfaceusesWindows,Messages,Dialogs,Con****ols,Classes,SysUtils,psapi;typePImpCode=^TImpCode;TImpCode=packedrecordJumpItn:Word;//应该是$25FF,JUMP指令AddressFun:PPointer;//真正的开始地址…
类别:进程 标签: 作者:admin 日期:2016-01-20 10.38.54