Tag

摘要： //使用土拨鼠单元 uses SynCrypto; //有中文要先UTF8Encode var sha256Digest:TSHA256Digest; begin HMAC_SHA256('123',UTF8Encode('中文tag123'),sha256Digest); ShowMessage( 阅读全文

摘要： IF OBJECT_ID('fn_dupchar') IS NOT NULL DROP FUNCTION fn_dupchar GO /* 2022-04-28 返回指定位数、char的组合。比如要返回4个00 select dbo.fn_dupchar(4,'0') 这里只支持单个字符。 */ C 阅读全文

摘要： 注入exe//给出exename 找到pid function GetExePid(const aExeName: string):Cardinal; var _vHandle : THandle; _vProEntry : TProcessEntry32; _vIsFound : Boolean; 阅读全文

摘要： { 下拉弹出式窗体 2022-04-07 by tag 649998142@qq.com 这里写的比较简单只支持一个方向。靠左下拉的弹出式窗体 窗口设置BorderStyle := bsNone; 但是要给窗口一个 WS_BORDER 支持改变大小在 WMNCHIST 消息里处理 思路： FormD 阅读全文

摘要： 原文链接：https://blog.csdn.net/suiyunonghen/article/details/2325416 今天有一个朋友问我怎样可以拖拽一个没有边框的窗体，使其改变大小。于是很快想到一个消息WM_NCHITTEST 该消息用来描述，当关标移动或当按下或当释放了鼠标按扭的时候，就 阅读全文

摘要： 有时调试过程函数 需要print @sql 打印出sql语句出来看下对不对。遇见超长的话就没有办法了。会出现截断，改下面的方式就可以了 --processing-instruction(x) 不转义特殊符号 一定要as processing-instruction(x) select @sql AS 阅读全文

摘要： <?php $serverName = "192.168.2.251,2434"; $connectionInfo = array( "Database"=>"jfdf40", "UID"=>"sa", "PWD"=>"XXX"); $conn = sqlsrv_connect( $serverNa 阅读全文

摘要： delphi 连接access 连接完如无特殊情况，一定是断开连接。不断开的话那么它会频繁的去读取mdb文件，不知道是啥机制。 一个这样的没有关系，如果说有无数个这个样的程序就。。。。。 以下是用进程跟踪工具 （processmonitor） 毫秒级别的去读取。很占用CPU,积少成多。导致CPU暴涨 阅读全文

摘要： // \??\C:\WINDOWS\system32\drivers //选择的盘是映射盘，需要得出正确的路径 function GetDosPath(path:string):string; var DriveChar, Drive: string; Buf: Array [0..MAX_PATH 阅读全文

摘要： var cpuset : set of 0..31; cpucount, i:integer; begin cpucount := sysset.ReadInteger('SysConfig', 'cpucount', 2); // 默认给两个就可以了 cpuset:=[]; for i := 0 阅读全文