- 博客(12)
- 资源 (3)
- 收藏
- 关注
RSS订阅原创 DBGrid响应选择事件
procedure TForm1.Set_KH_DBGrid_MouseUP; // 演示begin DBedt_khmc.Text:=DBGrid_khList.DataSource.DataSet.FieldValues['Client_Name'];end;procedure TForm1.DBGrid_khListMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);b...
2020-06-17 09:37:35
324
转载 NSIS 打包 win7 中无法删除快捷方式
NSIS打包的安装程序，在Vista中的安装过程中如果向开始菜单添加了快捷方式的话，在卸载时卸载程序会不能正常删除这些快捷方式。这 主要是因为Vista中使用UAC控制用户的权限。我们使用NSIS打包程序一般会配套使用相应的脚本编辑器，比如HM NIS Edit，或者国内高手对HM NIS Edit进行源代码级增量改进之后的HM VNIS Edit，但是这两个软件都已经很久没有更新了，在使用向导创建开发脚本时，不会注意到使用Vista系统引起的问题，所以如果你使用上述两个脚本编辑器 生成脚本的话，就
2020-05-22 19:02:18
281
转载 Delphi 自带了 Base64 编解码的单元
Delphi 自带了 Base64 编解码的单元Delphi 自带了 Base64 编解码的单元，叫 EncdDecd，这名字很拗口而且不直观，估计这是一直很少人关注和知道的原因。 这个单元提供两套四个公开函数： 对流的编解码： procedure EncodeStream(Input, Output: TStream);// 编码 procedure DecodeStream(I...
2020-04-01 16:43:49
397
原创 Delphi7 Indy10 IdHMACSHA1
uses IdHMACSHA1,IdHashSHA,IdGlobal;function IdHMACSHA1(BaseString,HashKey:String):TIdBytes; //OKbegin with TIdHMACSHA1.Create do try Key := ToBytes(HashKey); Result := HashValu...
2020-04-01 16:38:33
1363
原创 Delphi7 获取标准UTC时间
function GetZoneTime:TDateTime;var pTime: _TIME_ZONE_INFORMATION; TimeNow: TDateTime; Bias:LongInt;begin Result := Now; GetTimeZoneInformation(pTime);//获取时区 Bias := pTime.Bias; Time...
2020-04-01 11:04:01
772
原创 阿里云短信接口DLL版，Delphi7可用
//-----------------------------------------------------------------------------//作者：酋长 2017.12.12//备注：自己在写DLL的时候，函数未加StdCall;参数传递一真有问题，搞了一夜才查出来。。。//功能：阿里云短信接口//配置文件：放置2个核心参数，通过INI文件，可以方便的更换//预读取可...
2020-03-31 14:03:14
564
原创 错误: LogSet 已指定，NSIS_CONFIG_LOG 未定义。
未定义 NSIS_CONFIG_LOGSection: "-LogSetOn"错误: 已指定 LogSet , 但未定义 NSIS_CONFIG_LOG .是这样的提示，请问怎么解决呢？代码是用HM VNISEdit 脚本编辑器向导产生代码里都有：!include "LogicLib.nsh"; 激活安装日志记录，该日志文件将会作为卸载文件的依据(注意，本区段必须放置在所有区段之前...
2020-03-22 10:44:46
943
原创 正确的DBGrid导出到EXCEL
网上有很多DBGridToExcel代码都是数据表转EXCEL，连DBGrid的标题栏都没保存进去这段代码是摘自CSDN大神(zpc198600)代码的修改版，增加了序号（字段不在数据表里）显示procedure DBGridToExcel(dbGrid: TDBGrid); // 这才是正确的DBGrid转EXCEL方式，而不是数据表转Excelvar excel...
2020-03-18 10:36:12
498
转载 Delphi做验证码登录
unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;...
2020-03-17 22:05:36
847
转载 sql语句查询最近七天 三十天 数 几个小时内的数据
DATE_SUB(NOW(), INTERVAL 5 HOUR)今天select*from表名whereto_days(时间字段名)=to_days(now());昨天SELECT*FROM表名WHERETO_DAYS(NOW())-TO_DAYS(时间字段名)<=17天SELECT*FROM表名whereDATE_S...
2020-03-16 13:13:23
933
原创 TTreeView的一些小技巧，不断更新中
TreeView有个属性：HideSelection 如果设置成False，那么失去焦点也会有灰底的选中效果选中时的效果：失去焦点的效果：RightClickSelecte = True，右键可以选中...
2020-03-12 14:25:42
250
原创 监控键盘鼠标的动作，实现离位监控
在网上找了很多Hook键盘鼠标，实现离位监控，都不完善，这里根据网友的代码，修改后做了接口调用简单。由于本人对DLL不熟悉，本想直接把接收信息的窗体也做到DLL里的，一是不熟悉，二是时间紧，就没搞了。下来进入正题：把监控键盘鼠标动作的过程，封装成了一个Form窗体 frmKBMHook.pas & dfm // 在工程文件里引用并创建窗体，然后就不用管了，也不用显示...
2020-03-12 01:57:07
592
AliSMSDLL.rar
2020-04-01
KB&MouseHookDll.rar
2020-03-09
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人