如何获取重载函数的地址 - 回复 "flq_00000" 的问题
摘要:问题来源: http://www.cnblogs.com/del/archive/2008/07/30/1039045.html#1272783 在编译器看来, 重载函数根本就是完全不同的几个函数, 当然就会有不同的函数地址; 我们用常规方法获取的地址只是第一种重载的地址. 代码文件: unit Unit1; interface uses Windows, Messages, SysUt...
阅读全文
posted @
2008-07-30 23:46
万一
阅读(4526)
推荐(0) 编辑
在 Delphi 中调用 JavaScript(1) - 回复 "fancy" 的问题
摘要:问题来源: http://www.cnblogs.com/del/archive/2008/07/30/1256669.html#1272732 源码下载: http://files.cnblogs.com/del/Dephi-JavaScript.rar 本例测试用的 Html 文件(包含三个要测试的 Js 函数): 本例效果图: 代码文件: unit Uni...
阅读全文
posted @
2008-07-30 22:06
万一
阅读(10675)
推荐(1) 编辑
根据窗口句柄获取所在程序路径 - 回复 "Haiwen" 的问题
摘要:问题来源: http://www.cnblogs.com/del/archive/2008/07/30/1255869.html#1272342 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dia...
阅读全文
posted @
2008-07-30 17:35
万一
阅读(8716)
推荐(0) 编辑
下载并显示网上的图片之二(假如是 GIF 图片) - 回复 "fancy" 的问题
摘要:问题来源: http://www.cnblogs.com/del/archive/2008/07/29/1255817.html#1271328 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dia...
阅读全文
posted @
2008-07-29 20:15
万一
阅读(3337)
推荐(0) 编辑
下载并显示网上的图片 - 回复 "fancy" 的问题
摘要:问题来源: http://www.cnblogs.com/del/archive/2008/07/29/1254211.html#1271136 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dia...
阅读全文
posted @
2008-07-29 18:13
万一
阅读(4073)
推荐(0) 编辑
复杂的结构化存取(二)
摘要:本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; B...
阅读全文
posted @
2008-07-27 23:55
万一
阅读(5817)
推荐(0) 编辑
复杂的结构化存取(一)
摘要:之所以说复杂, 就是区别与以前谈到的 结构化文件存取; 这种复杂的结构化文件也有叫做"复合文档". 有些文档不是结构化的, 譬如记事本文件; 结构化的档可以分为以下几类: 标准结构化文档、自定义结构化文档(譬如 bmp 文件)和复合文档. 这里要谈到的结构化储存(复合文档)是由 Windows 系统通过 COM 提供的, 它能完成像 Windows 目录结构一样复杂的文件结构的存取; 提示一下...
阅读全文
posted @
2008-07-27 10:01
万一
阅读(10987)
推荐(2) 编辑
启动控制面板各窗口
摘要:首先复习怎样调用外部程序: Delphi 运行外部程序是使用 Windows.WinExec 或 ShellAPI.ShellExecute, 譬如: WinExec('notepad.exe', SW_NORMAL); {打开记事本} WinExec('regedit.exe', SW_NORMAL); {打开注册表编辑器} DLL 文件与 EXE 文件的主要区别就是 EXE 可以直接...
阅读全文
posted @
2008-07-26 21:23
万一
阅读(3297)
推荐(0) 编辑
借用批处理文件打开网站
摘要:1、新建个文本文件 2、譬如输入: @start iexplore.exe del.cnblogs.com 3、保存为 *.bat(保存时从保存类型选择"所有文件"), 譬如保存为 abc.bat 4、运行这个 abc.bat 文件
阅读全文
posted @
2008-07-26 17:14
万一
阅读(3946)
推荐(0) 编辑
再学 GDI+[103]: TGPImage(23) - 提取 GIF 动画的每一帧
摘要:本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; L...
阅读全文
posted @
2008-07-16 13:07
万一
阅读(5780)
推荐(0) 编辑
使用钩子函数[6] - 数据传递
摘要:上一个例子是从 DLL 中接受数据, 那怎么给 DLL 传递数据呢? 还有, 在接受数据时, 让 Timer 一直在那扫描也不是个好办法呀. 本例解决了这些问题(但不知解决了博友 "鹏" 的问题没有?). 为了方便测试, 提供一个源码下载吧: http://www.cnblogs.com/Files/del/MouseHook_2.rar 本例效果图(和上一例是一样的): DLL 文件:...
阅读全文
posted @
2008-07-14 12:45
万一
阅读(7012)
推荐(0) 编辑
使用钩子函数[5] - 数据传递
摘要:前言: 博友 "鹏" 来信探讨关于钩子的问题, 核心困难是: dll 中的数据如何传递出来. 在接下来的两个例子中探讨这个问题. 本例建立一个全局的鼠标钩子, 然后把鼠标的相关信息通过一个自定义的 GetInfo 函数传递给调用钩子的程序. 为了方便测试, 提供一个源码下载吧: http://www.cnblogs.com/Files/del/MouseHook_1.rar 本例效果图:...
阅读全文
posted @
2008-07-14 12:41
万一
阅读(5183)
推荐(0) 编辑
再学 GDI+[102]: TGPImage(22) - 获取所有解码器的详细信息
摘要:本例运行结果: Clsid: {557CF400-1A04-11D3-9A73-0000F81EF32E} FormatID: {B96B3CAB-0728-11D3-9D7B-0000F81EF32E} CodecName: Built-in BMP Codec DllName: FormatDescription: BMP FilenameExtension: *.BMP;*.DIB;*....
阅读全文
posted @
2008-07-10 15:32
万一
阅读(2528)
推荐(0) 编辑
再学 GDI+[101]: TGPImage(21) - 获取所有编码器的详细信息
摘要:本例运行结果: Clsid: {557CF400-1A04-11D3-9A73-0000F81EF32E} FormatID: {B96B3CAB-0728-11D3-9D7B-0000F81EF32E} CodecName: Built-in BMP Codec DllName: FormatDescription: BMP FilenameExtension: *.BMP;*.DIB;*....
阅读全文
posted @
2008-07-10 15:26
万一
阅读(2152)
推荐(0) 编辑
回复 "Timer008" 的一个类型转换的问题 - 不是很典型, 对其他人参考价值不大
摘要:问题来源: http://www.cnblogs.com/del/archive/2008/07/10/1239621.html#1250359 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, St...
阅读全文
posted @
2008-07-10 10:51
万一
阅读(1480)
推荐(0) 编辑
获取多边形面积的函数 - 回复 "dacsd" 的问题
摘要:问题来源: http://www.cnblogs.com/del/archive/2008/07/09/1237697.html#1250073 我曾经傻呵呵地这样做过: http://www.cnblogs.com/del/archive/2008/07/08/1238238.html#1249117 代码文件: unit Unit1; interface uses Windows...
阅读全文
posted @
2008-07-10 01:01
万一
阅读(2846)
推荐(0) 编辑
一个定时器相关的简单例子 - 回复 "Timer008" 的问题
摘要:问题来源: http://www.cnblogs.com/del/archive/2008/07/09/1073218.html#1249648 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Ext...
阅读全文
posted @
2008-07-09 16:36
万一
阅读(2508)
推荐(0) 编辑
再学 GDI+[100]: TGPImage(20) - 替换颜色
摘要:本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, TeCanvas; type TForm1 = class(TForm) ButtonColor1:...
阅读全文
posted @
2008-07-08 15:40
万一
阅读(4023)
推荐(0) 编辑
在 case 语句中使用字符串
摘要:非常遗憾 Delphi 的 case 语句不支持字符串, 但我觉得这也可能是基于效率的考量; 如果非要在 case 中使用字符串, 也不是不可以变通, 这里提供了五种方法. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls...
阅读全文
posted @
2008-07-08 03:46
万一
阅读(14664)
推荐(0) 编辑
枚举当前所有的 IE 窗口 - 回复 "混岗" 的问题
摘要:问题来源: http://www.cnblogs.com/del/archive/2008/02/28/1085432.html#1247615 致 "混岗" 同学: 你同时提到 IE 中的 "输入框", 没有明白你的意思; 这个例子只是找顶层窗口, IE 的 "输入框" 是 IE 窗口的子窗口, 需要在此基础上继续枚举子窗口. 本例效果图(测试时, 我打开了: 搜狐、谷歌和我的博客): ...
阅读全文
posted @
2008-07-07 23:16
万一
阅读(3085)
推荐(0) 编辑
再学 GDI+[99]: TGPImage(19) - 把图像转存为其他格式
摘要:本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) OpenDialog1: ...
阅读全文
posted @
2008-07-07 18:56
万一
阅读(6142)
推荐(0) 编辑
再学 GDI+[98]: TGPImage(18) - 获取 GDI+ 图像格式对应的 GUID
摘要:和在 Net 中不同的是, 在具体指定图像格式时, 这里常常需要的不是格式名称, 而是格式的 GUID; 知道了格式名称, 用 GetEncoderClsid 函数可以获取格式的 GUID; GetEncoderClsid 函数来自 GDIPUTIL 单元, 本例并没有用到前面一直不可或缺的 GDIPOBJ、GDIPAPI 单元. 如果要获取 image/bmp、image/jpeg、image...
阅读全文
posted @
2008-07-07 10:51
万一
阅读(2985)
推荐(0) 编辑
再学 GDI+[97]: TGPImage(17) - 获取 GDI+ 所支持的可编码、可解码的图像格式
摘要:其实这和 TGPImage 是没有关系的. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) M...
阅读全文
posted @
2008-07-07 10:16
万一
阅读(2518)
推荐(0) 编辑
再学 GDI+[96]: TGPImage(16) - 所谓剪取颜色
摘要:{红色增加绿色的 m 倍、蓝色的 n 倍} ColorMatrix: TColorMatrix = ( (1.0, 0.0, 0.0, 0.0, 0.0), (m, 1.0, 0.0, 0.0, 0.0), (n, 0.0, 1.0, 0.0, 0.0), (0.0, 0.0, 0.0, 1.0, 0.0), (0.0, 0.0, 0.0, 0.0, 1.0)); ...
阅读全文
posted @
2008-07-07 00:12
万一
阅读(2106)
推荐(0) 编辑
再学 GDI+[95]: TGPImage(15) - 颜色的旋转变换
摘要:我通过做此例同时证实了 GDI+ 可以直接显示 png、gif、tif 格式的透明图片. //红色与绿色绕蓝色旋转(r 是弧度) ColorMatrix: TColorMatrix = ( (Cos(r), Sin(r), 0.0, 0.0, 0.0), (-Sin(r), Cos(r), 0.0, 0.0, 0.0), (0.0, 0.0, 1.0, ...
阅读全文
posted @
2008-07-06 21:53
万一
阅读(2857)
推荐(0) 编辑
再学 GDI+[94]: TGPImage(14) - 增减图像的红、绿、蓝三色的成分
摘要:本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) TrackBar1: TT...
阅读全文
posted @
2008-07-06 00:09
万一
阅读(2094)
推荐(0) 编辑
再学 GDI+[93]: TGPImage(13) - 调整图像红、绿、蓝三原色及透明度
摘要:本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) TrackBar1: TT...
阅读全文
posted @
2008-07-05 20:54
万一
阅读(2822)
推荐(0) 编辑
再学 GDI+[92]: TGPImage(12) - 调整图像透明度
摘要:本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) TrackBar1: TT...
阅读全文
posted @
2008-07-05 00:22
万一
阅读(4314)
推荐(0) 编辑
再学 GDI+[91]: TGPImage(11) - 转灰度图像
摘要:本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) CheckBox1: TCheckBox; ...
阅读全文
posted @
2008-07-04 23:45
万一
阅读(2690)
推荐(0) 编辑
给 Memo 排序的函数
摘要:本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; Butto...
阅读全文
posted @
2008-07-04 16:50
万一
阅读(3875)
推荐(0) 编辑
再学 GDI+[90]: TGPImage(10) - 获取图像的调色板信息
摘要:本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids; type TForm1 = class(TForm) DrawGrid1: TDraw...
阅读全文
posted @
2008-07-04 02:11
万一
阅读(3111)
推荐(0) 编辑
再学 GDI+[89]: TGPImage(9) - 图像缩放时的质量(算法)
摘要:本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) ListBox1: TListBox; ...
阅读全文
posted @
2008-07-03 11:41
万一
阅读(6027)
推荐(0) 编辑
再学 GDI+[88]: TGPImage(8) - 放大镜
摘要:本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) CheckBox1: TCheckBox; ...
阅读全文
posted @
2008-07-03 00:30
万一
阅读(3707)
推荐(0) 编辑
再学 GDI+[87]: TGPImage(7) - 调整图像大小
摘要:本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObj...
阅读全文
posted @
2008-07-02 18:33
万一
阅读(4902)
推荐(0) 编辑
再学 GDI+[86]: TGPImage(6) - 拖动图像
摘要:本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObj...
阅读全文
posted @
2008-07-02 15:50
万一
阅读(4373)
推荐(0) 编辑
删除或添加最大化、最小化按钮 - 回复 "Tommy the CAT" 的问题
摘要:问题来源: http://www.cnblogs.com/del/archive/2008/07/02/1202871.html#1242042 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dia...
阅读全文
posted @
2008-07-02 11:58
万一
阅读(2313)
推荐(0) 编辑
一个用 GDI+ 给图片添加花边的例子 - 给 "sky123" 做的
摘要:按 "sky123" 的样图要求, 花边必须是透空的, 最好使用图元文件; 本例没有做完保存功能, 也没有实现整个图片的调整功能. 因为有测试图片, 给个源码下载吧: http://www.cnblogs.com/Files/del/sky123.rar 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysU...
阅读全文
posted @
2008-07-01 17:31
万一
阅读(4793)
推荐(0) 编辑
再学 GDI+[85]: TGPImage(5) - RotateFlip - 旋转与镜像
摘要:本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) ListBox1: TListBox; ...
阅读全文
posted @
2008-07-01 16:21
万一
阅读(4789)
推荐(0) 编辑
再学 GDI+[84]: TGPImage(4) - 把图像显示在指定的矩形中
摘要:本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormPaint(Sender: TObje...
阅读全文
posted @
2008-07-01 15:47
万一
阅读(3301)
推荐(0) 编辑
再学 GDI+[83]: TGPImage(3) - 平行四边形变换
摘要:本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormPaint(Sender: TObje...
阅读全文
posted @
2008-07-01 14:48
万一
阅读(2780)
推荐(0) 编辑
再学 GDI+[82]: TGPImage(2) - GetThumbnailImage - 略缩图
摘要:本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormPaint(Sender: TObje...
阅读全文
posted @
2008-07-01 12:40
万一
阅读(3400)
推荐(0) 编辑
再学 GDI+[81]: TGPImage(1) - 显示图像
摘要:已知 GDI+ 可以支持的图像格式: BMP、JPEG、GIF、TIFF、PNG、ICO、WMF、EMF TGPGraphics.DrawImage 函数有太多重载了, 一起列在这吧: function DrawImage(image: TGPImage; const point: TGPPointF): TStatus; overload; function DrawImage(image...
阅读全文
posted @
2008-07-01 09:54
万一
阅读(5698)
推荐(0) 编辑