自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

原创 把窗体中所有的Button的Enabled置为False

把窗体中所有的Button的Enabled置为False procedure TForm1.FormCreate(Sender: TObject); var index:integer; begin For Index:=0 to ControlCount-1 do

2011-08-27 00:17:28

阅读数 888

评论数 0

转载 exe自校验

var stream: TMemoryStream; CrcValue,OldCrcValue: DWORD; exename: string; WriteBuf: array[0..3] of Byte; begin CRCValue := $FFFFFFFF;

2011-08-26 23:46:52

阅读数 1018

评论数 0

转载 Delphi数据类型列表

Delphi数据类型列表 分类 范围 字节 备注 简单类型 序数 整数 Integer -2147483648 .. 2147483647 4 有符号32位 Cardinal 0 ..

2011-08-26 23:30:37

阅读数 410

评论数 0

转载 TListView的使用

ListView1.Items 为标准 Tlistitems类 ListView1.Items (1)赋值 with ListView1.Items.Add do begin Caption:=caption; //添加第一项 SubItems.add(aaaaa);

2011-08-16 21:12:42

阅读数 519

评论数 0

原创 获取进程路径

uses Tlhelp32, PsAPI; var ProcArr: array of TProcessEntry32; ColumnToSort: Integer; procedure EnumProcess(pNameList, PidList: TStr

2011-08-15 21:57:24

阅读数 499

评论数 0

原创 遍历结束指定进程演示

uses Tlhelp32; var ProcArr: array of TProcessEntry32; procedure EnumProcess(pNameList, PidList: TStrings); var hProcess: THandle;

2011-08-15 16:55:12

阅读数 409

评论数 0

原创 OpenProcess

var   ProcessHandle, PID: longword;   begin   GetWindowThreadProcessId(FindWindow('Shell_TrayWnd', nil), @PID);//获取c的PID   Proce

2011-08-15 15:34:57

阅读数 512

评论数 0

原创 简易枚举进程模块信息演示

将上例数组改成用指针存放模块信息演示 uses TlHelp32; var PidL: TStringList; //存放PID列表 [全局] EntryL: Tlist;

2011-08-14 16:00:34

阅读数 592

评论数 0

原创 自制简易获取系统进程模块信息

uses TlHelp32; var ModuArr: array of TModuleEntry32; //用来装载TModuleEntry32模块信息 PidList: TStrings; count: DWORD; function GetP

2011-08-13 21:55:07

阅读数 695

评论数 0

原创 获取系统进程模块信息

uses TlHelp32; procedure TForm1.FormCreate(Sender: TObject); var Pname: string; I, Pid: DWORD; Prc: TProcessEntry32; modu

2011-08-13 16:45:40

阅读数 573

评论数 0

原创 进程模块信息

uses Tlhelp32; var modList: TStrings; procedure ModuleEnum(processid: Dword;Var ProcList: TstringList); var ModuleList: Thandle;

2011-08-13 13:37:30

阅读数 559

评论数 0

原创 按PID枚举模块

uses Tlhelp32; procedure ModuleEnum(processid: Dword;var ProcList: TstringList); var ModuleList: Thandle; pm: TMODULEENTRY32; begin

2011-08-13 12:14:01

阅读数 485

评论数 0

原创 CreateToolhelp32Snapshot函数

DELPHI - CreateToolhelp32Snapshot函数 一、函数介绍 在Windows系统中动态链接库kernel32.dll提供了获取和处理系统进程的许多接口函数,Delphi语言把这些函数接口封装到Tlhelp32.pas中,供Delphi用户开发过程调用

2011-08-12 15:47:39

阅读数 1655

评论数 0

原创 进程列表

function AdjustProcessPrivilege(Processhandle: Thandle; Token_Name: pchar): boolean; //提权 var Token: cardinal; TokenPri: _TOKEN

2011-08-12 15:08:47

阅读数 574

评论数 1

原创 取系统当前活动窗口标题

var h: HWND; p: array[0..254] of Char; begin if h <> GetForegroundWindow then begin h := GetForegroundWindow; GetWind

2011-08-12 14:07:18

阅读数 511

评论数 0

原创 ListBox增加横向滚动条

ListBox增加横向滚动条 sendmessage(lst1.Handle,lb_sethorizontalextent,lst1.Width+2,0);

2011-08-12 14:00:07

阅读数 468

评论数 0

原创 判断指针状态 Demo

var p: ^Integer; procedure TForm1.btn1Click(Sender: TObject); begin if not assigned(p) then begin New(P); btn1.Caption

2011-08-07 21:01:29

阅读数 383

评论数 1

转载 程序反调试

procedure TForm1.FormCreate(Sender: TObject); var isDebuggerPresent: function:Boolean; DllModule: THandle; begin DllModule := Loa

2011-08-07 16:50:39

阅读数 468

评论数 0

原创 ClearMemory

procedure ClearMemory; begin if Win32Platform = VER_PLATFORM_WIN32_NT then begin SetProcessWorkingSetSize(GetCurrentProcess,

2011-08-07 13:29:09

阅读数 404

评论数 0

转载 弄懂计算机里的一些概念

彻底弄懂计算机里的一些概念 ①什么是关健字? (1)类型说明符 用于定义、说明变量、函数或其它数据结构的类型。如前面例题中用到的int,double等 (2)语句定义符 用于表示一个语句的功能。如例1.3中用到的if else就是条件语句的语句定义符。 (3)

2011-08-07 00:38:22

阅读数 709

评论数 0

提示
确定要删除当前文章?
取消 删除