Dcdu-优快云博客

转载 CallNextHookEx

CallNextHookEx　　Winapi:调用下一个钩子　　CallNextHookEx(　　hhk: HHOOK; {当前钩子的句柄}　　nCode: Integer; {钩子代码; 就是给下一个钩子要交待的}　　wParam: WPARAM; {要传递的参数; 由钩子类型决定是什么参数}　　lParam: LPARAM {要传递的参数; 由钩子类型决定是什么参数}　　): LRESULT;

2008-12-10 14:18:00 1624

原创 mORMot 学习记录2 -- TSQLRestStorageInMemory数据库

使用TSQLRestStorageInMemory 创建数据库的数据，增加10万数量大概400毫秒测试环境： delphi 10.2 moRMOT ： 1.18.2975unit Unit2;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, S

2017-07-02 00:57:56 2779

原创 mORMot 学习记录1 -- mORMot下载

mORMot 的下载页面：https://synopse.info/fossil/wiki?name=Downloads 内有如下源代码下载地址mORMot的基础源码包： https://synopse.info/files/mORMot.7z下面2个包不知道是什么包，有知道的请告知Big Tablefrom https://synopse.info/files/S

2017-06-29 21:19:08 4307

原创 TextBox 学习

学习j2me 的高级UI--TextBox import javax.microedition.midlet.MIDlet;import javax.microedition.midlet.MIDletStateChangeException;import javax.microedition.lcdui.*;public class j2me_TextBox extends MIDl

2010-03-16 22:53:00 738

转载 OSQL 的参数和基本用法

OSQL 用起来就象DOS 命令似的，或着说控制台程序(console application)。只要MS sql server 是完全安装，肯定会包括这个命令的。看看自己的电脑有没有这个工具，只要点start.--> Run--> cmd, 然后输入OSQL ，再按enter键。如果看到返回Error:No User selected . Try ... 这行话，就说明你

2008-12-17 09:05:00 1193

转载基于Delphi的接口编程入门

为什么使用接口？　　举个例子好了：有这样一个卖票服务，电影院可以卖票，歌剧院可以卖票，客运站也可以卖票，那么我们是否需要把电影院、、歌剧院和客运站都设计成一个类架构以提供卖票服务？要知道，连经理人都可以卖票，很显然不适合把经理人也包括到卖票服务的继承架构中，我们需要的只是一个共通的卖票服务。于是，卖票的服务是个接口，电影院、歌剧院

2008-12-16 14:57:00 1082

转载 Delphi接口

第一章在Delphi中使用接口 1.1 定义接口：目的：什么是接口，以及和抽象类的关联以及不同点。抽象类（备注理解接口最简单的方法）永远不能创建一个抽象类的实例；本身不能实现功能，依靠派生类实现；接口

2008-12-16 14:56:00 3670

转载 Delphi 灵活运用接口(interface), 隐藏核心代码, 设计低耦合程序.

2008-12-16 14:53:00 2930

转载 Delphi中Interface接口的使用方

//转自 http://blog.youkuaiyun.com/delphi1234/archive/2008/02/20/2110095.aspx unit Unit1; interface uses Windows, Messages, SysUtils, Variants,

2008-12-16 14:48:00 1416

转载开发虚拟串口驱动程序

虚拟串口就是当本地并没有对应的串口硬件设备，而为应用层提供串口设备一样的系统调用接口，以兼容原本使用本地串口的应用软件的“虚”设备。本文作者给出了一种在Windows平台上实现虚拟串口的方法，由此实现的“串口”具有真实串口完全相同的系统调用接口。在很多应用中需要用到虚拟串口，如在Modem卡出现之前，已经有了接在计算机串口上的外部Modem，而且各种拔号程序也是通过串口与外部Modem通信的

2008-12-10 19:53:00 10601 1

转载 Windows图形驱动级远程屏幕传输的实现

Windows图形驱动级远程屏幕传输的实现2008年04月28日星期一下午 04:35计算机屏幕图像的截取在屏幕的录制、计算机远程控制以及多媒体教学软件中都是关键术，基于Windows操作系统有多种截屏方法，研究的重点集中在如何快速有效的截取DBI（Device-Independent Bitmap）格式的屏幕图形数据。现在商业软件流行的截屏技术主要采取的Api Hook技术，但这种技术一次截

2008-12-10 18:11:00 3496 2

转载 SetWindowsHookEx

