随笔分类 -  技术讨论

摘要：delphi获取目录下所有文件名 procedure SearchFile(Path:String);//注意,path后面要有'\';var SearchRec:TSearchRec; Found:Integer;begin Found:=FindFirst(path+'*.*',faAnyFil 阅读全文

摘要：1.MouseMove事件中加入： 2.MouseDown事件中加入： 3.MouseDown事件中加入： 阅读全文

摘要：Win10本身是一个兼容性较好的操作系统，目前有很多人在咨询如何在Windows 10 上安装 SQL Server 2000数据库，都没有成功过。主要是卡在了安装过程中的mdac2.6 安装上，一直停这儿不动。我们根据自己的实践，成功在Window 安装上了 SQL Server 2000数据库标... 阅读全文

摘要：今天重新做了系统，但是不知道什么原因EhLib安装出问题，花了很多时间，最后完美解决，在此做个总结按安装提示先运行安装目录下的\Installer里的EhLibInstaller.exe文件安装好后进入delphi （win7系统）报”程序无法定位于.....错误“解决方法：把Installer里的... 阅读全文

摘要：原理：在程序运行前用FindWindow函数查找具有相同窗口类名和标题的窗口，如果找到了，就说明已经存在。注意：FindWindow()函数带两个参数(类名和标题的窗口)其中的一个参数可以忽略，但最好将两个参数都用上，免得凑巧别的程序也在使用相同的类名，就得不到正确的结果了。缺点：如果是在Delph... 阅读全文

摘要：过Delphi实现打开程序后访问指定网站代码如下：1、调用系统API（非知名网站杀毒软件报木马）uses ShellApi, ... ... ;ShellExeCute(Handle,nil,'http:\\charmhouse.taobao.com',nil,nil,SW_Normal);2、调用IE法（这个杀毒软件好像不报）uses Comobj, ... ... ;{...}var Form1: TForm1; IEApp: Variant;实现代码begin IEApp := CreateOLEObject('InternetExplorer.Applicati 阅读全文

摘要：Delphi 设置文件属性uses FileCtrl;procedure TForm1.BitBtn1Click(Sender: TObject);begin with OpenDialog1 do if Execute then if FileSetAttr(filename, faArchive)=0 then Caption:='attribute was changed' else Caption:='attribute was not changed';end;请在interface下的uses中引用... 阅读全文

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure MyMsg(var msg: TWMKeyDown); message WM_KEYDOWN; end;var Form1: TForm1;implementation{$R *.dfm}procedure T... 阅读全文

摘要：////////////////////////////////////////////////////////////////{****************Delphi常用获取系统信息的函数*********************}///////////////////////////////////////////////////////////////unit untFunctionSysInfo;interfaceusesWindows, SysUtils, ShellAPI, WinSock, Registry;constVER_NT_WORKSTATION = $000000 阅读全文

摘要：Abort 函数 引起放弃的意外处理 Abs 函数 绝对值函数 AddExitProc 函数 将一过程添加到运行时库的结束过程表中 Addr 函数 返回指定对象的地址 AdjustLineBreaks 函数 将给定字符串的行分隔符调整为CR/LF序列 Align 属性 使控件位于窗口某部分 Alignment 属性 控件标签的文字位置 AllocMem 函数 在堆栈上分配给定大小的块 AllowGrayed 属性 允许一个灰度选择 AnsiCompareStr 函数 比较字符串（区分大小写） AnsiCompareText 函数 比较字符串（不区分大小写） AnsiLowerCase 函数 将 阅读全文

摘要：原理是通过发送ARP包来检测uses WinSockfunction SendARP(const DestIP, SrcIP: Cardinal; pMacAddr: PULONG; var PhyAddrLen: ULONG): DWORD; stdcall; external 'iphlpapi.dll';{调用}var nMacAddr: array[1..6] of Byte; nMacAddrLen: ULONG; nRet: DWORD;begin nMacAddrLen := SizeOf(nMacAddr); nRet := SendARP(ine... 阅读全文

摘要：开发收银系统时因为客户在使用驱动连接票据打印机, 但是又要开钱箱, 驱动里只能每张单据都开钱箱, 但是软件要求只有在结账时才开钱箱,所以就需要用软件控制打印机开钱箱。票据打印机一般都支持ESC/POS指令, 所以就出现了如下代码, 通过这个函数可以把ESC/POS指令里的开钱箱指令发送给打印机控制开钱箱,同样, 也可以发送别的什么东西, 比如响响蜂鸣器之类的这个代码里使用的是默认打印机, 当然稍微改动下, 就可以先弹出个打印机列表, 然后选择打印机传进去, 这样就可以控制任意打印机了。OpenPrinter(PChar(Printer.Printers[0]), nD, nPPD); uses 阅读全文

摘要：使用代码创建一个应用程序的快捷方式, 主要是用了IShellLink这个接口, 调用很简单uses ShlObj, ComObj, ActiveX;{参数说明AFile: 执行文件(含全路径)AArguments: 启动参数ALinkCaption: 快捷方式名称ADescription: 快捷方式描述ALinkPath: 快捷方式目录}procedure CreateLinkFile(AFile, AArguments, ALinkCaption, ADescription: string; ALinkPath: String = '');var nIShellLink: I 阅读全文

摘要：要求Delphi2007或者更高版本, 系统要求至少XP-SP2以上实际上是利用了Windows的windowscodecs.dll这个文件的功能在VCL里已经封装为TWICImage类procedure ScalerImage(AImage: TWICImage; AWidth, AHeight: Word);var nWIF: IWICImagingFactory; nWIS: IWICBitmapScaler;begin nWIF := AImage.ImagingFactory; nWIF.CreateBitmapScaler(nWIS); nWIS.Initialize(A... 阅读全文