摘要：
注入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 阅读全文
摘要：
调用bat 启动程序要用start 不然某些操作系统版本 任务管理器会残留cmd.exe、conhost 进程 。次数多了会占用资源 阅读全文
摘要：
delphi ShellExecute 传递多个参数 如果调用的exe 接收多个参数。 一般无特殊可以用空格隔开，但是如果参数的值本身有空格。则得按这样的格式来传递 "p1","p2" 参数值有空格 ShellExecute(0, 'open',PAnsiChar('exe') , PAnsiCha 阅读全文