Win7 x64 注册表 WOW6432Node
Windows764bit系统的注册表分32位注册表项和64位注册表项两部分。32位应用在操作注册表时，会被重新定向到HKEY_LOCAL_MACHINE\Software\WOW6432Node。所以为了32位应用能够准确操作注册表，需要在TRegistry.Create时加入参数：KEY_WOW64_32KEY(0x0200) 或者 ...
通过WMI获取CPUID和硬盘序列号
以下代码在Delphi2010中编译通过。说明：此程序并非对所有硬盘有效，获取到的硬盘序列号可能为错，但是如果用来做硬件加密，则无需太在意。uses ActiveX,ComObj;Function GetWMIProperty(WMIType, WMIProperty:AnsiString):String;var &nb...
WebBrowser 去掉边框
如果以下代码无法实现，可以通过增加WebBrowser尺寸，然后将边沿用不显示的方法来实现。uses MSHTML; procedure TEVEMusic.WebBrowser1DocumentComplete(ASender: TObject; const pDisp:...
过程与函数 Procedure Function
Delphi的过程没有返回值，以Procedure开始Delphi的函数有返回值，以Function开始，冒号后面是返回值类型过程与函数都可以有参数，也可以没有参数，参数位于小括号里，多个参数以分号分隔，在调用时是用逗号隔开的。过程与函数都以分号结束。让光标停留在过程和函数上，使用Ctrl+Shift+C,Delphi会自动声明这个过程或者函数Delphi与C不同，即...
TrayIcon 让程序运行在托盘
此功能会用到Additional里的TrayIcon控件，如果右键需要打开菜单，还要用到Standard里的PopupMenu控件。以下程序在Windows7系统中，Delphi2010验证通过。//图标信息设置procedure TForm1.FormCreate(Sender: TObject);begin ...
Sender的概念和用法
一.概念Sender就是事件的载体，其类型是Tobject，它告诉Delphi哪个控件接收这个事件并调用相应的的处理过程。Sender往往代表了“事件的触发者”或者说“这个外挂的事件处理函数的调用者”比如：procedure TForm1.Button1Click(Sender: TObject);begin &nb...
字符串转控件名 FindComponent
FindComponent功能是找控件，找到就返回控件，找不到就是nil方法一：Image0.Picture:=(Form3.FindComponent('Image'+IntToStr(i)) as TImage).Picture;方法二：Image0.Picture:=TImage(Form3.FindComponent(...
Windows 在 AppData 中保存数据
“AppData”文件夹包含特定于电脑上的应用的应用设置、文件和数据。此文件夹在默认情况下隐藏在“文件资源管理器”中，并且有三个隐藏的子文件夹：Local、LocalLow和Roaming。在Win7以上系统中，应用程序操作AppData无需特别权限。Roaming：此文件夹(%appdata%)包含可与用户配置文件一起在电脑与电脑间移动的数据（例如，当你...