![](https://img-blog.csdnimg.cn/20201014180756916.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
delphi
取昵称麻烦
这个作者很懒,什么都没留下…
展开
-
支持XP下托盘栏气球提示的托盘单元
unit tray;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,Registry,ShellAPI, ComCtrls, StdCtrls, Buttons, Menus, ExtCtrls;const ICON_ID=3; NIF原创 2007-06-05 04:00:00 · 517 阅读 · 0 评论 -
delphi干支农历公式
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转载 2007-06-05 05:04:00 · 1879 阅读 · 0 评论 -
Delphi中TApplication详解
TApplication是用于Delphi应用程序的类型,该类在单元forms中声明。TApplication是Delphi构造 Windows应用程序所需的类型,其方法和属性集中包括了 Windows操作系统中创建、运行和销毁应用程序等既定的基本操作和属性,因此在用Delphi编写 Windows应用程序时简化了用户和Windows环境之间的借口。 TApplication封装了以下功原创 2007-06-05 04:57:00 · 1797 阅读 · 0 评论 -
Format详解(FormatDateTime FormatFloat)
Format首先看它的声明:function Format(const Format: string; const Args: array of const): string; overload;事实上Format方法有两个种形式,另外一种是三个参数的,主要区别在于它是线程安全的,但并不多用,所以这里只对第一个介绍:function Format(const Format: string; c转载 2007-06-05 04:49:00 · 831 阅读 · 0 评论 -
防止同时出现多个应用程序实例之改进
在《Delphi 5 开发人员指南》中第13章中有一篇"防止同时出现多个应用程序实例",代码中给出了一个MultInst.pas单元,工程引用此单元就能防止同时出现多个实例,但实际应用中发现,如果应用程序并没有最小化,第二个实例不能把第一个实例提到最前.下面是我改写的MultInst.pas单元,能解决这个小问题.//======================================转载 2007-06-05 04:44:00 · 606 阅读 · 0 评论 -
delphi技巧
◇[DELPHI]网络邻居复制文件 uses shellapi; copyfile(pchar(newfile.txt),pchar(//computername/direction/targer.txt),false); ◇[DELPHI]产生鼠标拖动效果 通过MouseMove事件、DragOver事件、EndDrag事件实现,例如在PANEL上的LABEL: var xpanel原创 2007-06-05 04:42:00 · 986 阅读 · 0 评论 -
Delphi释放资源
经过这段时间对delphi中free 和 release 的仔细学习,先总结如下:1。form.free直接释放资源后,调用OnDestroy事件,但是没有将form指针改为nil2。form.release 等待资源不再使用后释放资源,同样不修改form指针为nil,所以在destroy中最好使用 release进行资源释放操作。3。局部变量释放资源时,可以考虑用freeandnil()释转载 2007-06-05 21:11:00 · 1614 阅读 · 0 评论 -
Delphi7的函数集中营
函数集●●●●●●●----------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)转载 2007-06-05 04:55:00 · 4932 阅读 · 0 评论 -
递归清空窗体上 所有文本框,下拉框中的文本
//函数单元。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转载 2007-06-04 22:29:00 · 678 阅读 · 0 评论 -
Delphi调用外部程序详解
inExec主要运行EXE文件。如:WinExec(’Notepad.exe Readme.txt’, SW_SHOW); ShellExecute不仅可以运行EXE文件,也可以运行已经关联的文件。 首先必须引用shellapi.pas单元:uses ShellAPI; 1.标准用法 ShellExecute函数原型及参数含义如下: function ShellExecute(原创 2007-06-05 04:52:00 · 1371 阅读 · 0 评论 -
通过字符串,类的引用,创建窗体
unit ShowFormClass;interfaceuses SysUtils, Classes,Dialogs, Forms;type TShowFormClass = class(TComponent) private { Private declarations } //保存要创建的窗体的类名 FFrmName:string;转载 2007-06-04 22:33:00 · 707 阅读 · 0 评论 -
使用HOOK随心监视Windows
使用HOOK随心监视Windows 每个程序都有自己的生存空间,在Windows系统中你可以在任何时候让你的程序执行一些操作,还可以触发消息,触发的消息分为三种,一是操作你程序的界面,onClick,onMouseMove等等,另外一个可以使用Windows的消息机制来捕获一些系统消息,但是如果你想在任何时候监控任何程序的情况那可能你就会选择HOOK来实现了,虽然还有其他方法,但不得不承认,H转载 2007-06-04 22:16:00 · 1065 阅读 · 0 评论 -
注册热键
BOOL RegisterHotKey( HWND hWnd, //响应该热键的窗口句柄 Int id, //该热键的唯一标识 UINT fsModifiers, //该热键的辅助按键 UINT vk //该热键的键值 );原创 2007-06-05 05:07:00 · 886 阅读 · 0 评论