![](https://img-blog.csdnimg.cn/20201014180756928.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Delphi(原创)
文章平均质量分 77
dropme
这个作者很懒,什么都没留下…
展开
-
不规则窗体小技巧
1.移动没有标题栏的窗体 在任何控件的OnMouseDown事件中加入以下代码: if (Button = mbLeft) then begin ReleaseCapture; Self.Perform(WM_SYSCOMMAND, $F012, 0); end; 2.创建圆角矩形窗体 procedure TForm1.F原创 2009-08-31 17:52:00 · 681 阅读 · 0 评论 -
ReadDirectoryChangesW的用法
<br />Retrieves information that describes the changes within the specified directory. The function does not report changes to the specified directory itself.<br />To track changes on a volume, see change journals.SyntaxBOOL WINAPI ReadDirectoryChangesW(<b原创 2010-11-26 10:41:00 · 13124 阅读 · 0 评论 -
用金山词霸进行屏幕取词
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, XDICTGRB_TLB;type TForm1 = class(TForm, IXdictGrabSink) procedure原创 2009-09-24 15:22:00 · 3094 阅读 · 0 评论 -
record, packed record和变体记录
//Integer类型刚好是4个字节,ShortInt类型是1个字节,但是Windows中内存是4字节分配, //所以这里其实还是4个字节,用SizeOf可以看到这个record的大小是8字节,这样虽然浪 //费了空间,但是加快了速度(Windows内存分配中的边界对齐原理) TPerson = record Age: Integer; Sex: Shor原创 2009-09-17 16:37:00 · 4048 阅读 · 1 评论 -
WinSock学习笔记6:IOCP完成端口模型
unit Unit1;interfaceuses WinSock2, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type //单IO数据结构 LPER_IO_OPERATION_DATA原创 2009-09-17 11:59:00 · 1324 阅读 · 0 评论 -
Winsock学习笔记5:I/O Overlapped (重叠)模式
unit Unit1;interfaceuses WinSock2, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TWorkThread = class(TThread) priv原创 2009-09-15 17:10:00 · 1225 阅读 · 0 评论 -
WinSock学习笔记4:WSAEventSelect模型
WSAEventSelect类似于WSAAsycnSelect,区别就是当Socket上有“事件”时,传递一个Event而不是Windows消息。unit Unit1;interfaceuses WinSock2, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dia原创 2009-09-10 12:18:00 · 1756 阅读 · 0 评论 -
WinSock学习笔记3:Select模型
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, WinSock, ExtCtrls;type TWorkThread = class(TThread) pr原创 2009-09-09 11:21:00 · 1675 阅读 · 0 评论 -
Winsock学习笔记2:WSAAsyncSelect模型
共有五种类型的套接字I/O模型,可让Winsock应用程序对I/O进行管理,它们包括: select(选择)、WSAAsyncSelect(异步选择)、WSAEventSelect(事件选择)、overlapped(重叠)以及 completion port(完成端口)。WSAAsyncSelect(异步选择)是最简单也最好理解的模式,因为用这个模式你都不需要明白多线程的编程知识~原创 2009-09-08 16:18:00 · 2393 阅读 · 1 评论 -
Winsock学习笔记1:Winsock基本函数
var WSData: WSAData; ServerSocket: TSocket; ClientSocket: TSocket; LocalAddr: TSockAddrIn; ClientSocketAddr: TSockAddrIn; ClientSocketAddrLen: Integer; SocketMode: Integer;b原创 2009-09-08 15:38:00 · 1445 阅读 · 0 评论 -
Delphi颜色的表示
//全以红色举例://1. RGB 模式:Self.Color := $0000ff; //不过和HTML、PhotoShop、FireWorks中的 #ff0000 是完全反的,应该叫 BGR。//2. RGB 分值,譬如:Self.Color := RGB(255,0,0);//3. Delphi 中的标准模式:Self.Color := $000000ff;//其中低3位字节原创 2009-08-31 18:02:00 · 3210 阅读 · 0 评论 -
判断Webbrowser是否加载完成
<br />var Form1: TForm1; glpDisp: IDispatch = nil;implementation{$R *.dfm}procedure TForm1.EmbeddedWB1DocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant);begin if (glpDisp <> nil) and (glpDisp = pDisp) then转载 2011-04-02 09:35:00 · 4714 阅读 · 0 评论