一葉輕舟的笔记

本例程已经过验证，使用结构数组和指针的例子。unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    Button1: TButton;    Memo

//中文大写日期  zzh 20171109function ChineseDate(ADate: TDateTime): string;  const  CNC = '〇一二三四五六七八九';  function numtoUpper(Anum: Integer): String;  var    i, n: Integer;    numstr: string;

业务上有需要内嵌一个外部程序，然后，最好把这个外部的程序在桌面上的表现都通通隐藏起来；用户操作起来就比较整洁，心无旁骛...参考网上别人的代码，整理了一下，此过程经在delphi XE2上调试通过，一步到位，分享出来:// 删除指定进程的托盘图标  图标提示包含文字 Astr// 只是删托盘图标 进程不受影响{ uses CommCtrl }procedure Dele

cxGrid原控件条件like 仅是在右边加了 % ,达不到我们常用的 模糊包含 的功能；现改造 cxLike.pas 里面的 LikeStr 函数，使之达到模糊包含的功能；把这个文件复制到你的程序目录或者将以下函数 改造控件安装目录下 如 \DevExpress VCL\ExpressDataController\Sources\cxLike.pas的同名函数；改动完成后, 所有使用该文件做过滤

delphi 谷歌控件CEF3 安装说明可用于delphi的内嵌浏览器控件，自身所带的Twebbrowser(IE)控件，由于IE的版本的问题，可能导致某些网页特性没法发挥；CEF3控件，很好的解决了这个问题，缺点是，发行时需要带上支持的文件，大概有50M左右；本文以delphi xe2 为例解释安装控件步骤。 CEF3用于delphi的控件下载地址:  http://code.g

一、模拟移动鼠标//  SetCursorPos(StrToInt(Edit1.Text),StrToInt(Edit2.Text));  //相对屏幕位置  SetCursorPos(Self.Left+chrm1.Left+strtoint(Edit1.Text),Self.Top+chrm1.Top+strtoint(Edit2.Text));  //相对Chrm位置     

一、遍历网页元素并点击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

Delphi与JS的交互问题：一、执行简单的JS上一篇已经讲过:chrm1.browser.MainFrame.ExecuteJavaScript('alert("abc");','about:blank',0);chrm1.browser.MainFrame.ExecuteJavaScript('function aaa(){alert("abc");}aaa();','about:

用Tchromium替换webbrowser 　　用惯了EmbeddedWB,不想换，但是IE内核一直存在内存泄漏问题，没办法，只有寻找替代品了。　　要把用习惯的EmbeddedWB换成完全不一样的TChromium，有点挑战，特别是在资料不多，英语没过三级的情况下。未来趋势是这样，只有慢慢啃了。　　首先，想到的是跨域，如果不能跨域，就没办法替代手上的成品。TChromium的跨域比想

CEF简介:    嵌入式Chromium框架(简称CEF) 是一个由Marshall Greenblatt在2008建立的开源项目，它主要目的是开发一个基于Google Chromium的Webbrowser控件。CEF支持一系列的编程语言和操作系统，并且能很容易地整合到新的或已有的工程中去。  它的设计思想政治就是易用且兼顾性能。CEF基本的框架包含C/C++程序接口，通过本地库的

function IsWin64: Boolean;var  Kernel32Handle: THandle;  IsWow64Process: function(Handle:THandle; var Res:BOOL):BOOL; stdcall;  GetNativeSystemInfo: procedure(var lpSystemInfo: TSystemInfo); stdcall; 

1、编辑文件UAC.manifest，内容如下：                                                                 2、编辑文件uac.rc，内容如下：1 24 UAC.manifest3.将rc文件编译为res文件：brcc32 UAC.rc   //brcc32 在delphiX\Bin目录下4、函数过程及编译参数：{$

DEPHI MD5 单元