摘要：
消息，就是指Windows发出的一个通知，告诉应用程序某个事情发生了。例如，单击鼠标、改变窗口尺寸、按下键盘上的一个键都会使Windows发送一个消息给应用程序。消息本身是作为一个记录传递给应用程序的，这个记录中包含了消息的类型以及其他信息。例如，对于单击鼠标所产生的消息来说，这个记录中包含了单击鼠... 阅读全文
摘要：
方法一：适用于托拽无标题栏的文字提示浮动小窗口（因如果使用PIC作为BTN的话会影响到PIC的Click事件获得）//当鼠标拖动时Windows 首先会向鼠标//下的窗口发送一个 wm_nchittest 消息，窗口收到这个消息//后再由窗口的消息处理函数进行处理，消息处理函数将会返//回一个整数表... 阅读全文
摘要：
function RegisterServiceProcess (dwProcessID, dwType: DWord) : DWord; stdcall; external ’KERNEL32.DLL’; {把当前进程变为一个系统服务，从而在任务列表中把程序隐藏起来}procedure TForm... 阅读全文
摘要：
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Butto... 阅读全文
摘要：
分类运算符操作操作数结果类型范例算术运算符+加整数，实数整数，实数X + Y-减整数，实数整数，实数Result - 1*乘整数，实数整数，实数P * InterestRate/实数除整数，实数实数X / 2div整数除整数整数Total div UnitSizemod取模整数整数Y mod 6+(... 阅读全文
摘要：
视窗系统 2000/XP和2003等支持一种叫做"服务程式"的东西.程式作为服务启动有以下几个好处: (1)不用登陆进系统即可运行. (2)具有SYSTEM特权.所以你在进程管理器里面是无法结束他的. 笔者在2003年为一公司研发机顶盒项目的时候,原来写过课件上传和媒体服务,下面就介绍一下怎么用De... 阅读全文
摘要：
procedure screenshot(shot: string);var dibH : hBitmap; bits : pointer; info : TBITMAPINFO; width,height : integer; screenDC,dibDC : hDC; f : file of b... 阅读全文
摘要：
线程的基础知识 线程的组成。线程有两部分组成。 1、一个是线程的内核对象，操作系统用它来对线程实施管理。内核对象也是系统用来存放线程统计信息的地方。 2、另一个是线程堆栈，它用于维护线程在执行代码时需要的所有函数参数和局部变量。 进程从来不执行任何东西，它只是线程的容器。线程总是在某个进程环... 阅读全文
摘要：
TThread是一个抽象类，可以创建几个独立的线程。类关系 TObject在一个多线程的应用程序中创建一个TThread的后子类代表一个线程。每一新子类的TThread对象的实例是一个新的线程。从TThread派生的多线程实例可以构成Delphi的多线程应用程序。 当一个应用程序运行时，应用程序... 阅读全文
摘要：
文件搜索功能要用到findfirst和findnext函数，以及tsearchrec结果，采用深度优先算法，先搜索目录下的文件，然后搜索目录下的子目录递归调用，代码如下procedure TSearchThread.findfiles(apath: string); {通过递归调用，可以在当前目录... 阅读全文
摘要：
创建线程MsgThread := TMsgThread.Create(False) ; //创建并执行线程MsgThread := TMsgThread.Create(True) ; //创建线程后挂起constructor Create(CreateSuspended: Boolean); 中的参... 阅读全文
摘要：
我现在使用二种信息提示的方式，一种当然是使用Application.messageBox的方式，就是即时提示。另一种就是将所有的错误和警告写在一起，适用于大批量数据的录入，一条条提示太麻烦了。 1 即时提示 我将Application.messageBox进行了封装，MessageBox的哪些参... 阅读全文
摘要：
一、窗体的建立 在DELPHI中，我们通常使用Application.CreateForm(TForm2, Form2)和TForm.create来创建窗体，我们几乎无法区别这两种方法差异，更何况，我们更多的时候都是在使用TForm.create来生成子窗体。 不过，仔细观察VCL源码，你会... 阅读全文
摘要：
函数由一句或多句代码组成，可以实现某个特定的功能。使用函数可以使代码更加易读、易懂，加快编程速度及减少重复代码。过程与函数类似，过程与函数最重要的区别在于，过程没有返回值，而函数能有返回值。 在Delphi 7.0中，已为我们定义好了非常多的函数，大致分类有6种：数据类型转换函数、字符串、数... 阅读全文
摘要：
下面是两个函数，用来执行一个外部程序，缺省是异步执行同步调用方法 RunProgram('c:\aa.exe',true);参考IsProgram_Runing函数，你也可以调用RunProgram('c:\aa.exe')先异步执行，然后根据返回的进程句柄，自己判断程序是否执行结束。// 异步执行... 阅读全文
摘要：
delphi 编程 获得同相应扩展文件名关联的应用程序，代码 如下：unit Unit1;interfaceusesWindows, Messages, Registry,IniFiles,SysUtils, Variants, Classes, Graphics, Controls, Form s... 阅读全文
摘要：
uses Windows, SysUtils, Classes, ShellAPI;function RunWait(FileName: string; Visibility: Integer): THandle;var zAppName: array[0..512] of Char; zCurDi... 阅读全文
摘要：
unit SkyPublic;interfaceusesWindows,SysUtils,Classes,Controls,Dialogs,ShellApi,Menus,StdCtrls,registry,Forms,Graphics,Math,DateUtils;typeTQuarter = 1.... 阅读全文