oKmAn.Org - 博客园

2010年1月17日

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdMessage, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, ... 阅读全文

posted @ 2010-01-17 15:06 oKmAn.Org 阅读(296) 评论(0) 推荐(0) 编辑

在Richedit上进行Delphi代码语法加亮显示

摘要： Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/--procedure CodeColors(Form : TForm;Style : String; RichE : TRichedit;InVisible : Boolean); const // sym... 阅读全文

posted @ 2010-01-17 15:01 oKmAn.Org 阅读(560) 评论(0) 推荐(0) 编辑

Delphi 进程防杀

摘要：用过卡巴斯基的朋友都知道，卡巴斯基的进程是无法杀掉的，在任务管理器中杀卡巴进程的话，会弹出一个消息框提示拒绝访问！那么这是怎么实现的呢？很简单，就是使用了HOOK API的方法。我用delphi来写程序好了，先写个dll。const PRG_NAME = 'ddos.exe';var TerminateProcessNext : function (processHandle, exitCode:... 阅读全文

posted @ 2010-01-17 14:50 oKmAn.Org 阅读(670) 评论(0) 推荐(0) 编辑

MAC地址 IP地址

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, winsock, nb30;type TForm1 = class(TForm) Button1: TButton; Label1: TLabel; Label2... 阅读全文

posted @ 2010-01-17 02:48 oKmAn.Org 阅读(281) 评论(0) 推荐(0) 编辑