zwylly99-CSDN博客

转载保留小数点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 700

WM_INITMENUPOPUP = $0117;　　当一个下拉菜单或子菜单将要被激活时发送此消息，它允许程序在它显示前更改菜单，而不要改变全部　　WM_MENUSELECT = $011F;　　当用户选择一条菜单项时发送此消息给菜单的所有者（一般是窗口）　　WM_MENUCHAR = $0120;　　当菜单已被激活用户按下了某个键（不同于加速键），发送此消息给菜单的所有者；　　WM_ENTERI

2007-09-30 12:54:00 592

转载 Delphi编程：Window消息大全使用详解(1)

消息，就是指Windows发出的一个通知，告诉应用程序某个事情发生了。例如，单击鼠标、改变窗口尺寸、按下键盘上的一个键都会使Windows发送一个消息给应用程序。消息本身是作为一个记录传递给应用程序的，这个记录中包含了消息的类型以及其他信息。例如，对于单击鼠标所产生的消息来说，这个记录中包含了单击鼠标时的坐标。这个记录类型叫做TMsg，　　它在Windows单元中是这样声明的：　　type　　TM

2007-09-30 12:53:00 762

转载一个功能增强的Delphi TListView组件

在Windoes编程中列表视图(ListView)是一个通用控件，当将其样式设为Report时，系统将自动为它加上一个表头控件（以下简称表头），但通常我们不能直接对这个表头控件进行操作。同样Delphi的TListView组件也没有为我们提供可以直接对该表头进行控制的方法，这篇文章介绍一种通过自定义组件的方法，对Delphi的TListView组件进行功能增强，做一个通用的列表视图但是它增加了以下

2007-09-30 12:49:00 1254

原创创建桌面快捷方式

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 447

原创创建快捷方式及自动运行

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 522

原创启动服务函数

procedure StartService(psServiceName: string);var hscmanager, hService: SC_HANDLE; lpServiceArgVectors: Pchar; returnstatus: TServiceStatus;begin try lpServiceArgVectors := nil; hscmanager

2007-09-24 09:09:00 581

原创获取计算机名称的函数

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 564

原创注意、提示、错误通用对话框函数

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 382

转载实现调用外部EXE程序的代码

我想在一个过程中按以下步骤执行第一步定义变量第二步调用外部的exe程序等exe程序结束了执行第三步。。。。我知道怎样实现第三步等待我把第二步中的exe关闭在来执行主要是朋友要做一个接口中间调用别人的exe 如果调用然后处理完了在继续执行try this:function ExecAppWait(AppNam

2007-09-24 08:53:00 501

原创对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 584

原创画完成百分比的进度条

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 833 1

原创将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 918

原创 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 1212

原创删除文件夹以及文件夹下的所有文件

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 437

转载新建文件夹和删除文件夹

建立文件夹很简单：MkDir就可以了。删除文件夹： 2、删除目录删除目录与拷贝目录很类似，但为了能删除位于根目录下的一个空目录，需要在辅助函数中设置一个标志变量，即：如果删除的是空目录,则置bEmptyDir为True，这一句已经用深色框表示了。 2.1删除目录的递归辅助函数：DoRemoveDir function

2007-04-23 14:28:00 623

zwylly99的专栏