unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, CommCtrl, StdCtrls; type TIpEdit = class(TEdit) procedure CreateParams(var Params: TCreateParams); override; end; TForm...
windows下，有时候结束一个托盘程序的进程会遇到这样的情况，程序退出后，托盘的图标还在，但鼠标移过去之后就消失了,delphi里如何实现刷新托盘呢？ 用TerminateProcess把一个进程结束后...
Delphi中使用ADO连接带密码的Access var gDBConn:string; try self.ADOConnection1.Close; //无密码连接方式 Password=""; //gDBConn:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source=MyDB.mdb;Persist Security Info=True'; //有...
Delphi的四舍五入函数 一、四舍五入法 四舍五入是一种应用非常广泛的近似计算方法，其有算术舍入法和银行家舍入法两种。 所谓算术舍入法，就是我们通常意义上的四舍五入法。其规...
{------------------------------------------------------------------------------- 过程名:MakeFileList遍历文件夹及子文件夹 参数:Path,FileExt:string1.需要遍历的目录2.要遍历的文件扩展名 返回值:TStringList USESt...
将文件复制或剪切到剪贴板，可以在资源管理器、桌面等地方粘贴。在网上找了下，找到一些代码，不过发现都有点bug，现在将修正后的分享出来。 procedureCutOrCopyFiles(FileList:AnsiString;...
1.Form-keyprivew=True 2. procedureTForm1.FormKeyDown(Sender:TObject;varKey:Word; Shift:TShiftState); begin if(key=vk_down)or(key=13)thenbegin//如果按向下鍵或Enter //key:=vk_tab; Caption:=ActiveControl.Name; SendMessage(getparentform(...
对Delphi来说，{}(左右大括号)内是註解，不过如果是{$(左大括号加钱字号)内容是给编译器看的编译指令。 编译指令的用途為： 1.程式除错 2.版本控制 定义方式： 1. Project - Options… - Co...
本文章介绍了Delphi XE5实现通过TMemoryStream将一个UnicodeString写入到一个Unicode文本文件，之前研究了通过TMemoryStream将UnicodeString写入到文本文件，但是打开后，是乱码，是因为文本文件的字...
介绍 本文章介绍了Delphi XE7实现的仿Spy取窗口句柄并得到窗体框架，鼠标点击左上角的图标，然后移动到某一个对象上面，在对象上面，会自动出现一个红色的框框，通过这个程序可以...