- 博客(21)
- 资源 (4)
- 收藏
- 关注
原创 中文大写日期转换函数
//中文大写日期 zzh 20171109function ChineseDate(ADate: TDateTime): string; const CNC = '〇一二三四五六七八九'; function numtoUpper(Anum: Integer): String; var i, n: Integer; numstr: string;
2017-11-09 15:31:30
2422
原创 delphi 隐藏指定程序的托盘图标
业务上有需要内嵌一个外部程序,然后,最好把这个外部的程序在桌面上的表现都通通隐藏起来;用户操作起来就比较整洁,心无旁骛...参考网上别人的代码,整理了一下,此过程经在delphi XE2上调试通过,一步到位,分享出来:// 删除指定进程的托盘图标 图标提示包含文字 Astr// 只是删托盘图标 进程不受影响{ uses CommCtrl }procedure Dele
2017-01-10 15:23:14
2185
原创 CEF3控件的安装
delphi 谷歌控件CEF3 安装说明可用于delphi的内嵌浏览器控件,自身所带的Twebbrowser(IE)控件,由于IE的版本的问题,可能导致某些网页特性没法发挥;CEF3控件,很好的解决了这个问题,缺点是,发行时需要带上支持的文件,大概有50M左右;本文以delphi xe2 为例解释安装控件步骤。 CEF3用于delphi的控件下载地址: http://code.g
2016-11-25 14:04:24
6631
原创 关于 cxGrid 的 filter 中,like 包含条件的改造
cxGrid原控件条件like 仅是在右边加了 % ,达不到我们常用的 模糊包含 的功能;现改造 cxLike.pas 里面的 LikeStr 函数,使之达到模糊包含的功能;把这个文件复制到你的程序目录或者将以下函数 改造控件安装目录下 如 \DevExpress VCL\ExpressDataController\Sources\cxLike.pas的同名函数;改动完成后, 所有使用该文件做过滤
2016-04-27 14:19:54
1183
原创 (转)delphi chrome cef3 控件学习笔记 (五)
一、模拟移动鼠标// SetCursorPos(StrToInt(Edit1.Text),StrToInt(Edit2.Text)); //相对屏幕位置 SetCursorPos(Self.Left+chrm1.Left+strtoint(Edit1.Text),Self.Top+chrm1.Top+strtoint(Edit2.Text)); //相对Chrm位置
2016-04-27 14:19:51
3722
原创 (转)delphi chrome cef3 控件学习笔记 (四)
一、遍历网页元素并点击JS:下面代码为找到淘宝宝贝页面,成交记录元素的代码:for(var i=0;i var d=document.getElementsByTagName("A")[i]; var s=document.getElementsByTagName("A")[i].innerHTML; if(s!=null){ if(s.in
2016-04-27 14:19:48
5829
原创 (转)delphi chrome cef3 控件学习笔记 (三)
Delphi与JS的交互问题:一、执行简单的JS上一篇已经讲过:chrm1.browser.MainFrame.ExecuteJavaScript('alert("abc");','about:blank',0);chrm1.browser.MainFrame.ExecuteJavaScript('function aaa(){alert("abc");}aaa();','about:
2016-04-27 14:19:46
4911
原创 (转)delphi chrome cef3 控件学习笔记 (二)
用Tchromium替换webbrowser 用惯了EmbeddedWB,不想换,但是IE内核一直存在内存泄漏问题,没办法,只有寻找替代品了。 要把用习惯的EmbeddedWB换成完全不一样的TChromium,有点挑战,特别是在资料不多,英语没过三级的情况下。未来趋势是这样,只有慢慢啃了。 首先,想到的是跨域,如果不能跨域,就没办法替代手上的成品。TChromium的跨域比想
2016-04-27 14:19:43
6128
原创 (转)delphi chrome cef3 控件学习笔记 (一)
CEF简介: 嵌入式Chromium框架(简称CEF) 是一个由Marshall Greenblatt在2008建立的开源项目,它主要目的是开发一个基于Google Chromium的Webbrowser控件。CEF支持一系列的编程语言和操作系统,并且能很容易地整合到新的或已有的工程中去。 它的设计思想政治就是易用且兼顾性能。CEF基本的框架包含C/C++程序接口,通过本地库的
2016-04-27 14:19:40
8880
原创 delphi 中判断windows系统是否是64位系统
function IsWin64: Boolean;var Kernel32Handle: THandle; IsWow64Process: function(Handle:THandle; var Res:BOOL):BOOL; stdcall; GetNativeSystemInfo: procedure(var lpSystemInfo: TSystemInfo); stdcall;
2016-04-27 14:19:38
1893
原创 [转]HMAC functions in Delphi (HMAC_SHA256, HMAC_SHA1)
I came across HMAC (Hash-based message authentication code) functions when developing a RESTful client application in Delphi. The RESTful Web Service API required me to send HMAC_SHA256 signatures (Ba
2016-04-27 14:19:35
2798
原创 如何使DELPHI程序在Win7下自动请求以管理员身份运行
1、编辑文件UAC.manifest,内容如下: 2、编辑文件uac.rc,内容如下:1 24 UAC.manifest3.将rc文件编译为res文件:brcc32 UAC.rc //brcc32 在delphiX\Bin目录下4、函数过程及编译参数:{$
2016-04-27 14:19:33
1469
原创 delphi 动态结构数组例程
本例程已经过验证,使用结构数组和指针的例子。unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Memo
2016-04-27 14:19:30
1838
原创 windows 启动选项修改
某些程序必须在特殊的启动环境下才能正常使用,每次开机如果忘按F8进入启动菜单就又得重启;特别是win10启动时并没有选择了,只能启动后进行不少的操作才行,以下命令可以省事:(cmd 以管理员身份执行)禁用数字签名启动:bcdedit.exe -set loadoptions DDISABLE_INTEGRITY_CHECKS//ENABLE_INTEGRITY_CHECKS
2016-04-27 14:19:27
4944
原创 mysql存储过程详解
1. 存储过程简介 我们常用的操作数据库语言SQL语句在执行的时候需要要先编译,然后执行,而存储过程(Stored Procedure)是一组为了完成特定功能的SQL语句集,经编译后存储在数据库中,用户通过指定存储过程的名字并给定参数(如果该存储过程带有参数)来调用执行它。一个存储过程是一个可编程的函数,它在数据库中创建并保存。它可以有SQL语句和一些特殊的控制结构组成。当希
2016-04-27 14:19:22
945
原创 IE不能访问网站故障的一种解决办法
有时,你的电脑不不知什么原因,好端端的,某天浏览器就访问不了网站了!但是奇怪的是,某些联网的软件,是可以连接互联网的;比如你的360/QQ什么的(有可能QQ也有问题,说你的防火墙设置有问题).这些故障,其实是系统的winsock设置产生了变化的原因,简单的方法就是,重置一下就OK了:命令行运行 netsh winsock reset重启系统后一切将恢复正常.
2016-04-27 14:19:19
625
原创 删除win7上多余无效的托盘图标
使用“Win+R”组合键,输入“regedit”打开注册表管理器;打开目录文件夹HKEY_CLASSES_ROOT\Local Settings\Software\Microsoft\Windows\CurrentVersion\TrayNotify,清空IconStreams的值,(或者删除键值之后重建)清空PastIconsStream的值,打开任务管理器,将“explorer.exe”进程终
2016-04-27 14:19:16
758
原创 VS2008 OGRE环境搭建
一、下载需要的软件1. OgreSDK_vc9_v1-8-1.exe (这个目前比较新,当然你也可以下老的版本,大概70M)2.DirectX SDK 开发包 (配合VS2008,建议下载DXSDK_Jun08.exe,如果只使用OpenGl则无需DX)3. cmake-2.8.10.2-win32-x86.exe (非必须软件,但建议下载,去cmake官方找)4.VS2008安装
2016-04-27 14:19:13
386
原创 ubuntu 下 Ogre 引擎开发环境配置
1.安装Ogre sdk打开终端,输入以下命令把Ogre源进入到系统软件源: sudo add-apt-repository ppa:ogre-team/ogre更新包列表: sudo apt-get update安装Ogre开发包: sudo apt-get install libogre-dev2.先决条件开发ogre,在ubuntu上还需要安装一些库打开终端,输入以下命令a.编译器
2016-04-27 14:19:10
3332
CEF3 FOR DELPHI7 - XE10.2 Toko
2018-07-23
chorme组件
2016-04-27
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人