- 博客(16)
- 收藏
- 关注
RSS订阅转载 保留小数点n位的函数
function myRound(x:extended;n :integer) : extended; //x浮点数，n整数保留的位数，返回还是浮点begin x := x * exp(n*ln(10)); if (int(x) * 10 + 5) > int(x * 10) then begin result := floor(x); end else begin res
2007-12-18 14:32:00
758
转载 Delphi编程：Window消息大全使用详解(2)
WM_INITMENUPOPUP = $0117; 当一个下拉菜单或子菜单将要被激活时发送此消息，它允许程序在它显示前更改菜单，而不要改变全部 WM_MENUSELECT = $011F; 当用户选择一条菜单项时发送此消息给菜单的所有者（一般是窗口） WM_MENUCHAR = $0120; 当菜单已被激活用户按下了某个键（不同于加速键），发送此消息给菜单的所有者； WM_ENTERI
2007-09-30 12:54:00
668
转载 Delphi编程：Window消息大全使用详解(1)
消息，就是指Windows发出的一个通知，告诉应用程序某个事情发生了。例如，单击鼠标、改变窗口尺寸、按下键盘上的一个键都会使Windows发送一个消息给应用程序。消息本身是作为一个记录传递给应用程序的，这个记录中包含了消息的类型以及其他信息。例如，对于单击鼠标所产生的消息来说，这个记录中包含了单击鼠标时的坐标。这个记录类型叫做TMsg， 它在Windows单元中是这样声明的： type TM
2007-09-30 12:53:00
884
转载 一个功能增强的Delphi TListView组件
在Windoes编程中列表视图(ListView)是一个通用控件，当将其样式设为Report时，系统将自动为它加上一个表头控件（以下简称表头），但通常我们不能直接对这个表头控件进行操作。同样Delphi的TListView组件也没有为我们提供可以直接对该表头进行控制的方法，这篇文章介绍一种通过自定义组件的方法，对Delphi的TListView组件进行功能增强，做一个通用的列表视图但是它增加了以下
2007-09-30 12:49:00
1386
原创 创建桌面快捷方式
procedure desktopMenu(StartupFilename, lnkname: String);var tmpObject: IUnknown; tmpSLink: IShellLink; tmpPFile: IPersistFile; PIDL: PItemIDList; StartupDirectory: array[0..MAX_PATH] of Char; Li
2007-09-24 09:12:00
474
原创 创建快捷方式及自动运行
procedure AtorunSktsrvr(RunFileName, RunKey: string);var RegFile: TRegistry;begin RegFile:=TRegistry.Create(); try RegFile.RootKey:=HKEY_LOCAL_MACHINE; if RegFile.OpenKey(Software/Microsoft/
2007-09-24 09:11:00
552
原创 启动服务函数
procedure StartService(psServiceName: string);var hscmanager, hService: SC_HANDLE; lpServiceArgVectors: Pchar; returnstatus: TServiceStatus;begin try lpServiceArgVectors := nil; hscmanager
2007-09-24 09:09:00
612
原创 获取计算机名称的函数
function GetCompName: string;var lsComputerName: PChar; liSize: Cardinal;begin liSize := MAX_COMPUTERNAME_LENGTH + 1; GetMem(lsComputerName, liSize); GetComputerName(lsComputerName, liSize); //
2007-09-24 09:04:00
629
原创 注意、提示、错误通用对话框函数
procedure CreateError(const Msg: string; Sender: TWinControl; ico: smallint);var flag: LongInt; Info: string;begin case ico of 1: begin flag := MB_OK + MB_ICONWARNING; Info :
2007-09-24 09:02:00
414
转载 实现调用外部EXE程序的代码
我想在一个过程中 按以下步骤执行第一步定义变量第二步 调用外部的exe程序 等exe程序结束了执行第三步 。。。。我知道怎样实现 第三步等待 我把第二步中的exe关闭 在来执行主要是朋友要做一个接口 中间调用 别人的exe 如果调用然后处理完了 在继续执行try this:function ExecAppWait(AppNam
2007-09-24 08:53:00
548
原创 对ListView进行排序
//对ListView进行排序, piCol表示列索引, pbAutoOrder表示是否自动排序procedure SortListColumn(piCol: Integer; pbAutoOrder: Boolean); function CustomSortProc(Item1, Item2: TListItem; ParamSort: Integer): Integer; stdcal
2007-09-18 12:48:00
625
原创 画完成百分比的进度条
procedure DrawProgressColorEH(Canvas: TCanvas;nProgress: Integer; const Rect: TRect; Column: TColumnEh);var ldValue:integer; lsValue,lsTemp1,lsTemp2:string; lRect: TRect; X, Y,liTemp: Integer;begi
2007-09-18 12:44:00
901
原创 将GRID中数据导出到 EXCEL文件中
//将GRID中数据导出到 EXCEL文件中function ExportDBGridEHToExcel(ADBGridEH: TDBGridEh; AOutputFileName: string ; ASheetName :string ): Boolean;var liFieldIndex: Integer; liRecordIndex: Integer; loXmlWriter: TX
2007-09-18 12:43:00
1032
原创 Grid中的排序功能
procedure DBGridSort(FSortColumn: TColumnEh;out pbASC:boolean);var OldIndex: string;begin// if (FSortColumn.Grid.DataSource = nil) then Exit;// if not (FSortColumn.Grid.DataSource.DataSet.Active)
2007-09-18 12:42:00
1291
原创 删除文件夹以及文件夹下的所有文件
procedure TForm1.DeleteFolder(psDelPath: string);var loSr: TSearchRec;begin if FindFirst(psDelPath + /*.*, faAnyFile, loSr) = 0 then begin if loSr.Attr DeleteFile(psDelPath + / + loSr.
2007-09-18 12:39:00
469
转载 新建文件夹和删除文件夹
建立文件夹很简单：MkDir就可以了。 删除文件夹： 2、删除目录 删除目录与拷贝目录很类似，但为了能删除位于根目录下的一个空目录，需要在辅助函数中设置一个标志变量，即：如果删除的是空目录,则置bEmptyDir为True，这一句已经用深色框表示了。 2.1删除目录的递归辅助函数：DoRemoveDir function
2007-04-23 14:28:00
651
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人