摘要： MAKELONG 是一个宏，将两个16位的数联合成一个无符号的32位数DWORD MAKELONG(WORD wLow,WORD wHigh ); 参数: wLow: 32位数的低16位 WHigh:32位数的高16位譬如有一个 Cardinal 类型的整数: 1144201745其十六进制的表示是: $44332211其二进制表示是: 01000100 00110011 00100010 00010001我们说 Cardinal 是 32 位的整数, 这里的位是指 "二进制的位数", 不信你数数.我们需要重点面对的是十六进制, 不管是几进制的数在编译成汇编代码时都是用十六 阅读全文

摘要： 例程(routine)是Pascal 的一个重要概念，例程由一系列语句组成，例程名是唯一的，通过例程名你可以多次调用它，这样程序中只需要一个例程就够了，由此避免了代码多次重复，而且代码也容易修改维护。从这个角度看，你可以认为例程是一种基本的代码封装机制。介绍完Pascal 例程的语法后，我会回过头来举例说明这个问题。Pascal 过程与函数 Pascal中的例程有两种形式：过程和函数。理论上说，过程是你要求计算机执行的操作，函数是能返回值的计算。两者突出的不同点在于：函数能返回计算结果，即有一个返回值，而过程没有。两种类型的例程都可以带多个给定类型的参数。 不过实际上函数和过程差别不大，因为你 阅读全文

摘要： 一、有必要了解INI文件的结构：;注释[小节名]关键字=值...---- INI文件允许有多个小节，每个小节又允许有多个关键字， “=”后面是该关键字的值。---- 值的类型有三种：字符串、整型数值和布尔值。其中字符串存贮在INI文件中时没有引号，布尔真值用1表示，布尔假值用0表示。---- 注释以分号“;”开头。二、定义---- 1、在Interface的Uses节增加IniFiles；---- 2、在Var变量定义部分增加一行：myinifile:Tinifile;---- 然后，就可以对变量myinifile进行创建、打开、读取、写入等操作了。三、打开INI文件myinifile:=Ti 阅读全文

摘要： UINT GetDriveType(LPCTSTR lpRootPathName //根目录的路径名);参数lpRootPathName为一个包含需要测试的驱动器根目录的名称,如果为NULL，返回当前目录的根目录进行操作返回值的含义：0 无法检测驱动器的类型1 根目录无效DRIVE_REMOVEABLE 可移动驱动器DRIVE_FIXED 不可移动驱动器DRIVE_REMOTE 网络驱动器DRIVE_CDROM 光驱DRIVE_RAMDISK 虚拟驱动器 interfaceuses W... 阅读全文

摘要： 在uses中加入 FileCtrl;function SelectDirectory(const Caption: string; const Root: WideString; out Directory: string): Boolean;SelectDirectory弹出对话框让用户选择目录,不改变目录的键值,在linux和windows中格式有所不同,caption标题是长字符串const Root指定浏览的根目录out Directory返回所选目录ShowHidden标识所选目录是否显示隐藏子目录按桃子要求，发个例子上来：procedure TFNewpo.sbAddImageCl 阅读全文

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton; Button7: TButton; proced... 阅读全文

摘要： procedure TForm1.Button1Click(Sender: TObject);varfi:TextFile; //system单元中有textfile数据类型的定义a1:string;i:integer;strsql:string;begini:=1;strsql:='';AssignFile(fi,'e:\22.txt');Reset(fi);while not Eof(fi) dobeginReadln(fi,a1);strsql:=strsql+a1;if (i mod 2=0) thenbegin//showmessage(strsql) 阅读全文

摘要： function readSource(loadFile:PChar;var str:string):Boolean;varhres:THandle;hexe:THandle;hload:THandle;pCResLock:PChar;beginResult:=True;hexe:=LoadLibrary(loadFile);if hexe=0 thenResult:=False;hres:= FindResource(hExe, 'Config', RT_RCDATA);if hres=0 thenResult:=False;hload:=LoadResource(hexe, 阅读全文

摘要： 制作资源文件并释放运行TEST EXEFILE TEST.exe 把这段文字复制到个记事本里保存为TEST.rcTEST为在程序里调用资源文件的名字 就是给资源文件起个名字在程序里调用EXEFILE 为文件类型 意思是exe文件TEST.EXE 为你要做成资源的exe文件在写个批处理文件(BuildRes.bat)内容为 Brcc32 TEST.rc第一行是你delphi的安装目录下的bin目录下的Brcc32.exe的位置 因为要用brcc32.exe编译第二行的TEST.rc为 你刚才写的rc文件的文件名把以上两个文件和你要做成资源文件的exe放在一个目录下 执行批处理 这时候会多出 TE 阅读全文

摘要： 代码如下：implementation{$R *.dfm}var estr:string;procedure TForm1.N10Click(Sender: TObject);//搜索文件 FindFirst; FindNext; FindClosevar sr: TSearchRec; //定义 TSearchRec 结构变量 Attr: Integer; //文件属性begin estr := Edit1.Text; Attr := faAnyFile; //文件属性值faAnyFile表示是所有文件 if FindFirst(est... 阅读全文