摘要： 一句话: 用 CompareMem 对比内存即可. {对比静态数组} procedure TForm1.Button1Click(Sender: TObject); var arr1: array[0..3] of AnsiChar; arr2: array[0..3] of Byte; begin arr1[0] := 'A'; arr1[1] := 'B'; arr1[2] ... 阅读全文

摘要： Windows 编程 | 学习 Message | 多线程编程 | 内存管理 | 内存函数 | 钩子函数 | 初学汇编 | 算法与数据结构 | 资源文件 | 光标相关函数 | WinAPI 字符及字符串函数 | 再学 GDI+ | 用 GDI 操作 EMF 文件 | Delphi 的绘图功能 | 理解类 | TStringGrid | TMainMenu... 阅读全文

摘要： 问题来源: http://www.cnblogs.com/del/archive/2009/03/12/1409708.html#1475240 本例效果图: 自定义的类(TMyButton): unit Unit2; interface uses Windows, Messages, Classes, Graphics, StdCtrls; type TMyButton ... 阅读全文

摘要： 问题来源: http://www.cnblogs.com/del/archive/2008/05/26/1207811.html#1475006 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Di... 阅读全文

摘要： 借助 TWebBrowser 可以把软件做的更漂亮、更灵活, 很多软件已经或者早就这样做了. 尽管 HTML DOM 内容繁杂(涉及到 HTML、JavaScript、CSS), 但也都属于 TWebBrowser 的功能范围. 使用 TWebBrowser 时, 如果配合上 MSHTML, 将会有很好的代码提示; 不然也可以, 就是写代码困难. HTML DOM 中的一切都是源于一个叫... 阅读全文

摘要： //获取程序参数 //可从 Project -> Options -> Debugger -> Parameters 中输入模拟参数, 多个参数可用空格隔开 procedure TForm1.FormCreate(Sender: TObject); var i: Integer; begin for i := 1 to ParamCount do begin ListBox... 阅读全文

摘要： 问题来源: http://www.cnblogs.com/del/archive/2009/03/10/1407220.html#1472741 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, St... 阅读全文

摘要： 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; E... 阅读全文

摘要： 问题来源: http://www.cnblogs.com/del/archive/2009/03/09/1284244.html#1472084 {函数} function ReadFileToHex(FileName: string): string; var b: Byte; begin Result := ''; if not FileExists(FileName) the... 阅读全文

摘要： 问题来源: http://www.cnblogs.com/del/archive/2009/03/09/1234066.html#1471535 本例效果图: 自定义类(TMyShape)单元 : unit Unit2; interface uses Classes, Controls, ExtCtrls; type TMyShape = class(TShape) pr... 阅读全文