随笔分类 - Delphi
用而不学,此最多;借此而学之。
摘要:procedure TForm3.FormCreate(Sender: TObject);type AnsiStringForPage = type AnsiString(950);//代码页var AnsiStr: AnsiStringForPage; i: Integer; functi...
阅读全文
摘要:type PGUID = ^TGUID; TGUID = packed record D1: LongWord; D2: Word; D3: Word; D4: array[0..7] of Byte; class operator Equal(const Left...
阅读全文
摘要:type TActionComponent = class(TObject) public procedure Execute;virtual; end; TStuckPig = class(TActionComponent) public procedure Execut...
阅读全文
摘要:好久没写代码了,更久没上博客园的博客了,无聊写几行试一下新语法。 1 unit Main; 2 3 interface 4 5 uses 6 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, Sy...
阅读全文
摘要:我一直以为,不同语言决定函数的调用约定,比如,C++使用cdecl,Delphi使用register,因为在查看Delphi帮助<Calling conventions>时,以及经常看到"各种语言中调用子程序的约定是不同的"这样的话,就武断的认为调用约定由语言决定,而API和DLL导出函数都是Stdcall约定。这就是我的错误。现在,我认为约定是具体函数决定的。就如同DLL导出函数我们...
阅读全文
摘要:以下摘自 <<Essential Pascal>> Delphi 用堆的形式来给对象,字符串,动态数组,分配内存;那些有特殊用途的动态存储空间(用GetMem获取)也是用堆实现的。 Delphi 用栈来存储参数和返回值,本地例程变量等等。对 Windows API 调用也要用到栈。 Windows 应用程序可以保留大量的内存空间以备建栈之用。在 Delphi project...
阅读全文
摘要:先声明一个指向调用函数的变量,如下 :var MyTextOut:function (DC: HDC; X, Y: Integer; Str: PChar; Count: Integer): BOOL; stdcall; MyTextOutA:function (DC: HDC; X, Y: Integer; Str: PAnsiChar; Count: Integer): BOOL; stdca...
阅读全文
摘要:Heap:堆,Heap上分配的内存,系统不释放,哪怕程序退出,那一块内存还是在那里Stack:栈或堆栈,Stack上分配的内存系统自动释放以下摘自 <<Essential Pascal>> Delphi 用堆的形式来给对象,字符串,动态数组,分配内存;那些有特殊用途的动态存储空间(用GetMem获取)也是用堆实现的。 Delphi 用栈来存储参数和返回值,本地例程变量...
阅读全文
摘要:下面是一个典型的应用程序的Delphi工程文件,我们注意到一开始就有一个对Application对象的Initialize方法的引用,我们的分析也就从这里开始:program Project1;uses Forms, Unit1 in 'Unit1.pas' {Form1};{$R *.res}begin Application.Initialize; Application.CreateForm...
阅读全文
摘要:Delphi单元文件详解作者网站:http://asp.itdrp.com/hottey昨天敲了半天才出来的,想组成一个系列.供新手学习一下!(虽说我也是新手^_^)Delphi单元文件1.库单元文件头:其中声明了库单元的名字.2.Interface部分:由保留字interface开始,结束于保留字implementation,它用来声明引用的单元,常量,数据类型,变量,过程和函数.在Interf...
阅读全文
摘要:问题:分享:全屏DirectX程序下弹出摸态窗口代码 ( 积分:0, 回复:10, 阅读:1082 )分类:系统相关 ( 版主:luyear, zyy04 ) 来自:tt.t, 时间:2003-8-26 21:05:00, ID:2135796 [显示:小字体 | 大字体] http://www.delphibbs.com/delphibbs/dispq.asp?lid=2135796一直有人问如...
阅读全文
摘要:1.参考、学习《Micrsoft 的Hook专题》2.重点内容:(1)钩子实际上是一个处理消息的程序段,通过系统调用,把它挂入系统。每当特定的消息发出,在没有到达目的窗口前,钩子程序就先捕获该消息,亦即钩子函数先得到控制权。这时钩子函数即可以加工处理(改变)该消息,也可以不作处理而继续传递该消息,还可以强制结束消息的传递。 (a)钩子是程序段(处理消息的程序段);(b)钩子由操作系统挂入操作系统中...
阅读全文
摘要:function CompareText(const S1, S2: string): Integer; 以前都是用=,重来不用函数,也许用函数可读性强?可代码重用性(不同语言)是否就不强了呢?我的意思是不能直接复制代码直接使用?不过现在打字的时候,又感觉要想在不同语言中重用代码好像意义不大,一般都需要重写充分利用语言特性。此函数在字符串完全相等时,就返回0,逐个字符比较两个字符串(不区分大小写)...
阅读全文
摘要:ExtractFileDrive :返回完整文件名中的驱动器,如"C:" ExtractFilePath:返回完整文件名中的路径,最后带“/”,如"C:\test\"ExtractFileDir:返回完整文件名中的路径,最后不带“/” ,如"C:\test"ExtractFileName:返回完整文件名中的文件名称 (带扩展名),如"mytest.doc"ExtractFileExt 返回完整文件...
阅读全文
摘要:http://community.csdn.net/Expert/TopicView3.asp?id=5320418 Returns a specified parameter from the command-line.返回当前命令行的详细参数信息UnitSystemCategorycommand line utilitiesDelphi syntax:function ParamStr(Ind...
阅读全文
摘要:KeyLife富翁笔记 作者: HongYuan标题: 开放式数组参数,我学习 关键字: 动态数组,开放式数组参数 分类: 个人专区 密级: 公开 (评分: , 回复: 0, 阅读: 603) »» ...
阅读全文
摘要:KeyLife富翁笔记 作者: HongYuan标题: 将窗体嵌入其它窗体Client区,仍然能使用VCLSKIN控件的方法 关键字: VCLSKIN 分类: 个人专区 密级: 公开 (评分: , 回复: 0, 阅读: 506) »» ...
阅读全文
摘要:KeyLife富翁笔记 作者: HongYuan标题: 有关 TDataLink 的说明文件 关键字: TDataLink 分类: 开发经验 密级: 公开 (评分: , 回复: 0, 阅读: 427) »» ...
阅读全文
摘要:KeyLife富翁笔记 作者: HongYuan标题: 如何使用TdsSideBar控件得到XP风格的GROUP,2000风格的ITEM 关键字: 分类: 个人专区 密级: 公开 (评分: , 回复: 0, 阅读: 438) »» ...
阅读全文
摘要:KeyLife富翁笔记 作者: HongYuan标题: 如何调用SQL-DMO读取SQL Server服务器列表及指定服务器的数据库列表 关键字: SQL-DMO 分类: 个人专区 密级: 公开 (评分: , 回复: 0, 阅读: 533) »» ...
阅读全文
浙公网安备 33010602011771号