业余的程序员用VB,真正的程序员用VC,聪明的程序员用Delphi
看实例学Delphi编程思路和技巧
在编程爱好者中流传着这样一句话:“业余的程序员用VB,真正的程序员用VC,聪明的程序员用Delphi”。这当然不尽贴切,但从中不难体会到Delphi作为Windows下的主要编程工具之一,其功能完善、灵活多变且易学易用的特点。
下面,我们就通过四则具体的实例来学习Delphi编程的一般思路和技巧。
将程序加入启动
Windows自启动的信息存放于注册表HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run中,Delphi为程序员提供了专用于注册表操作的类型TRegistry:首先利用它声明一个变量,变量的RootKey属性表明当前是对哪一个根键进行操作;使用变量的OpenKey方法打开子键,使用ReadString方法读子键内容,使用WriteString方法写入子键内容。可以自定义一个过程AutoRun来实现此功能,格式为:AutoRun(任意名称,要自动运行的程序名)。实例如下:
implementation
uses Registry; //声明注册表单元
procedure AutoRun(sCaption,sExeName:string); //sCaption为项目名称,sExeName为程序名
var
RegF:Tregistry; //定义变量RegF
begin
RegF:=Tregistry.Create; //创建变量
RegF.RootKey:=HKEY_LOCAL_MACHINE; //指定要操作的根键
if RegF.Openkey('Software\Microsoft\
Windows\CurrentVersion\Run',true) then
RegF.WriteString(sCaption,sExeName);
RegF.Free; //释放变量
end;
procedure TForm1.Button1Click(Sender:TObject);
begin
AutoRun('MyAutoRun',Paramstr(0)); //调用过程,Paramstr(0)函数返回带路径的程序名
end;
实现文件拷贝
在本例中,我们使用数据压缩的API函数LZCopy来实现一个文件拷贝的过程,其调用格式为:CopyFile(源文件名,目标文件名。
implementation
uses LZExpand;
procedure CopyFile(sFileName,dFileName:String);
var sFile,dFile:file;
begin
AssignFile(sFile,sFileName);
Reset(sFile);
AssignFile(dFile,dFileName);
Rewrite(dFile);
LZCopy(TFileRec(sFile).Handle,TFileRec
(dFile).Handle);
CloseFile(sFile);
CloseFile(dFile);
end;
避免多次打开同一程序
Windows是一个多任务的操作系统,允许用户同时打开多个实例,但这样做有可能会造成不良后果。例如:自己设计屏幕保护程序时,只要屏保程序已经被打开运行,就不能再运行其第二个实例;如果不加以限制,则可能出现每隔一定时间就运行一个屏保程序的不正常情况。
要使系统只能打开程序的一个实例,需要对工程文件(*.dpr)进行少许改动,使用API函数FindWindow,其格式为:FindWindow(窗体类名,窗体标题),返回一个窗体的句柄或零(如果没有找到窗体)。假设程序主窗体的标题为MainForm,则工程文件的具体代码如下:
program Project1;
uses Forms,Windows, Unit1 in 'Unit1.pas' {Form1};
var Hwnd:THandle;
begin
Hwnd:=FindWindow('TForm1','MainForm'); //查找是否已有窗体MainForm
if Hwnd<>0 then begin
SetForegroundWindow(Hwnd); //激活已运行的程序实例,但程序最小化时无效
Application.Terminate; //终止本次实例
end
else begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;//运行本次实例
end;
end.
限制窗体的大小
当编程者为窗体选择可变化的边框时,用户可以按自己的意愿拖动边框,改变窗体大小。Delphi为窗体和所有控件提供了一个特殊的属性:Constraints。只需为Constraints属性的子属性设置合适的最大值与最小值,就能建立一个大小不超过指定限制的窗体或控件。我们可以将这些语句放在窗体创建事件中(FormCreate):
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.Height:=200;
form1.Width:=300;
form1.Constraints.MaxHeight:=400;
form1.Constraints.MaxWidth:=600;
form1.Constraints.MinHeight:=100;
form1.Constraints.MinWidth:=150;
end;