摘要：
NI文件在系统配置及应用程序参数保存与设置方面，具有很重要的作用，所以可视化的编程一族，如VB、VC、VFP、Delphi等都提供了读写INI文件的方法，其中Delphi中操作INI文件，最为简洁，这是因为Delphi提供了一个TInifile类，使我们可以非常灵活的处理INI文件。一、有必要了解INI文件的结构：;注释[小节名]关键字=值...INI文件允许有多个小节，每个小节又允许有多个关键字... 阅读全文
摘要：
Delphi不是解释性语言，在很多需要动态维护代码的时候很难处理，自己写一个解释器也不是现有的精力和能力可以完成的，好在Microsoft提供了一个ActiveX组件TScriptControl。这个组件可以完成简单的脚本操作，对VBScript和JavaScript都提供支持。在Delphi中将其加入即可像普通控件一样使用。下面是一个VBScript的消息框示例：以下内容为程序代码: Scrip... 阅读全文
摘要：
[代码] 阅读全文
摘要：
Windows注册表跟踪记录操作系统和各种在系统上安装的应用程序的有关信息。注册表是一个分层数据库。该数据库包含以特定格式表示的配置信息，并且可以直接通过注册表编辑器程序编辑，也可以通过应用程序修改。在早期的Windows版本中，INI文件粗略地完成了这一功能，尽管注册表与INI文件有一些相似之处，但不管怎样，由于组织结构的原因，注册表比传统的INI文件要复杂得多。注册表分成若干个主要部分，各个部... 阅读全文
摘要：
Delphi的IDE是本身就是一个非常精彩的软件，其中涵含了许多非常宝贵的软件知识。IDE中有一个窗体设计器，控件放在里面，就可以随意移动，以及调整大小，如果能够自己实现一个类似于这样的窗体设计器，那真是一件非常美妙事情。本文实现的就是窗体设计器中最重要的部分，一个移动控件的类，控件要求从TControl继承下来，在介绍如何实现之前，先说说这个类的用法：其中有两个类：TDragClass就是实现拉... 阅读全文
摘要：
var SHExecInfo: SHELLEXECUTEINFO; begin //截图前隐藏主程序窗口 Form1.Hide; //等待截图执行完成 SHExecInfo.cbSize := sizeof(SHELLEXECUTEINFO); SHExecInfo.fMask := SEE_MASK_NOCLOSEPROCESS; SHExecInfo.Wnd :... 阅读全文
摘要：
本文最早在编程论坛上发表，文章地址：http://programbbs.com/bbs/view12-17207-1.htm，相关文件可以在上述地址的页面中下载。转载时请注明出处。前言 一日发现SendInput对某程序居然无效，无奈只好开始研究WinIo。上网查了很多资料，发现关于WinIo模拟鼠标键盘的资料很少，有的也只是支言片语讲的不是很详细，而且大部分都是关于模拟键盘的。自己写了一些程序... 阅读全文
摘要：
本文最早在编程论坛上发表，文章地址：http://programbbs.com/bbs/view12-17219-1.htm，相关文件可以在上述地址的页面中下载。转载时请注明出处。前言 发了一篇《Delphi下利用WinIo模拟鼠标键盘详解》（http://programbbs.com/bbs/view12-17207-1.htm），再发一个利用SendInput模拟键盘鼠标的程序，以作对比。一... 阅读全文
摘要：
利用TBDBitmapData对象查找两张图片上的不同，从右上角开始利用双层循环遍历两图上的所有象素点，并相互比较。不完整代码如下：procedure TForm1.Button5Click(Sender: TObject);var Bmp1,Bmp2 : TBDBitmapData; Left,Top : Integer; IsExit : Boolean;begin Bmp1:=TBD... 阅读全文
摘要：
前言 最近有好几个朋友都在问我找图找色的问题，奇怪？于是乎写了一个专门用于找图找色的单元文件“BitmapData.pas”。在这个单元文件中我实现了从文件中导入位图、屏幕截图、鼠标指针截图、在图片上查找子图、在图片上查找颜色等功能。在查找过程中可以设定颜色变化范围、可以从左到右从上到下查找、也可以从指定点向四周查找。关于这个文件的下载和使用，可以参考本文的第四节。下面详... 阅读全文
摘要：
function PrintWindow(SourceWindow: hwnd; Destination: hdc; nFlags: cardinal): bool; stdcall; external 'user32.dll' name 'PrintWindow'; procedure TForm1.btn1Click(Sender: TObject); var bmp : TBitm... 阅读全文
摘要：
procedure TForm1.btn1Click(Sender: TObject); var c:TCanvas; begin c:= TCanvas.Create; c.Pen.Width := 5; c.Font.Size := 20; c.Font.Name := '微软雅黑'; c.Font.Color := clRed; c.Brush.Color :... 阅读全文
摘要：
Windows API（应用程序接口）是Windows系列软件为程序开发人员提供的火力强大的“武器库”，在这个武器库中，有很多极具威力的武器，SendMessage就是其中之一，它的功能非常丰富，灵活使用这个函数，会给编程工作带来很多便利。本文以Visual Basic为例，结合几个具体的例子介绍该函数的功能。一、SendMeaasge函数简介顾名思义，SendMessag... 阅读全文