DELPHI 技巧 - 随笔分类 - °ι 、曲终

拦截其它程序的网络数据封包

摘要：有时候我们需要对其它应用程序发送和接收的网络数据进行拦截,比如要对IE发送的HTTP头进行分析,得到请求的地址等.这次我们可以用一些例如WPE, Sniffer之类的工具来达到目的.但是工具功能有限,要想实现更强大的功能,还是我们自己动手吧.拦截网络数据封包的方法有三种,一是将网卡设为混杂模式,这次就可以监视到局域网上所有的数据包,二是HOOK目标进程的发送和接收的API函数,第三种方法是自己实现一个代理的DLL.在这里我们使用HOOK API的方法,这样易于实现,而且也不会得到大量的无用数据(如第一种方法就会监视到所有的网络数据).下面是一个尽量简化了的API HOOK的模版,原理是利用消息阅读全文

posted @ 2011-06-11 13:16 °ι 、曲终阅读(988) 评论(0) 推荐(0)

创建一个文字窗体

摘要：文字窗体代码Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/--procedureTForm1.btn1Click(Sender:TObject);varrgn:HRGN;beginSelf.Color:=clBlue;BeginPath(Canvas.h... 阅读全文

posted @ 2010-10-01 07:39 °ι 、曲终阅读(304) 评论(0) 推荐(0)

SendMessage函数WParame详解

摘要：代码Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/--Windows是一个消息驱动式系统，SendMessage是应用程序和应用程序之间进行消息传递的主要手段之一，这里我搜集整理了SendMessage函数的详细参数介绍，以备自用。wMsg参数常量值：W... 阅读全文

posted @ 2010-09-25 18:12 °ι 、曲终阅读(631) 评论(0) 推荐(1)

Delphi 下的各个进制转换函数

摘要：代码Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/--//十进制to二进制functionIntToBin(Value:LongInt;Size:Integer):String;vari:Integer;beginResult:='';fori:=Siz... 阅读全文

posted @ 2010-09-25 17:58 °ι 、曲终阅读(675) 评论(0) 推荐(1)

delphi替换bmp图片中的颜色

摘要：工作中，经常需要将bmp图片中的某个颜色修改为另外一种颜色。比如:将图片中的所有白色均修改成灰色。平时都是拿画图板中的油漆桶工具一点一点的刷，费时又费力。(这么干好几年了 :( )今天抽空编了一个小软件，实现了这种功能。代码Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlight... 阅读全文

posted @ 2010-09-21 20:56 °ι 、曲终阅读(649) 评论(0) 推荐(0)

无标题窗体拖动

摘要：通过响应“wm_NCHitTest” 消息来移动窗体。Windows 发送“wM_NCHitTest” 消息来确定鼠标操作是否发生在窗体的客户区，或边框的特殊区上（非客户区）。如果Windows 发现用户单击了窗体标题，系统将移动窗体，... 阅读全文

posted @ 2010-09-20 21:20 °ι 、曲终阅读(415) 评论(0) 推荐(0)

TStrings的一些技巧

摘要：TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。常规的用法大家都知道，现在来讨论它的一些高级的用法。先把要讨论的几个属性列出来：1、CommaText2、Delimiter & DelimitedText3、Names & Values & ValueFromIndex先看第一个：CommaText。怎么用呢？用代码说话：代码Code highl... 阅读全文

posted @ 2010-09-20 21:15 °ι 、曲终阅读(361) 评论(0) 推荐(0)

Delphi多线程编程中的技巧

摘要：1）创建线程MsgThread := TMsgThread.Create(False) ; //创建并执行线程MsgThread := TMsgThread.Create(True) ; //创建线程后挂起constructor Create(CreateSuspended: Boolean); 中的参数CreateSuspended表示创建后是否挂起线程。（2）设置线程里没有设置循环执行的话，且... 阅读全文

posted @ 2010-09-20 21:12 °ι 、曲终阅读(609) 评论(0) 推荐(0)

Delphi中线程类TThread 实现多线程编程

摘要：Delphi中有一个线程类TThread是用来实现多线程编程的，这个绝大多数Delphi书藉都有说到，但基本上都是对TThread类的几个成员作一简单介绍，再说明一下Execute的实现和Synchronize的用法就完了。然而这并不是多线程编程的全部，我写此文的目的在于对此作一个补充。线程本质上是进程中一段并发运行的代码。一个进程至少有一个线程，即所谓的主线程。同时还可以有多个子线程。当一个进程... 阅读全文

posted @ 2010-09-20 21:07 °ι 、曲终阅读(6299) 评论(0) 推荐(1)

如何使用SendMessage发送按键组合，例如：Ctrl+A

摘要：代码Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/--varhwnd:Integer;beginhwnd:=FindWindow('Notepad',nil);SetForegroundWindow(hwnd);keybd_event(VK_CONTRO... 阅读全文

posted @ 2010-09-20 20:56 °ι 、曲终阅读(5237) 评论(0) 推荐(0)

TreeView使用笔记

摘要：TreeView由节点构成，建树通过对TreeView.items属性进行操作。Items是一个TTreeNodes对象，这是一个TTreeNode集。一、针对TTreeNodes,也就是 TreeView.Items,有这些属性：1、count，节点个数。2、item[index] ,通过index得到节点。二、针对TTreeNodes,也就是 TreeView.Items,常用的添加节点的操作... 阅读全文

posted @ 2010-09-20 20:52 °ι 、曲终阅读(281) 评论(0) 推荐(0)

Delphi中动态生成的button调用onclick如何传递参数

摘要：代码Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/--//自定义事件过程，过程名可以任意取procedureTForm1.OnClick(Sender:TObject);beginifSenderisTButtonthenbeginifTButton(S... 阅读全文

posted @ 2010-09-20 20:51 °ι 、曲终阅读(2142) 评论(0) 推荐(0)

让delphi嵌入的WebBrowser无边框无滚动条

摘要：代码Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/--{WB_Set3DBorderStyle}procedureWB_Set3DBorderStyle(Sender:TWebBrowser;bValue:Boolean);varDocument:IHT... 阅读全文

posted @ 2010-09-20 20:49 °ι 、曲终阅读(1735) 评论(0) 推荐(0)

delphi中关于时间差的实例

摘要：很多时候要用到相差多少天，多少周，多少秒，查了一下资料，整理如下：首先 uses dateutils;先自己做了个实例，相关代码如下：代码Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/--usesdateutils;procedureTForm1.But... 阅读全文

posted @ 2010-09-20 20:47 °ι 、曲终阅读(2604) 评论(0) 推荐(0)

使用BMDThread控件动态创建多线程示例

摘要：BMDThread控件是一套相当成熟的线程控件，使用它可以让你快速的创建、管理线程。可以到CSDN或者盒子上下载BMDThread控件。下面我们用多线程模拟客户端发送文件的例子来简单认识一下它。在窗体中放置一个TIDClient，TBMDThread，TBMDThreadGroup.三个TEdit，两个按钮（开始线程，结束线程），一个MEMO用于接受线程结果信息功能：使用IDTCPCli... 阅读全文

posted @ 2010-09-20 20:44 °ι 、曲终阅读(734) 评论(0) 推荐(0)

Delphi Memo中禁止汉字

摘要：在memo里面的OnKeyPress里面加入 if Key>#127 then Key:= #0; 即可！！！阅读全文

posted @ 2010-09-20 20:40 °ι 、曲终阅读(250) 评论(0) 推荐(0)

最简单的限制edit输入

摘要：[代码]刚遇到这个问题就发上来了这个".."真好用啊记住在你的edit编辑框里面在KeyPress里面加入代码哦！阅读全文

posted @ 2010-09-20 20:39 °ι 、曲终阅读(214) 评论(0) 推荐(0)

delphi 键盘按键代码

摘要：常数名称十六进制值十进制值对应按键 VK_LBUTTON011鼠标的左键VK_RBUTTON022鼠标的右键VK-CANCEL 033Ctrl Break(通常不需要处理)VK_MBUTTON044鼠标的中键（三按键鼠标)VK_BACK088 Backspace键VK_TAB099 Tab键VK_CLEAR0C12Clear键（Num Lock关闭时的数字键盘5）VK_RETURN 0D13... 阅读全文

posted @ 2010-09-20 20:36 °ι 、曲终阅读(710) 评论(0) 推荐(0)

delphi 里的@^#等符号都是什么意思？

摘要：@:取址运算符; var int:integer; p:^integer; new(P); int:=24; p:=@int; dispose(P); ^:指针的引用解析操作符; var pint:^integer; new(pint); showmessage(inttohex(integer(@pint),8); pint^:=$ff; showmessage(inttohex(pint^,4... 阅读全文

posted @ 2010-09-20 20:34 °ι 、曲终阅读(426) 评论(0) 推荐(0)

Delphi文件操作所涉及的一些函数附例子

摘要：//判断文件是否存在 FileExists//判断文件夹是否存在 DirectoryExists//删除文件 DeleteFile; Windows.DeleteFile//删除文件夹 RemoveDir; RemoveDirectory//获取当前文件夹 GetCurrentDir//设置当前文件夹 SetCurrentDir; ChDir; SetCurrentDirectory//获取指定驱... 阅读全文

posted @ 2010-09-20 20:27 °ι 、曲终阅读(289) 评论(0) 推荐(0)

随笔分类 - DELPHI 技巧