1.DPR: Delphi Project文件，包含了Pascal代码。应用系统的工程文件2.PAS: Pascal文件，Pascal单元的源代码，可以是与窗体有关的单元或是独立的单元。3.DFM：Delphi Form File,描述窗体或数据模块及其组件属性的二进制文件。窗体界面文件, 同PAS ...
一些程序运行时，会在桌面的右下角显示一个图标（任务栏的右边），这类图标称为 托盘。托盘是一个PNotifyIconDataA类型的结构，要增加托盘图标其实就是对结构PNotifyIconDataA的操作。使用控件CoolTrayIcon是个不错的选择，不过这里也给出简单实现，方便初学者学习。这里给出 ...
elphi 监控文件系统 你是否想为你的Windows加上一双眼睛，察看使用者在机器上所做的各种操作（例如建立、删除文件；改变文件或目录名字）呢？ 这里介绍一种利用Windows未公开函数实现这个功能的方法。 在Windows下有一个未公开函数SHChangeNotifyRegister可以把你的窗 ...
{动态添加导航} var Panl:Tpanel; MainPage,Subpage:TPageControl; TabSheet1: TTabSheet; ToolBar2: TToolBar; Splitter:TSplitter; begin {创建导航树开始} Panl:=Tpanel.Cr ...
unit UntOpenMenu; //download by http://wwww.NewXing.com interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Menus ...
使用CreateMutex函数创建互斥对象 利用Windows系统函数CreateMutex()，找出当前系统是否已经存在指定进程的实例，如果没有则创建一个互斥体。 CreateMutex函数原型如下: function CreateMutex(lpMutexAttributes: PSecurit ...
下面我们就讨论一下在delphi中如何给窗口的标题栏上添加新的按钮。 一、实现起来要定义以下过程： 1、 定义DrawCaptButton过程，这个过程的功能是在指定的位置画出按钮。 在过程中要使用win32函数GetSystemMetrics得到窗口的大小和标题按钮的大小；使用delphi函数Bo ...
SendMessage基础知识 函数功能：该函数将指定的消息发送到一个或多个窗口。此函数为指定的窗口调用窗口程序，直到窗口程序处理完消息再返回。而函数PostMessage不同，将一个消息寄送到一个线程的消息队列后立即返回。 函数原型：LRESULT SendMessage（HWND hWnd，UI ...
procedure TForm1.FormCreate(Sender: TObject); var hr :thandle; begin hr:=createroundrectrgn(1,1,width-2,height-2,5,5); setwindowrgn(handle,hr,true); e ...
type TComplex = record Real : Single; Imag : Single; end; TKArray=array [1..2048,1..2048] of TComplex; varlcArr:TKArray;lcC:Integer; lcArr2:Array of A ...
分类：
编程语言 时间：
2019-09-02 11:53:41
阅读次数：
119
