2017年1月24日
比较两个文件是否相同（比较两个流是否相等）
function CompareStream(// 比较两个流是否相等 mStream1, mStream2: TStream // 两个流 ): Boolean;// 返回两个流是否相等 var vBuffer1, vBuffer2: array[0..$1000-1] of Char; vLen Read More
posted @ 2017-01-24 22:17 findumars Views(1591) Comments(0) Diggs(0)
WebBrowser执行脚本和调用外部方法
控制WebBrowser实际上就是控制IE，最简单的方法就是执行javascript或vbscript，省去了接口的转换。如何执行脚本？以前我一直用mshtml中IHTMLWindow2接口的execScript()方法，在Delphi中需要uses MSHTML单元： uses MSHTML; p Read More
posted @ 2017-01-24 22:16 findumars Views(2363) Comments(0) Diggs(0)
判断一个窗体是否被完全遮挡（比较有意思，但这招有什么用呢？）
private void Form1_Paint(object sender, PaintEventArgs e){ Text = e.ClipRectangle.Width.ToString();} 在窗体的Paint事件中，有一个ClipRectangle的属性，解释为“获取要在其中进行绘画的矩 Read More
posted @ 2017-01-24 22:12 findumars Views(1534) Comments(0) Diggs(0)
Delphi中用MessageBox()API函数做倒计时对话框（使用Hook安装CBTHookCallback，计时器更改文字，SetWindowText API真正修改文字，引用未知函数）good
API有隐藏的MessageBoxTimeOut函数可以做计时对话框，缺点是不能显示还剩下多少秒关闭。 const IDTIMEDOUT = 32000; function MessageBoxTimeOut(hWnd: HWND; lpText: PChar; lpCaption: PChar;  Read More
posted @ 2017-01-24 21:49 findumars Views(1513) Comments(0) Diggs(0)
Delphi&C#代码模拟“显示桌面”的功能（使用CreateOleObject('Shell.Application')）
今天有人问我：“用shell打开文件(显示桌面.scf)的方式还是用模拟键盘(Win+D)显示桌面”这应该有更好的方法，就搜了搜，关键字定位“ToggleDesktop”因为显示桌面.scf的内容是：[Shell]Command=2IconFile=explorer.exe,3[Taskbar]Co Read More
posted @ 2017-01-24 21:43 findumars Views(1555) Comments(1) Diggs(0)