Tag

摘要： 忘记是抄谁的了，这里改进了一下。还原后没有clear 并再一次备份。因为还原一次后，如果再还原，会句柄无效的。 unit clipbak; interface uses SysUtils, Classes, Clipbrd, Windows, Contnrs, Dialogs; type TClip 阅读全文

摘要： //不是过滤DATASET,适合用在下拉数据很多的情况。过滤的必须是下拉有添加的列 procedure cxLookupComboBoxLikeSearchInitPopup(Sender: TObject); var FEdit: TcxLookupComboBox absolute Sender 阅读全文

摘要： function Like(p1: PChar; l1: Integer; p2: PChar; l2: Integer; percent_char, underline_char, escape_char: Char): Boolean; overload; var c: Char; AEscap 阅读全文

摘要： function ByteType(const S: string; Index: Integer): TMbcsByteType; // 判断一个字符串中，某个 Char 是单个字母，还是双字节的前一位或后一位。 // mbSingleByte 单字母 // mbLeadByte 双字节第一位 / 阅读全文

摘要： oleacc.pas {*******************************************************} { } { CodeGear Delphi Runtime Library } { } { File: oleacc.h } { Copyright (c) Mi 阅读全文

摘要： c - How can I access a variable in a calling application from a dll? - Stack Overflow On NT/XP/2003 etc the first param to CallNextHookEx is ignored. 阅读全文

摘要： //这种控件就可以 窗口不可以，标题栏是系统绘画的。procedure TForm1.btn1Click(Sender: TObject); var ahdc,ahdc_old, ahdc_new: HDC; ARect:TRect; ahpen:HPEN; ahandle:THandle; h,w 阅读全文

摘要： //dll code uses // ShareMem, SysUtils, Windows, Math; {$R *.res} function TestString1(Buffer: PChar): PChar; stdcall; var Tmpstr:string; begin try Tmp 阅读全文

摘要： 使用CNPACK 的单元来实现AES CBC 解密 CBC PKCS7 解密要注意的点是，如果解密内容不够16位整除要补#0 var inbase64, outbase64: string; i:integer; Ret:string; TmpAesIv: TAESBuffer; IvStr: An 阅读全文

摘要： https://learn.microsoft.com/zh-cn/sql/t-sql/data-types/datetime-transact-sql?view=sql-server-ver16&redirectedfrom=MSDN http://www.hemingcha.com/a1/MsS 阅读全文