Delphi Base

WindSon

导航

2020年3月16日 #

如何让tcxGrid左边显示序号

摘要: 第一步: 设置cxgrid的属性, OptionsView.Indicator = True 第二步: 写OnCustomDrawIndicatorCell方法 procedure TForm1.cxGrid1DBTableView1CustomDrawIndicatorCell(Sender: T 阅读全文

posted @ 2020-03-16 17:09 windsonvip 阅读(606) 评论(1) 推荐(2) 编辑

批处理脚本自动以管理员权限运行

摘要: :::::::::::::::::::::::::::::::::::::::::::: :: Elevate.cmd - Version 4 :: Automatically check & get admin rights :::::::::::::::::::::::::::::::::::: 阅读全文

posted @ 2020-03-16 17:06 windsonvip 阅读(1037) 评论(0) 推荐(0) 编辑

Delphi编写的一款锁屏小工具

摘要: Delphi编写的一款锁屏小工具,双击程序立即锁屏,木有界面的。解除锁屏密码:alt+空格。 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, D 阅读全文

posted @ 2020-03-16 16:21 windsonvip 阅读(575) 评论(0) 推荐(0) 编辑

Delphi字符串加密解密函数

摘要: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Bu 阅读全文

posted @ 2020-03-16 16:08 windsonvip 阅读(1006) 评论(0) 推荐(0) 编辑

Delphi 增加/获得windows用户帐号

摘要: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; typeUSER_INFO_1 = r 阅读全文

posted @ 2020-03-16 15:52 windsonvip 阅读(316) 评论(0) 推荐(0) 编辑

WIN2012域用户添加和批量添加工具

摘要: WIN2012域用户添加和批量添加,不需要进行复杂的进电脑管理去添加 直接在软件上就可单个用户添加,可批量添加,并把指定的用户加入组 可以自定义组织单位,使用起来比较简单方便。 链接:https://pan.baidu.com/s/1MtgZfSBi0Op6TQLEEFw-Pw 提取码:bgcw 阅读全文

posted @ 2020-03-16 15:43 windsonvip 阅读(824) 评论(1) 推荐(0) 编辑

Win7共享账号切换程序

摘要: 服务器共享目录需要多账号登录时,需要重启电脑才可切换不同账号登 为了不重启电脑就可立即切换不同账号登,特意写了此款软件, 下载: 链接:https://pan.baidu.com/s/1g_4SCXldoCFDBZgD6ncKAg 提取码:pzf9 阅读全文

posted @ 2020-03-16 15:27 windsonvip 阅读(344) 评论(1) 推荐(0) 编辑

2019年1月20日 #

关于DevExpress VCL汉化方法

摘要: 用法1:在工程中加入控件cxLocalizer; 在程序中加入如下语句: Localizer.LoadFromFile(‘DevLocal.ini‘); Localizer.Language := '中文(简体,中国)'; Localizer.Active := true; 用法2:用DevExpr 阅读全文

posted @ 2019-01-20 00:05 windsonvip 阅读(987) 评论(0) 推荐(0) 编辑

2019年1月19日 #

数据库查询显示一年中所有的周一到周五的数据

摘要: select count(*) from weixiuguanli where weixiuzt= '待维修'select * from weixiuguanli where weixiuzt= '待维修' select top 5 * from WeiXiuGuanLi Order By baox 阅读全文

posted @ 2019-01-19 01:03 windsonvip 阅读(1591) 评论(0) 推荐(0) 编辑