随笔分类 -  Delphi.System

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