Delphi Delphi是美国Borland(宝兰)公司开发的工作在Windows平台下的开发工具,它的前身是在DOS下的产品Borland Turbo Pascal。Delphi是一个集成开发环境(IDE),使用的是由传统Pascal语言发展而来的Object Pascal语言。
从网上看到《Delphi API HOOK完全说明》这篇文章,基本上都是大家转来转去,原文出处我已经找不到了。这篇文章写的很不错,但最后部分“PermuteFunction 的终极版本”描述的不太清楚,完全按照该文章代码执行,是不行的。可能是作者故意这样做的?本文最后提供修正后的下载地址。原文如下:一、关于API Hook1.什么是API Hook不知道大家是否还记得,在DO
时间:2021-05-21
从网上看到《Delphi API HOOK完全说明》这篇文章,基本上都是大家转来转去,原文出处我已经找不到了。 这篇文章写的很不错,但最后部分“PermuteFunction 的终极版本”描述的不太清楚,完全按照该文章代码执行,是不行的。需要修改mess.pas中代码才行。其实文中提到的一个结构,代码中并没有使用typePIMAGE_IMPORT_DESCRIPTOR = ^IMA
时间:2021-05-21
ffmpeg 是一套强大的开源的多媒体库 一般都是用 c/c++ 调用, 抽空研究了一下该库的最新版 ,把部分api 翻译成了dephi版的 记录一下 地址 ffmpegvcl.zip
时间:2020-11-01
1 mov dst, src dst是目的操作数,src是源操作数,指令实现的功能是:将源操作数送到目的操作数中,即:(dst) <--(src) 1.dst和src类型必须匹配,即必须同为字节
时间:2020-11-01
有三个API函数可以运行可执行文件WinExec、ShellExecute和CreateProcess。 1.CreateProcess因为使用复杂,比较少用。 2.WinExec主要运行EXE文件。如:WinExec('Notepad.exe Readme.txt', SW_SHOW); 3.ShellExecute不仅可以运行EXE文件,也可以运行已经关联的文件。 首先必须引用shellapi
时间:2020-08-13
附带通用控件安装方法: ---------- 基本安装 1、对于单个控件,Componet-->install component..-->PAS或DCU文件-->install; 2、对于带*.dpk文件的控件包,File-->Open(下拉列表框中选*.dpk)-->install即可; 3、对于带*.bpl文件的控件包,Install Packages-->Add-->bpl文件名即可; 4
时间:2020-08-13
type TRec=Record msg:string; pic:TMemoryStream; end; procedure TForm2.BitBtn1Click(Sender: TObject); var ms:TMemoryStream; Rec1,Rec2:TRec; cc:tmemorystream; jpg:TJPEGImage; begin R
时间:2020-08-13
program Project1; { Types and Structures Definition } type WNDCLASSEX = packed record cbSize: LongWord; style: LongWord; lpfnWndProc: Pointer; cbClsExtra: Integer; cbWndExtra: In
时间:2020-08-13
delphi中经常见到以下两种定义
Type
TMouseProc = procedure (X,Y:integer);
TMouseEvent = procedure (X,Y:integer) of Object;
两者样子差不多但实际意义却不一样,
TMouseProc只是单一的函数指针类型;
TMouseEvent是对象的函数指针,也就是对象/类的函数/方法
区
时间:2020-08-13
Windows 2000/XP和2003等支持一种叫做"服务程序"的东西.程序作为服务启动有以下几个好处: (1)不用登陆进系统即可运行. (2)具有SYSTEM特权.所以你在进程管理器里面是无法结束它的. 笔者在2003年为一公司开发机顶盒项目的时候,曾经写过课件上传和媒体服务,下面就介绍一下如何用Delphi7创建一个Service程序. 运行Delphi7,选
时间:2020-08-13
方法一: 1.调试delphi 写的服务程序,有这么一个办法。原来每次都是用attach to process方法,很麻烦。并且按照服务线程的执行线路,可能会停不到想要的断点。笨办法是,在procedure TsvcFrm.ServiceExecute(Sender: TService);中想要下断的语句前加个人定胜天的sleep(20000),但实际上这种办法是主观臆测的。可行,没问题。记得大学
时间:2020-08-13
一个比较完整的Inno Setup 安装脚本,增加了对ini文件设置的功能,一个安装包常用的功能都具备了。 [Setup] ; 注: AppId的值为单独标识该应用程序。 ; 不要为其他安装程序使用相同的AppId值。 ; (生成新的GUID,点击 工具|在IDE中生成GUID。) AppId={{A9861883-31C5-4324-BD9A-DC3271EEB675} ;程序名 AppName
时间:2020-08-13
在Delphi自带的Indy控件中其实是提供了MD2,MD4,MD5对象的,我们可以直接使用它们来完成MD5的签名算法。而不需要再去找其它的DLL或是Pas了。 在Uses单元中引用 IdHashMessageDigest,IdGlobal, IdHash 单元,再写如下代码即可以达到MD5的实现。 示例代码 procedure TForm1.Button1Click(Sender: TObjec
时间:2020-08-13
在Delphi 7下要制作系统托盘,只能制作一个比较简单的系统托盘,因为ShellAPI文件定义的TNotifyIconData结构体是比较早的版本。定义如下: 1 2 3 4 5 6 7 8 9 _NOTIFYICONDATAA = record cbSize: DWORD; Wnd: HWND; uID: UINT; uFlags: UINT; uCallback
时间:2020-08-13
Delphi For iOS开发指南(18):让Delphi XE4开发的iOS应用显示为中文名称 有好些个D友问我,如何让Delphi XE4开发的iOS应用显示为中文名称, 我在想,难道EMB在XE4的iOS开发上没有很好的支持中文么? 就像我们在XE4运行IOS应用程序的时候, XE4会通过PAServer将编译好的APP传输到Mac下的这个目录里, 目录名是根据你Windows的用
时间:2020-08-13
自从Delphi2010后,Delphi中的Rtti功能得到了增强。我们终于可以不用先RegisterClass,再GetClass获取类的信息了。而只是简单的通过TRttiContext.GetType或FindType来获取类,进而创建对象。虽然跟C#中的Rtti相比,还有些差距,不过这已经算是很大的进步了,希望Delphi越来越强,书归正传。最近在研究Delphi中增强的Rtti,发现TRt
时间:2020-08-13
概述: ^: 指针 @: 取址 #: 十进制符 $: 十六进制符 @:取址运算符; var int:integer; p:^integer; begin new(P); int:=24; p:=@int; dispose(P); end; ^:指针的引用解析操作符; var pint:^integer; begin new(pint); show
时间:2020-08-13
转载自: http://www.cnblogs.com/del/archive/2008/01/15/1039998.html 方法来到类中, 以前的特点基本都在; 因为类一般是存在于一个继承链中, 所以就有了一些新的概念, 譬如: 继承、覆盖; 也有了很多新名称, 譬如: 静态方法、虚方法、动态方法、抽象方法、类方法、消息方法. 先从虚方法与动态方法开始吧 //下面的类中就定义了两个虚方法(vi
时间:2020-08-13
Delphi ListView基本用法大全 //增加项或列(字段) ListView1.Clear; ListView1.Columns.Clear; ListView1.Columns.Add; ListView1.Columns.Add; ListView1.Columns.Add; ListView1.Columns.Items[0].Caption:='id'; ListView1.Col
时间:2020-08-13
1.Round(四舍六入五留双) 功能说明:对一个实数进行四舍五入。(按照银行家算法) 例: var i, j: Integer; begin i := Round(1.5); // i等于2 j := Round(2.5); // j等于2 end; 在Delphi中使用Round函数得到的答案有时与我们所预期的会不太一样:采用的是四舍六入
时间:2020-08-13
分类 快捷键 解释 备注 组 件 设 计 类 Escape 选择当前组件容器 Shift + Click 选择多个组件;选择窗体 Tab 选择下一个组件 Shift + Tab 选择上一个组件 方向键 选择此方向的下一个组件 Ctrl + 方向键 将所选组件的位置移动 1 个像素 Shift + 方向键 将所选组件的大小改变 1 个像素 Ctrl + Shift + 方
时间:2020-08-13
转至:http://www.360doc.com/content/11/1118/10/7662927_165405895.shtml http://www.k51.com.cn delphi中WEBBrowser网页JS函数调用delphi函数 1、基本操作 1.1、激活 var doc,url:Olevariant ; begin url:='about:blank' ;//或者一个有实际意义
时间:2020-08-13