oasiswsc的专栏

unit tray;interfaceuses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs,Registry,ShellAPI, ComCtrls, StdCtrls, Buttons, Menus, ExtCtrls;const  ICON_ID=3;  NIF

1. 求星期公式星期=[5+A(实际天数)] mod 72. 干支计算公式六十甲子干支序号，从1-> 59-> 0。六十甲子干支序号=[23+A(实际天数)] mod 603. 二十八宿计算公式二十八宿序号=[23+A(实际天数)] mod 284. 实际天数A的计算A=B(基本天数)+C(闰日天数)B=(计算年-1)*365+(要计算到年的月日天数)例：1984年2月1日的基本天数B

TApplication是用于Delphi应用程序的类型，该类在单元forms中声明。TApplication是Delphi构造 Windows应用程序所需的类型，其方法和属性集中包括了 Windows操作系统中创建、运行和销毁应用程序等既定的基本操作和属性，因此在用Delphi编写 Windows应用程序时简化了用户和Windows环境之间的借口。    TApplication封装了以下功

Format首先看它的声明：function Format(const Format: string; const Args: array of const): string; overload;事实上Format方法有两个种形式，另外一种是三个参数的，主要区别在于它是线程安全的，但并不多用，所以这里只对第一个介绍：function Format(const Format: string; c

在《Delphi 5 开发人员指南》中第13章中有一篇"防止同时出现多个应用程序实例",代码中给出了一个MultInst.pas单元,工程引用此单元就能防止同时出现多个实例,但实际应用中发现,如果应用程序并没有最小化,第二个实例不能把第一个实例提到最前.下面是我改写的MultInst.pas单元,能解决这个小问题.//======================================

◇[DELPHI]网络邻居复制文件 uses shellapi; copyfile(pchar(newfile.txt),pchar(//computername/direction/targer.txt),false); ◇[DELPHI]产生鼠标拖动效果 通过MouseMove事件、DragOver事件、EndDrag事件实现，例如在PANEL上的LABEL： var xpanel

经过这段时间对delphi中free 和 release 的仔细学习，先总结如下：1。form.free直接释放资源后，调用OnDestroy事件，但是没有将form指针改为nil2。form.release 等待资源不再使用后释放资源，同样不修改form指针为nil，所以在destroy中最好使用    release进行资源释放操作。3。局部变量释放资源时，可以考虑用freeandnil()释

函数集●●●●●●●----------abs(x)    绝对值arctan(x) 反正切cos(x)    传回馀弦函数值exp(x)    e的x次幂frac(x)   取小数部分int(x)    取整ln(x)     自然对数sin(x)    传回正弦函数值 sqr(x)    x*xsqrt(x)   平方根其它pred(x)   pred(D)=C, pred(true)

//函数单元。procedure TFormCYBase.ClearText(AControl:TWinControl);var  I: Integer;begin  for I := 0 to AControl.ControlCount - 1 do    // Iterate  begin    //需清空处理控件    if AControl.Controls[i] is TCustomEd

inExec主要运行EXE文件。如：WinExec(’Notepad.exe Readme.txt’, SW_SHOW);  ShellExecute不仅可以运行EXE文件，也可以运行已经关联的文件。 首先必须引用shellapi.pas单元：uses ShellAPI;  1.标准用法  　　ShellExecute函数原型及参数含义如下：  　　function ShellExecute(

unit ShowFormClass;interfaceuses  SysUtils, Classes,Dialogs, Forms;type             TShowFormClass = class(TComponent)  private    { Private declarations }    //保存要创建的窗体的类名    FFrmName:string;  

使用HOOK随心监视Windows   每个程序都有自己的生存空间，在Windows系统中你可以在任何时候让你的程序执行一些操作，还可以触发消息，触发的消息分为三种，一是操作你程序的界面，onClick，onMouseMove等等，另外一个可以使用Windows的消息机制来捕获一些系统消息，但是如果你想在任何时候监控任何程序的情况那可能你就会选择HOOK来实现了，虽然还有其他方法，但不得不承认，H

BOOL   RegisterHotKey(     HWND   hWnd,         //响应该热键的窗口句柄     Int   id,                       //该热键的唯一标识     UINT   fsModifiers,   //该热键的辅助按键     UINT   vk                 //该热键的键值     );