unit Main;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, System.DateUtils;type TfrmMain = class(TForm) Timer1: TTimer;
unit GetSid; interface uses Windows, SysUtils; function GetCurrentUserSid: string; implementation const HEAP_ZERO_MEMORY = $00000008; SID_REVISION = 1; // Current revision level type PTokenUser = ^TTokenUser; TTokenUs
在论坛上看很多人在问模拟按键的问题，比较好的是用Winio，但这样一是要加载winio.sys，二是基本只支持当前窗口按键，其实使用PostMessage就可以解决大部分游戏的按键模拟，很多人用不了就放弃了，其实关键是参数的构造不对，这个函数PostMessage (MyHwnd, WM_KEYDOWN, key, lParam)中，很多人的用法都是lParam为0，即：PostMessage (MyHwnd, WM_KEYDOWN, key, 0);这里lParam的构造应该如下：[具体为什么这么构造
FDConnection1.ExecSQL('VACUUM');FDQuery1.Refresh;SQLite VacuumVACUUM 命令通过复制主数据库中的内容到一个临时数据库文件，然后清空主数据库，并从副本中重新载入原始的数据库文件。这消除了空闲页，把表中的数据排列为连续的，另外会清理数据库文件结构。如果表中没有明确的整型主键（INTEGER PRIMARY KEY），VACUUM 命令可能会改变表中条目的行 ID（ROWID）。VACUUM 命令只适用于主数据库，附加的数据库文
unit uGUID;{采用的开源算法 https://github.com/martinusso/ulid 加已改造成32位有序GUID}interfaceuses DateUtils, SysUtils, Windows; //有序的32位id function GetULID(QDataTime:TDateTime):string; function EncodeTime(Time:Int64):string; function EncodeRandom: string;implemen
uses DateUtils;vart1,t2:TDateTime;begint1:=StrToDate(Edit1.Text);t2:=StrToDate(Edit2.Text);Caption:='两日bai期相du差'+IntToStr(DaysBetween(t1,t2))+'天dao';
delphi messagebox 使用技巧消息框是个很常用的控件，属性比较多，本文列出了它的一些常用方法，及指出了它的一些应用场合。1.最简单用法,不带图形MessageBox(0,’不同意’,’提示’,MB_OK);MessageBox(0,’不同意’,’提示’,MB_OKCANCEL );2.警告对话框:MessageBox(0,’密码不能为空,请务必输入密码’,’警告’,MB_ICONEXCLAMATION);3.提示信息对话框:MessageBox(0,’密码不能为空,请务必输入密码’,’提示
varMyRes: TResourceStream; //资源文件beginif not FileExists('my.dll') then //判断是否存在对应文件 begin try dmRes := TResourceStream.Create(HInstance, 'my', RT_RCDATA); //这里要提前添加RES文件，这个适用于XE版本 dmRes.SaveToFile('my.dll'); //释