摘要： 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... 阅读全文