SetWindowsHookEx　　HOOK钩子详细介绍　　基本概念　　钩子(Hook)，是Windows消息处理机制的一个平台,应用程序可以在上面设置子程以监视指定窗口的某种消息，而且所监视的窗口可以是其他进程所创建的。当消息到达后，在目标窗口处理函数之前处理它。钩子机制允许应用程序截获处理window消息或特定事件。　　钩子实际上是一个处理消息的程序段，通过系统调用，把它挂入系统。每当特

2008-12-10 14:33:00 3366

原创运用Delphi编写Windows NT中服务程序

--- Windows NT服务程序不同于一般的运行程序，它不需要NT登录进去，只需要开机进入NT系统便可以运行，一般用于系统服务方面的应用，学会编写NT服务程序对网络管理人员而言是非常重要的，Delphi4.0作为一种高效、快速、强大的开发语言，为开发NT服务程序提供了非常便捷的方法，加上其可视化界面以及与数据库的完美结合，使我们开发与数据库有关的NT服务程序变得非常简单，下面以编写一个NT定期

2008-12-10 13:41:00 1001

转载 Delphi的TService的輸入桌面切換（服务程序）

elphi的TService的輸入桌面切換 dfm:object CopyDeskService: TCopyDeskService OldCreateOrder = False OnCreate = ServiceCreate OnDestroy = ServiceDestroy AllowPause = False DisplayName = Copy Desk Service

2008-12-10 13:13:00 2339 1

转载用Delphi创建服务程序

Windows 2000/XP和2003等支持一种叫做/"服务程序/"的东西.程序作为服务启动有以下几个好处:(1)不用登陆进系统即可运行.(2)具有SYSTEM特权.所以你在进程管理器里面是无法结束它的.笔者在2003年为一公司开发机顶盒项目的时候,曾经写过课件上传和媒体服务,下面就介绍一下如何用Delphi7创建一个Service程序.运行Delphi7,选择菜单File-->New-->Ot

2008-12-10 11:58:00 844

转载下载文件

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, IdHTTP,

2008-12-06 17:30:00 557

转载 WindowFromPoint

WindowFromPoint　　函数功能：该函数获得包含指定点的窗口的句柄。　　函数原型：HWND WindowFromPoint（POINT Point）；　　参数：　　Point：指定一个被检测的点的POINT结构。　　返回值S：返回值为包含该点的窗口的句柄。如果包含指定点的窗口不存在，返回值为NULL。如果该点在静态文本控制之上，返回值是在该静态文本控制的下面的窗口。　　备注：Window

2008-12-05 13:12:00 1032

转载 SetWindowsHookEx

2008-12-05 13:10:00 865

转载 CreateRoundRectRgn

