引言： 作者:未名码头
在所开以的应用软件中,有时我们对某些文件进行拷贝（如对数据库进行备份、制作
安装程序），但是常用的一些语言却没有提供可直接进行文件拷贝的过程或函数。
摘要： 在delphi程序设计中，我们需要通过解除建立的所有对象来避免内存泄
漏。但是，如果你在程序中不谨慎小心的话，很容易多次解除同一个对象，
这将会引起很严重的错误，造成应用程序崩溃，甚至是死机。
请看下面的程序：
procedure tform1.button1click(sender:tobject);
var
button2,button3:tbutton;
......
摘要：湖南刘炼
现在软件的界面设计很流行“换肤”（skin）,例如icq、winamp、超级解霸等等。这种技术
的应用可以最大程度的彰显用户的个性，所以一经推出就大受欢迎。其实这种技术实现起来很简
单，下面就是我用delphi 4.0换肤的例子。
首先，在窗体上放一个image控件，一个button控件和一个opendialog控件。
然后，修改属性。将窗体的caption属性......
利用DLL在程序是实现文件拷贝上一页 ...
blockread(sourcef,buf,sizeof(buf),numread);//读源文件
blockwrite(destinef,buf,numread,numwritten);//写目标文件; 【程序编程相关:
[界面]程序启动欢迎窗体(Splash)】 【推荐阅读:
创建网站的 RSS 内容摘要
】
until (numread=0) or (numwritten＜＞numread); 【扩展信息:
在DElphi中的DataGrid怎样使】
closefile(soucef);
closefile(destinef);
end;
esports
copyfile;//输出过程;
end;
以上源程序编译后便生成copf.dll
现就静态调用举例:
unit name;
interface
uses
windows...;
type
tzcform=class(tform)
...
end;
var
form1:tform1;
implementation
procedure copyfile(sfname,dfname:string);far;externalc:\copf;//dll路径名;
{$r *.dfm}
procedure tform1.copybuttonclick(sender:tobject);
begin
...
if fileesist(sfname)//如果源文件;
then copyfile(sfname,dfname);
...
end;
摘要：需要在鼠标离开的时候得到通知吗？看看以下的代码，也许会有帮助。你可以把timage换成其它控件。关键在于对cmmouseleave消息的处理。
unit main;
interface
uses
windows, messages, sysutils, classes, graphics, controls, forms,
extctrls;
type
tmyimage = ......
