公用函数源码
一米制造
这个作者很懒,什么都没留下…
展开
-
通用打印模块DBGridEh
{*******************************************************}{ }{ 通用打印模块 } {转载 2008-09-07 10:50:00 · 695 阅读 · 0 评论 -
获取当前系统版本号
获取当前系统版本号 unit WinVerUtils;{#===============================================================================# Name: WinVerUtils.pas# Author: Aleksander Oven# Created: 2007-02-25# La转载 2008-09-07 12:27:00 · 623 阅读 · 0 评论 -
设置默认输入法
uses TypInfoprocedure SetImeA(AOwner:TForm);var i:Integer;begin for i := 0 to AOwner.ComponentCount - 1 do begin if GetPropInfo(AOwner.Components[i],ImeName) begin SetPropValue(AOwn转载 2008-09-07 11:41:00 · 848 阅读 · 0 评论 -
Enter键使用作Tab键
首先,在主窗体中声明以下private过程:procedure TMainForm.DoEnterAsTab(var Msg: TMsg; var Handled: Boolean);beginif Msg.Message = WM_KEYDOWN thenbeginif Msg.wParam = VK_RETURN thenKeybd_event(VK_TAB, 0, 0, 0);end; /转载 2008-09-07 11:22:00 · 484 阅读 · 0 评论 -
与Access数据库结构有关的一些函数
//与数据库结构有关的一些函数//1、动态改变字段名称uses ComObj;//Access//TableName: 表名; OldColName: 原字段名; NewColName: 新字段名;procedure RenameField(const TableName, OldColName, NewColName: string);var DB, Col: OleVariant;begin转载 2008-09-07 10:56:00 · 631 阅读 · 0 评论 -
定时关闭各种对话框
{*******************************************************}{ }{ 定时关闭各种对话框 }{转载 2008-09-07 10:52:00 · 610 阅读 · 0 评论 -
导出Tdbgrideh数据
{*******************************************************}{ }{ 导出Tdbgrideh数据 }{转载 2008-09-07 10:45:00 · 809 阅读 · 0 评论 -
DES加解密算法
{*******************************************************}{ }{ DES加解密算法 }{转载 2008-09-07 10:44:00 · 367 阅读 · 0 评论 -
公用函数(1)
{*******************************************************}{ }{ 公用函数 }{转载 2008-09-07 10:21:00 · 850 阅读 · 0 评论 -
进制转换
{*******************************************************}{ }{ 进制转换 }{转载 2008-09-07 12:30:00 · 540 阅读 · 0 评论 -
防止程序重复执行的单元
防止程序重复执行的单元 //工程引用此单元就能防止同时出现多个实例unit MultInst;interfaceuses Windows ,Messages, SysUtils, Classes, Forms;implementationconst STR_UNIQUE = {2BE6D96E-827F-4BF9-B33E-8740412CDE96}; MI_ACTIVEAPP =转载 2008-09-07 12:26:00 · 479 阅读 · 0 评论 -
图像格式转换
uses Windows, Messages, SysUtils, Classes, Graphics, JPEG;function BmpToJpeg(Sou:TFileName;Des:TFileName):Boolean; //bmp转换成jpgfunction BmpToEmf(Sou:TFileName;Des:TFileName):Boolean; //bmp转换成emffun转载 2008-09-07 11:23:00 · 542 阅读 · 0 评论 -
包含图形、动画、进度条等等的状态栏
{在Delphi中,一个控件上能否成为其它控件的父控件取决于此控件的ControlStyle属性。ControlStyle属性是集合类型的,如果此集合包含csAcceptsControls元素,则它能接受其它控件;否则,它就不能成为其它控件的父控件。ControlStyle属性只能在控件的构造函数(Constructor)中指定,在程序运行时它是不能被改变的。所以如果希望窗口状态条上面能包含其它转载 2008-09-07 11:15:00 · 537 阅读 · 0 评论 -
枚举串口
procedure EnumComPorts(Ports: TStrings);var KeyHandle: HKEY; ErrCode, Index: Integer; ValueName, Data: string; ValueLen, DataLen, ValueType: DWORD; TmpPorts: TStringList;begin ErrCode := RegOpe转载 2008-09-07 12:38:00 · 743 阅读 · 0 评论