CreateRoundRectRgn　　The CreateRoundRectRgn function creates a rectangular region with rounded corners. 　　定义　　HRGN CreateRoundRectRgn(int nLeftRect, int nTopRect, int nRightRect, int nBottomRect, int

2008-12-04 13:28:00 3579

转载 Delphi7对XML的支持分析

elphi7对XML的支持---TXMLDocument类　　 Delphi7 支持对XML文档的操作，可以通过TXMLDocument类来实现对XML文档的读写。可以利用TXMLDocument把XML文档读到内存中，从而可以进行编辑、保存操作。TXMLDocument类是通过DOM(文档对象模型)接口来访问XML文档中的各个元素的。对于DOM接口的实现有多种方式，Delphi支持的方式有：1

2008-12-03 16:28:00 750

转载制作从屏幕右下角逐渐弹出的消息提示框

微软的每一个产品，无论功能还是界面设计都会带给我们一定的惊喜，比如OfficeXP、Office2003、Messenger的界面设计，早已成为众多软件竞相模仿的对象，就拿Messenger来说，我就见过好几套网络视频会议的软件都借鉴了它的界面风格。　　前段时间因为要在原来的软件上增加一个快捷键提示窗体，这个提示窗要求在显示的时候比较醒目美观能引起用户注意，显示后不影响用户操作，能够关掉。很自然的

2008-12-03 14:07:00 1112

转载 CreateWindowEx

CreateWindowEx　　函数功能：该函数创建一个具有扩展风格的重叠式窗口、弹出式窗口或子窗口，其他与 CreateWindow函数相同。关于创建窗口和其他参数的内容，请参看CreateWindowEx。　　函数原型：HWND CreateWindowEx（DWORD dwExStle，LPCTSTR IpClassName，LPCTSTR lpWindowName，DWORD dwStyl

2008-12-03 13:19:00 922

转载深入Delphi编程(OOP)

内容摘要：OOP的英文全称是Object Oriented Programming，翻译过来就是面向对象编程。OOP是一种非常重要的编程思想。也许你会对这种抽象的东西不感兴趣，可是几乎任何一个高手都会告诉你：“语言并不重要，重要的是编程思想。”刚刚接触的Delphi的朋友，可能最感兴趣的就是它丰富、强大的VCL（可视化构件库）。仅仅向窗体上扔几个构件，甚至不用动手写代码，就能很容易地做出一个有实用

2008-12-03 09:51:00 1202

原创 GetKeyState

GetKeyState　　函数功能：该函数检取指定虚拟键的状态。该状态指定此键是UP状态，DOWN状态，还是被触发的（开关每次按下此键时进行切换）。　　函数原型：SHORT GetKeyState（int nVirtKey）；　　函数：　　nVrtKey：定义一虚拟键。若要求的虚拟键是字母或数字（A～Z，a～z或0～9），nVirtKey必须被置为相应字符的ASCII码值，对于其他的键，nVirt

2008-12-02 13:31:00 1003

转载 GetCursorPos

etCursorPos　　函数功能：该函数检取光标的位置，以屏幕坐标表示。　　函数原型：BOOL GetCursorPos（LPPOlNT IpPoint）；　　参数：　　IpPint：POINT结构指针，该结构接收光标的屏幕坐标。　　使用时要先定义一个数据结构： Public Type POINTAPI　　x As Long　　y As Long　　End Type　　例如： dim biao

2008-12-02 13:15:00 653

原创 PtInRect

PtInRect　　［声明］　　Declare Function PtInRect Lib "user32" (lpRect As RECT, pt As POINTAPI) As Long　　［说明］　　这个函数判断指定的点是否位于矩形lpRect内部　　［参数表］　　lpRect --------- RECT，欲检查的矩形　　pt ------------- POINTAPI，欲判断的点　　［

2008-12-02 13:06:00 1050

转载 VCL (三) 属性编辑器

Delphi的属性是一个很有特色的功能，这一特性在C#里得到了很好的继承。对于一个类来说，属性是对类中的数据进行有效修改和访问的特殊接口。在VCL中，被published的属性还有一个特性，就是可以在界面设计过程中对属性进行设置.属性的类型数字、字符、布尔、枚举、TStrings、集合，类对象或者接口类型等示例:TEnumTest=(etNone,etTestInt,etTestString);T

2008-12-02 09:19:00 824

转载关于VCL的编写 (二) 简单介绍一下VCL消息传递

简单介绍一下VCL消息传递VCL除了封装了WINDOWS消息外，还有自己自定义的一些消息。WINDOWS的消息以WM_ 开头，可以参考Delphi Help里带的WINDOWS SDK 或MSDN, 在Messages.pas文件中也可以看得到. VCL的一些内部消息，一般是以CM_ CN_ CB_ 等开头的，在Controls.pas文件中也可以看得到,具体的使用可以查看Delphi方面的资料。

2008-12-02 09:17:00 527

转载关于VCL的编写 (一) 怎样编写自己的VCL控件

怎样编写自己的VCL控件用过Delphi的朋友们,大概对Delphi的最喜欢Delphi的不是他的强类型的pascal语法,而是强大的VCL控件，本人就是一位VCL控件的爱好者。 VCL控件的开源，给我们带来了享之不尽的好处。不像以前的ole控件以及ActiveX，你完全可以重写Delphhi标准控件，而且网上这方面的资源很多。关于如何编写VCL控件,和多Delphi

2008-12-02 09:17:00 800

转载由VCL中的代码理解VCL中的消息处理机制

Delphi，一个非常优秀的开发工具，拥有强大的可视化开发环境、面向组件的快速开发模式、优秀的VCL类库、快速的代码编译器、强大的数据库和WEB开发能力、还有众多的第三方控件支持...（此处省略x千字，既然大家都知道了，不浪费口水了 ^_^）说到VCL的优秀就不能不提到其对Windows消息及API的较全面和完美的封装，正因为如此开发者在大多数情况下甚至不需理会Windows消息处理的细节，而只

2008-12-02 09:15:00 416

转载 VCL中消息处理初探

TObject是基类，所以我们先看一下TObject的DISPATCH方法。Dispatch根据传入的message来寻找相应的消息处理方法，如果找不到的话，就继续向上到父类的消息处理方法表中寻找响应的处理方法，一直到找到为止，如果找到顶还没有，则调用DefaultHandle来处理该消息。message可以是任何的类型，Dispatch假设message的头两位是消息的ID，它就是根据ID来寻找

2008-12-02 09:07:00 564

转载 BroadcastSystemMessage

long BroadcastSystemMessage　　函数功能：该函数发送消息给指定的接受者。接受者可以是一个应用程序、安装驱动器、网络驱动器、系统级设备驱动器或这些系统组件的组合。　　函数原型：long BroadcastSystemMessage（DWORD dwFIags，LPDWORD IpdwRecipients,UINT UiMessage，WPARAMwParam,LPARAM

2008-12-01 14:02:00 1965

原创 Invalidate

Invalidate　　void Invalidate( BOOL bErase = TRUE ); 　　该函数的作用是使整个窗口客户区无效。窗口的客户区无效意味着需要重绘，例如，如果一个被其它窗口遮住的窗口变成了前台窗口，那么原来被遮住的部分就是无效的，需要重绘。这时Windows会在应用程序的消息队列中放置WM_PAINT消息。MFC为窗口类提供了WM_PAINT的消息处理函数OnPaint，

2008-12-01 13:50:00 458

转载 UpdateWindow

UpdateWindow　　函数原型：　　BOOL UpdateWindow(HWND hWnd);　　描述：　　这个 UpdateWindow 函数通过发送重绘消息 WM_PAINT 给目标窗体来更新目标窗体客户区的无效区域。如果那个窗体的无效区域没有，就不发送重绘消息 WM_PAINT 了。注意了，这个 API 函数是直接发送消息 WM_PAINT 给目标窗体的，没有进入过消息队列。　　函数

2008-12-01 13:20:00 501

转载 DefWindowProc

DefWindowProc　　函数功能：该函数调用缺省的窗口过程来为应用程序没有处理的任何窗口消息提供缺省的处理。该函数确保每一个消息得到处理。调用DefWindowProc函数时使用窗口过程接收的相同参数。　　函数原型：LRESULT DefWindowProc（HWND hWnd，UINT Msg，WPARAM wParam，LPARAM IParam）；　　参数：　　hWnd：指向接收消息的

2008-12-01 13:00:00 677

转载 DrawText

DrawText　函数功能：该函数在指定的矩形里写入格式化文本，根据指定的方法对文本格式化（扩展的制表符，字符对齐、折行等）。　　函数原型：int DrawText(HDC hdc, LPCTSTR lpString, int nCount, LPRECT lpRect, UINT uFormat)；　　参数：　　hdc：设备环境句柄。　　lpString：指向将被写入的字符串的指针，如果参数nC

2008-12-01 12:41:00 570

转载 GetDC

GetDC　　函数功能：该函数检索一指定窗口的客户区域或整个屏幕的显示设备上下文环境的句柄，以后可以在GDI函数中使用该句柄来在设备上下文环境中绘图。　　GetDCEx函数是GetDC的一个扩展，它能使应用程序更多地控制在客户区域内如何或是否发生剪切。　　函数原型：HDC GetDC(HWND hWnd)；　　参数：　　hWnd：设备上下文环境被检索的窗口的句柄，如果该值为NULL，GetDC则检

2008-12-01 12:33:00 1086

原创 PostQuitMessage

PostQuitMessage　　函数功能：该函数向系统表明有个线程有终止请求。通常用来响应WM_DESTROY消息。　　函数原型：VOID PostQuitMessage（int nExitCode）；　　参数：　　pExitCode：指定应用程序退出代码。此值被用作消息WM_QUIT的wParam参数。　　返回值：无。　　备注：PostQuitMessage寄送一个WM_oUT消息给线程的消息

2008-12-01 08:55:00 1873

原创 SDK编程讲座之第二讲:WinMain与两只小板凳的故事（转载）

注:呵呵，近两天收到不少网友来信，要求我继续写下去，说实在的，写这东西费时费力。不过一旦想起这些对大家或许有些帮助时，无形的压力就来了。我所写的，仅仅是我编程中的感想，如果你有何感想，希望给我留言或到"C程序员论剑台"交流，如果你有好的建议，欢迎提出；如果你有好的对VC初学者有利的作品或文章，也欢迎给本站介绍，我将大力为你推广。---小朱第一只小板凳:打开"an empty projec

2008-11-30 20:24:00 824

原创 SDK编程讲座之第一讲：预备知识与概念介绍（转载）

注:我写这个专题目的是为VC初学者提供一个思路，我本人很菜，但我认为对于VC初学者来讲，可能有点帮助，当然，对于WinSDK编程，我也是刚刚接触。如果你对WinSDK编程较熟，请与我联系，咱们共同来把这个专题做好，如果你发现了什么错误，也麻烦你给我留言指正。我写的内容也基本上是我自己的一些理解，错误是肯定有的，如果你发现我的理解偏差很大的话，麻烦你提醒一下。---小朱! 什么是WinSDK:

2008-11-30 20:23:00 678