VC和Delphi程序只运行一个实例的方法

程序只运行一个实例，笔者自己作程序也有这样的情况，于是自已探究一番。忙活一阵后，总算小有收获，不敢独享，在天极发表出来，供大家参考。　　既然是从根本上解决问题，对于W..
Tags: Delphi 方法 windows 　　发布时间:10-09-15 10:53:05

delphi反跟踪

按F8跟踪会显示完对话框就会退出.其他情况显示完对话框后正常执行.procedure KillMe();beginApplication.Terminate();end;procedure Test();varMsg : String;beginmsg := 你好啊..
Tags: Delphi MM 　　发布时间:10-09-15 10:26:10

Delphi程序增加破解难度

我们有必要给API增加一点分析难度，先转一圈再去调用这个API，调用完后在转一圈才回去，顺便加点小花，增加分析难度一、THookClass（网上有源代码）写一个API HOOK的程序 钩住AP..
Tags: Delphi 　　发布时间:10-09-15 10:24:27

Delph 分割字符 方法！

方法1：var ASource: PChar; AStr: String; ACount,i: Integer; AStrings: TStringList;begin ASource := ABC|... DEF|#### GHI|不会被分开|# www.jx19.com; AStrings := TStrin..
Tags: 方法 　　发布时间:10-07-08 18:23:44

A星(A-Star)寻路算法

uses Classes,SysUtils;type pAStarPathNode=^tAStarPathNode; tAStarPathNode=record x,y:word; F:word; G:word; H:word; father:pAStarPathNode; //地图方格的父方格 prev :pA..
Tags: WORD 算法 　　发布时间:10-07-08 10:11:56

Delphi ListView基本用法大全

//增加项或列(字段)ListView1.Clear;ListView1.Columns.Clear;ListView1.Columns.Add;ListView1.Columns.Add;ListView1.Columns.Add;ListView1.Columns.Items[0].Caption:=apos;..
Tags: Delphi ListView 　　发布时间:10-07-04 17:01:18

Delphi实现的简单加解密

var: key:string;//加解密关键字 percent1:Double;//加解密转换百分比，与关键字一同构成一个加密解密算法 //移位解密函数 functionTfrmCryptograph.DeCode(aCryptograph,..
Tags: Delphi 算法 　　发布时间:10-05-11 14:14:52

Delphi加断点调试DLL文件

可以看到一些经常需要调用的dll，如windows的user32.dll等； 右上角显示了dll函数的entrypoint，是每个dll文件export的过程或函数名，供调用； 这里需要注意的是左上角的path，..
Tags: Delphi windows XP 软件 　　发布时间:10-05-11 14:11:54

截取程序的网络封包（Delphi Hook API）

拦截网络数据封包的方法有三种,一是将网卡设为混杂模式,这次就可以监视到局域网上所有的数据包,二是HOOK目标进程的发送和接收的API函数,第三种方法是自己实现一个代理的DLL.在这..
Tags: Delphi 网络 进程 方法 　　发布时间:10-04-21 20:54:18

用hook实现dll注入详解

流程：caller.exeprocedure TestHook;var pwnd,hChild, hwndInject hwnd;msgtmsg;begin通过窗口标题用FindWindow找到要注入的程序的主窗口句柄pwndpwnd = findwindow(Progman,ni..
Tags: 用hook实现dll注入详解 　　发布时间:10-04-19 19:40:10

Delphi编程获取系统当前进程、窗口句柄、文件属性以及程序运行状态.

uses TLHelp32,PsAPI;(1)显示进程列表：procedure TForm1.Button2Click(Sender: TObject);var lppe: TProcessEntry32;found : boolean;Hand : THandle;P:DWORD;s:string;beginLi..
Tags: Delphi WORD 进程 　　发布时间:10-04-19 18:15:30

Delphi防止程序重复运行

myMutex,FindHid:HWND;MoudleName:string;function EnumWndProc(hwnd:Thandle;param:Cardinal):bool;stdcall;varClassName,WinMoudleName:string;WinInstance:THandle;begin res..
Tags: Delphi 　　发布时间:10-04-19 18:14:07

41‹‹1234››