被遗忘的遐想空间

{ ********************************************************************** }{ Currency Common Function Procedure Unit }{ 通用公共函数过程单元 }{ Author:Heaven.Ben.      Ver:1.01090716a }{ Last Version: 1.

Convert Wave format file to Raw data formatThis can be found on theConvert Page. Wave File format helpFrom: BerndCordes@t-online.deHere you go: TWaveHeader = record Marker1: Arr

procedure Sound(Freq : Word);var B : Byte;begin if Freq > 18 then begin Freq := Word(1193181 div LongInt(Freq)); B := Byte(GetPort($61)); if (B and 3) = 0 then begin SetPort($61, Word(B or 3))

WinExec(lpCmdLine: LPCSTR; {文件名和参数; 如没指定路径会按以下顺序查找: 程序目录/当前目录/System32/Windows/PATH环境变量}uCmdShow: UINT     {启动选项}): UINT;//返回值:大于 31                    {调用成功}等于 0                     {内存

Stream对象，又称流式对象，是TStream、THandleStream、TFileStream、TMemoryStream、TResourceStream和TBlobStream等的统称。它们分别代表了在各种媒介上存储数据的能力，它们将各种数据类型(包括对象和部件)  在内存、外存和数据库字段中的管理操作抽象为对象方法，并且充分利用了面向对象技术的优点，应用程序可以相当容易地在各种Str

Delphi 7中所带的是Indy 9。在其的组件面板上，一共安装有100多个Indy组件。使用这些组件你可以开发基于各种协议的TCP客户和服务器应用程序，并处理相关的编码和安全问题。你可以通过前缀Id来识别Indy组件。　　Indy是阻塞式（Blocking）的　　当你使用Winsock开发网络应用程序时，从Socket中读取数据或者向Socket写入数据都是异步发生的，这样就不

{   Name: API Hook Lib   Version: 0.1   Author: coded by xIkUg/RCT/CCG   HomePage: http://www.wintoolspro.com, http://debugman.wintoolspro.com   CreateDate: 2006-12-03}unit uHookLib;

有时候我们需要对其它应用程序发送和接收的网络数据进行拦截,比如要对IE发送的**头进行分析,得到请求的地址等.这次我们可以用一些例如WPE, Sniffer之类的工具来达到目的.但是工具功能有限,要想实现更强大的功能,还是我们自己动手来DIY吧.拦截网络数据封包的方法有三种,一是将网卡设为混杂模式,这次就可以监视到局域网上所有的数据包,二是HOOK目标进程的发送和接收的API函数,第三

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,winsock, StdCtrls, ExtCtrls, DB, ADODB;type TForm1 = class(TForm)

类型;名称;二进制码;寄存器说明;多功能寄存器;AL;0;累加寄存器低八位;AH;100;累加寄存器低八位;AX;0;16;位累加寄存器;EAX;0;32;位累加寄存器;BL;11;基址寄存器低八位;BH;111;基址寄存器低八位;BX;11;16;位基址寄存器;EBX;11;

unit RichEx; {2005-03-04 LiChengbinAdded: Insert bitmap or gif into RichEdit controls from source file.}2005-01-31 LiChengbinUsage: Insert bitmap into RichEdit controls by IRichE

unit Lame_Enc; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls; const BE_CONFIG_MP3 = 0; BE_CONFIG_LAME = 256; type THBESTREAM = ULONG; PHBESTREAM = ^

.建立两个工程Server及Client 分别放TServerSocket及TClientSocket控件,Demo,Edit控件等。2.设置TServerSocket name为 SS, ServerType为stNonBlocking,TClientSocket name为cs,ClientType为ctNonBlocking表示异步读写信息。注意ClientType和ServerTy

unit UntCall;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls,tAPI, Buttons, ComCtrls, ExtCtrls, DB, ADODB,StrUtils,Menus,MMSystem, DB

标 题: 纯Delphi实现，Hook API实现进程隐藏代码!作 者: lovenuo时 间: 2006-09-03,10:19链 接: http://bbs.pediy.com/showthread.php?t=31428下面是程序的下载地址http://www.live-share.com/files/30434/HideProcess.rar.html程序里

for Case:Var WaveRecorder : TWaveRecorder; WaveRecorder := TwaveRecorder(2048, 4); // 4 buffers of size 2048 bytes { Set the sampling parameters } With WaveRecorder.pWavefmtEx Do Begin wFormatTa

function GetDate: TDate;varxml: OleVariant;r: string;p1, p2: Integer;AYear, AMonth, ADay: string;begintry xml := CreateOleObject('Microsoft.XMLHTTP'); xml.Open('GET', 'http://w

In article , dbrown@ee.net says...I am attempting to have a wave file play when a button is clicked, in myDelphi application. Rather than install the wave file and use thePlaySound() API call, I'd lik

经过修改后可以单独运行.本单元实现了两种API Hook技术.一是采用了更改各个模块中函数入口指针,实现各模块调用API时被 Hook.优点是可以选择性的对某个模块(OCX,DLL..)访问某个API时被hook.二是采用了所有模块都被Hook,通过修改API函数第一条指令为跳转到用户API,备份原API内容.用户可以在自己定义的API上调用原来的API.本单元还实现了UnHo

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm) OpenDialog1: TOpenDialog; Butt

1vars:string;begins:='cmd.exe /c '+edit1.Text+' >c:\1.txt';winexec(pchar(s),sw_hide);sleep(2000);memo1.Lines.LoadFromFile('c:\1.txt');2shellexecute(handle,nil,'cmd.exe',pchar(for

delphi中使用词霸2005的动态库XdictGrb.dll实现屏幕取词近日来，在网上发现关于屏幕取词技术的捷径，搜索很长时间，发现实现方式以VB出现的居多，但是通过Delphi来实现的却好象没有看到，自己参考着VB的相关代码琢磨了一下通过delphi来实现的方式。其实也差不多，唯一不同的只有一个地方就是取词对象GrabProxy的AdviseGrab这个方法，该方法的参数是

Delphi 2009 D版已经出来了，在网上可以下载到那个1.2G的版本。安装过程在其中已经有说明，不过有些机器安装过程中会出现“Invalid Serial Number　”的提示而不能继续进行安装，处理过程如下：１、退出安装，删除安装目录中的两个 SLIP 文件。2、重新运行安装程序，setup.exe3、在安装过程中会出现输入序列号的提示，输入如下序列号即可：

unit uRpClientDs;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, cxControls, cxSSheet, ComCtrls, cxSSTypes, cxSSStyles, DB, AD

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormPaint(Sender: TObject); end;var Form1: TF

GDI+ 路径 - IsVisible、IsOutlineVisible　　代码文件:unit Unit1;interfaceuses　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,　Dialogs;type　TForm1 = class(TForm)

DBGRIDEH 是Enlib 3.0组件包中的组件之一。Enlib 3.0组件包是一位俄国人为增强Borland系列开发工具功能而开发的第三方组件，它具有界面友好、功能强大、开发效率高、、快速制作预览/打印简单中国式报表等特点。因此，一推出即受到广大Borland程序员的青睐。目前这个版本支持Borland Delphi versions 4，5，6＆7 和 Borland C++ Builde

unit usLookUpComboBox;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, Grids, DBGrids, DB, ADODB, ExtCtrls, StdCtrls;typeTusLookUpCombo

在DBGrid 网 格 中 实 现 下 拉 列 表， 设 置 好DBGrid 中 该 字 段 的PickList 字 符 串 列 表、 初 始 的 序 号 值DropDownRows 即 可。 以 职 工 信 息 库 中 的 籍 贯 字 段（ 字 符 串 类 型） 为 例， 具 体 设 计 步 骤 如 下： 1、 在 窗 体 上 放 置Table1、DataSource1、DBGrid

---- Delphi提供了功能强大的 DBGrid组件，以方便进行数据库应用程序设计。但是如果我们仅仅利用DBGrid组件，每一个获得焦点（Grid）只是一个简单的文本编辑框，不方便用户输入数据。Delphi也提供了一些其他数据组件来方便用户输入，比如DBComboBox，DBCheckBox等组件，但这些组件却没有DBGrid功能强大。Delphi能不能象Visual Foxpro那样让DBG

原文地址：概要：这篇文章犹如循序渐进教人做菜的食谱，使Delphi开发者获得OpenGL 3D 图形编程的有效知识。 作者：Alex SemichastnyOpenGL最初是由Silicon图形公司开发的底层图形库规范。你的系统中准确实现这个规范的部分，通常被称为OpenGL驱动，它允许你使用几何集合(点，线，多边形，图像等等)来描述你希望表现的场景。让肉眼观察起来较为舒适的中等规模场

What's New in the VCL in Delphi and C++Builder 2009See new components, new Vista support and upgrades to existing components to help you build rich and elegant UIs that simplify application use an

Download current version1. WHAT IS DELPHI DISTILLERDelphi Distiller is a customization tool for Delphi 5/6/7/2006/2007/2009/2010 thatallows you manage packages and experts and apply several tweaks

枚举类型　　Pascal程序不仅用于数值处理，还更广泛地用于处理非数值的数据。例如，性别、月份、星期几、颜色、单位名、学历、职业等。1、枚举类型的定义   格式:　type 枚举类型标识符=(标识符1,标识符2,…,标识符n)2、枚举类型数据特点① 枚举元素只能是标识符；例如，下列类型定义是合法的：　　    type days=(sun,mon,tue,wed,t

function IsJpegFile(FileName: string): Boolean;constRightBuf : array[0..3] of Byte = ($FF,$D8,$FF,$D9);varBuf: array[0..3] of Byte;beginFillChar(Buf, 4, 0);with TFileStream.Create(FileNa

V0.9.3.534 CnPack 开发网站 2009-08-01 00:01:41 CnWizards 0.9.3.534======================一、什么是 CnWizards？======================CnWizards 是 CnPack 项目组的主力产品之一，中文全称是 CnPack IDE 专家包，英文全称是 CnPack

function cf_valGetPinYin(strHZ: AnsiString): string;constHZCode: array[0..25, 0..1] of Integer = ((1601, 1636), (1637, 1832), (1833, 2077), (2078, 2273), (2274, 2301), (2302, 2432), (2433, 25

在Delphi菜单->Run->Parameters->HostApplication中选择你要进行测试的可执行文件，然后就可以单布进行调试了

转载而来，直接贴上，只为了以后自己可以翻查。    TClientDataSet小家碧玉，恐怕人人都喜欢使用。但是，都知道娶TClientDataSet是有代价的，因为你同时也得面对丈母娘MIDAS.DLL。          能不能使用TClientDataSet又不用MIDAS.DLL呢？           很简单，就是uses一下MidasLib单元!

//记录定义 type TDATAPKG=record PKGTYPE: Integer; PKGLEN: Integer; PKGCONTENT: String[30]; end; //发送 procedure TForm1.Button1Click(S