进程模块线程
关注
分享
扫一扫
文章平均质量分 58
seagull327
若大的世界
展开
-
在Delphi中运用Windows管道技术简述
在Delphi中运用Windows管道技术简述 Windows管道技术简述不知你是否用过这样的程序，他们本身并没有解压缩的功能，而是调用DOS程序PKZIP完成ZIP包的解压缩。但是在程序运行时又没有DOS控制台的窗口出现而且一切本应该在DOS下显示的信息都出现在了那个安装程转载 2011-02-10 19:39:00 · 1736 阅读 · 1 评论 -
获取系统进程模块信息
uses TlHelp32;procedure TForm1.FormCreate(Sender: TObject);var Pname: string; I, Pid: DWORD; Prc: TProcessEntry32; modu原创 2011-08-13 16:45:40 · 738 阅读 · 0 评论 -
自制简易获取系统进程模块信息
uses TlHelp32;var ModuArr: array of TModuleEntry32; //用来装载TModuleEntry32模块信息 PidList: TStrings; count: DWORD;function GetP原创 2011-08-13 21:55:07 · 827 阅读 · 0 评论 -
进程模块信息
uses Tlhelp32;var modList: TStrings;procedure ModuleEnum(processid: Dword;Var ProcList: TstringList);var ModuleList: Thandle;原创 2011-08-13 13:37:30 · 710 阅读 · 0 评论 -
获取进程路径
uses Tlhelp32, PsAPI;var ProcArr: array of TProcessEntry32; ColumnToSort: Integer;procedure EnumProcess(pNameList, PidList: TStr原创 2011-08-15 21:57:24 · 677 阅读 · 0 评论 -
简易枚举进程模块信息演示
将上例数组改成用指针存放模块信息演示uses TlHelp32;var PidL: TStringList; //存放PID列表 [全局] EntryL: Tlist;原创 2011-08-14 16:00:34 · 754 阅读 · 0 评论 -
CreateThread多参数传递
Student = record Name: PChar; age: integer; end; pStudent=^Student;var h: THandle;procedure aa(cc: pStudent); stdcall;begin Form1.Memo1.Lines.Add(cc.Name); Form1.Memo1.Lines.Add(原创 2013-02-25 19:44:21 · 1781 阅读 · 1 评论 -
CreateProcess
Delphi 使用CreateProcess创建进程并弹出进程PID值var ExeName:PChar; StartupInfo:TStartupInfo; ProcessInfo:TProcessInformation;begin FillChar(ProcessInfo,sizeof(TProcessInformation),0);转载 2013-03-12 23:29:57 · 1406 阅读 · 0 评论 -
多线程同步 CriticalSection(临界区)
var Form1: TForm1; Xs: TCriticalSection; //uses SyncObjsimplementation{$R *.dfm}function TmyThreadFun(p: Pointer): DWORD; stdcall;var i: Integer;begin Xs.Enter; for i := 0 to 100 do For原创 2011-02-10 00:44:00 · 758 阅读 · 0 评论 -
建立线程监视
var Form1: TForm1; Hprocess: THandle;implementation{$R *.dfm}function MyThread(P: Pointer): DWORD; stdcall;begin if WaitForSingl转载 2011-02-10 15:22:00 · 815 阅读 · 0 评论 -
遍历结束指定进程演示
uses Tlhelp32;var ProcArr: array of TProcessEntry32;procedure EnumProcess(pNameList, PidList: TStrings);var hProcess: THandle;原创 2011-08-15 16:55:12 · 542 阅读 · 0 评论 -
Delphi结束进程模块
uses Tlhelp32;function KillTask(ExeFileName: string): integer;const PROCESS_TERMINATE = $0001;var ContinueLoop: BOOLean; FSnapsho转载 2011-05-31 18:27:00 · 681 阅读 · 0 评论 -
CreateProcess创建一个隐藏进程
delphi中使用CreateProcess创建一个隐藏进程FillChar(StartUpInfo, SizeOf(StartUpInfo), 00);StartUpInfo.dwFlags := STARTF_USESHOWWINDOW;StartUpInfo.w原创 2011-07-27 14:57:03 · 9703 阅读 · 0 评论 -
CreateMutex 防止程序多次运行
CreateMutex 防止程序多次运行 windows是个多用户多任务的操作系统，支持多个程序同时运行，如果你的程序不想让用户同时运行一个以上，那应该怎样做呢？ 本文将介绍避免用户同时运行多个程序的例子。需要用到的函数CreateMutex ，CreateMutex 函转载 2011-07-31 12:38:05 · 1609 阅读 · 0 评论 -
建立程序互斥
<br />procedure TForm1.FormCreate(Sender: TObject);begin CreateMutex(nil,False,'Form1'); if GetLastError=ERROR_ALREADY_EXISTS then原创 2011-05-29 15:15:00 · 455 阅读 · 0 评论 -
进程检测
function FindProcess(AFileName:string):boolean;varhSnapshot:THandle;lppe:TProcessEntry32;Found:Boolean;beginResult:=False;hSnapshot:原创 2010-12-29 20:29:00 · 373 阅读 · 0 评论 -
程序反调试
procedure TForm1.FormCreate(Sender: TObject);var isDebuggerPresent: function:Boolean; DllModule: THandle;begin DllModule := Loa转载 2011-08-07 16:50:39 · 600 阅读 · 0 评论 -
进程列表
function AdjustProcessPrivilege(Processhandle: Thandle; Token_Name: pchar): boolean; //提权var Token: cardinal; TokenPri: _TOKEN原创 2011-08-12 15:08:47 · 730 阅读 · 1 评论 -
CreateToolhelp32Snapshot函数
DELPHI - CreateToolhelp32Snapshot函数一、函数介绍在Windows系统中动态链接库kernel32.dll提供了获取和处理系统进程的许多接口函数，Delphi语言把这些函数接口封装到Tlhelp32.pas中，供Delphi用户开发过程调用原创 2011-08-12 15:47:39 · 3337 阅读 · 0 评论 -
按PID枚举模块
uses Tlhelp32;procedure ModuleEnum(processid: Dword;var ProcList: TstringList);var ModuleList: Thandle; pm: TMODULEENTRY32;begin原创 2011-08-13 12:14:01 · 631 阅读 · 0 评论 -
多线程临界区Demo
var iCount: integer = 0; iThread: integer = 0; //线程计数 THreadID: Cardinal; CS: TRTLCriticalSection; //线程临界区function myThreaFunc(p: Pointer): DWORD; stdcall;var i: Integer;begin inc(i原创 2013-10-21 23:41:43 · 836 阅读 · 0 评论