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

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

Delphi中查找进程及强行结束进程的方法

functionTfUpdate.FindProcess(AFileName:string):boolean;varhSnapshot:THandle;//用于获得进程列表lppe:TProcessEntry32;//用于查找进程Found:Boolean;//用于判断进程遍历是否完成KillHandle:THandle;//用于杀死进…
类别:进程 标签: 作者:admin 日期:2016-01-20 10.28.43

delphi杀进程的两种方式

第一种:比较简单,根据标题,找到窗口,再找到进程,杀死进程procedureKillProgram(WindowTitle:string);constPROCESS_TERMINATE=$0001;varProcessHandle:THandle;ProcessID:Integer;TheWindow:HWND;beginTheWi...
类别:进程 标签: 作者:admin 日期:2016-01-20 10.15.11

delphi程序禁止结束进程

自己程序中的一段代码,进程防杀。根据网上面流传的进程防杀的C++代码改编。DLL部分:PIMAGE_IMPORT_DESCRIPTOR=^_IMAGE_IMPORT_DESCRIPTOR;PImageImportDescriptor=PIMAGE_IMPORT_DESCRIPTOR;_IMAGE_IMPORT_DESCRIP…
类别:进程 标签: 作者:admin 日期:2016-01-20 10.13.19

Delphi 获取当前进程的父进程

有时候,我们创建了一个子进程,我们需要知道自己所隶属的父进程的ID。有几个办法,一个是调用微软未公开的NtQueryInformationProcess函数,另一个就是下面提供的一个函数,利用了公开的函数,运行需要包含tlhelp32单…
类别:进程 标签: 作者:admin 日期:2015-12-14 22.37.04

delphi监控指定进程防止被关闭

delphi监控指定进程防止被关闭对于守护中间件是非常有用的。中间件不可能绝对的稳定而不出问题,中间件有可能因比较严重的错误导致当机或者进程被人为地错误地关闭了中间件。有了这个自动守护进程的存在,这一切的问…
类别:进程 标签: 作者:admin 日期:2015-04-27 19.51.41

delphi 取正在运行的DLL或EXE的路径

functionGetSelfPath:string;varModuleName:string;i:Integer;beginSetLength(ModuleName,255);GetModuleFileName(HInstance,PChar(ModuleName),Length(ModuleName));i:=LastDelimiter('\',ModuleName);Result:=Copy…
类别:进程 标签: 作者:admin 日期:2015-04-27 19.44.14

DELPHI 获取系统当前活动窗口的句柄及对应的进程名

//下面的GetProcessNameById函数如下usesTLhelp32;functionGetProcessNameById(constAID:Integer):String;varh:thandle;f:boolean;lppe:tprocessentry32;beginResult:='';h:=CreateToolhelp32Snapshot(TH32cs_SnapPr…
类别:进程 标签: 作者:admin 日期:2013-11-28 20.55.38

DELPHI实现关闭指定进程,自身防杀

偶然翻到很久以前用DELPHI写的一个小程序,实现功能是在后台默默关闭符合条件的进程,并隐藏自身。编写目的是为了防止办公电脑运行游戏。实现原理是:1、程序运行后将自身以不同的名称一式三份存到系统各目录中,将其…
类别:进程 标签: 作者:admin 日期:2013-11-24 13.07.20

delphi 获取进程列表及相关信息

unitMain;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,TlHelp32,StdCtrls,ComCtrls,psAPI;typePTokenUser=^TTokenUser;_TOKEN_USER=recordUser:TSIDAndAttributes;en…
类别:进程 标签: 作者:admin 日期:2013-11-22 19.34.43

VB+Delphi实现进程保护

学学delphi做点东东玩玩吧。还是老思路不过是换了DLL看守了。1.DLL注入。2.创建线程。3.检测被守护进程是否存在。4.不存在就启动。DLL检测进程是否存在我...
类别:进程 标签:进程保护 作者:admin 日期:2013-10-21 22.14.53

delphi 如何在在Windows平台下实现进程隐藏

unitUnit1;interfaceusesWindows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,tlhelp32;{typeTProcessEntry32=recorddwSize:DWORD;cntUsage:DWORD;th32ProcessID:DWORD;<b...
类别:进程 标签: 作者:admin 日期:2013-03-20 09.42.45

Delphi版进程间的相互调用与参数传递

一、主要场景a)主程序启动另外一个程序,并传递参数b)主进程向一个已经运行中的程序传递参数二、代码1)调用程序:varHWND:DWORD;ApplicationHWND:DWORD;begin...
类别:进程 标签: 作者:admin 日期:2013-02-07 21.58.07