有时，只需要用XML作一些小的应用，比如只是简单地保存日志或者一些配置，这时我们只需要直接读写XML就好，效率第一。 Delphi盒子有一个直接读写XML文件 (例子和代码)，其核心函数为下面两个函数（一读一写）： { Fun/Pro: GetXMLNodeValue @Date: 2004.12. ...
delphi 动态获取文件类型的图标.txt我不奢望什么，只希望你以后的女人一个不如一个。真怀念小时候啊，天热的时候我也可以像男人一样光膀子！在应用程序的编写中，组合框（ComboBox）、列表框（ListBox）、等常见的部件，通常不仅要用于显示文字，而且还要显示其与文字相关的图标。在一般的Win ...
//提升进程令牌函数 function AdjustProcessPrivilege(ProcessHandle:THandle;Token_Name:Pchar):boolean; var Token:THandle; TokenPri:_TOKEN_PRIVILEGES; ProcessDest... ...
type personInfo=Record //定义Record Name:String[10]; Age:integer; end; //写记录包括新键与添加记录 procedure WriteRec; var NewRec:PersonInfo; //声明Rec变量 F:File of Per... ...
1.DPR: Delphi Project文件，包含了Pascal代码。应用系统的工程文件2.PAS: Pascal文件，Pascal单元的源代码，可以是与窗体有关的单元或是独立的单元。3.DFM：Delphi Form File,描述窗体或数据模块及其组件属性的二进制文件。窗体界面文件, 同PAS ...
一些程序运行时，会在桌面的右下角显示一个图标（任务栏的右边），这类图标称为 托盘。托盘是一个PNotifyIconDataA类型的结构，要增加托盘图标其实就是对结构PNotifyIconDataA的操作。使用控件CoolTrayIcon是个不错的选择，不过这里也给出简单实现，方便初学者学习。这里给出 ...
elphi 监控文件系统 你是否想为你的Windows加上一双眼睛，察看使用者在机器上所做的各种操作（例如建立、删除文件；改变文件或目录名字）呢？ 这里介绍一种利用Windows未公开函数实现这个功能的方法。 在Windows下有一个未公开函数SHChangeNotifyRegister可以把你的窗 ...
{动态添加导航} var Panl:Tpanel; MainPage,Subpage:TPageControl; TabSheet1: TTabSheet; ToolBar2: TToolBar; Splitter:TSplitter; begin {创建导航树开始} Panl:=Tpanel.Cr ...
unit UntOpenMenu; //download by http://wwww.NewXing.com interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Menus ...
使用CreateMutex函数创建互斥对象 利用Windows系统函数CreateMutex()，找出当前系统是否已经存在指定进程的实例，如果没有则创建一个互斥体。 CreateMutex函数原型如下: function CreateMutex(lpMutexAttributes: PSecurit ...
