引言: 作者:未名码头
在所开以的应用软件中,有时我们对某些文件进行拷贝(如对数据库进行备份、制作
安装程序),但是常用的一些语言却没有提供可直接进行文件拷贝的过程或函数。
摘要: 在delphi程序设计中,我们需要通过解除建立的所有对象来避免内存泄
漏。但是,如果你在程序中不谨慎小心的话,很容易多次解除同一个对象,
这将会引起很严重的错误,造成应用程序崩溃,甚至是死机。
请看下面的程序:
procedure tform1.button1click(sender:tobject);
var
button2,button3:tbutton;
......
摘要:湖南刘炼
现在软件的界面设计很流行“换肤”(skin),例如icq、winamp、超级解霸等等。这种技术
的应用可以最大程度的彰显用户的个性,所以一经推出就大受欢迎。其实这种技术实现起来很简
单,下面就是我用delphi 4.0换肤的例子。
首先,在窗体上放一个image控件,一个button控件和一个opendialog控件。
然后,修改属性。将窗体的caption属性......
利用DLL在程序是实现文件拷贝作者:未名码头
【程序编程相关:
[界面]程序启动欢迎窗体(Splash)】 【推荐阅读:
创建网站的 RSS 内容摘要
】
在所开以的应用软件中,有时我们对某些文件进行拷贝(如对数据库进行备份.制作 【扩展信息:
在DElphi中的DataGrid怎样使】
安装程序),但是常用的一些语言却没有提供可直接进行文件拷贝的过程或函数.为此
,我曾利用delphi编制了可提供文件拷贝过程的动态连接库copy.dll,其输出过程为
copyfile.由于dll具有简化编程.运行速度快等诸多优点,且不受编程语言的限制,
用delphi编写的copf.dll同样被vb.vc等面向对象语言进行静态或动态调用,人而方便
地在程序中实现文件拷贝.
附源程序如下:
library copf;
uses
sysuntils,classes;
procedure copyfile(sfname.dfname:string):far;export;//带路径的文件名;
var
sourcef,destinef:file;
numread,numwritten:integer;
buf:array[1..4096] of char;//定义缓冲区;
begin
assignfile(sourcef,dfname);
reset(sourcef,1);
assignfile(destinef,1);
rewrite(destinef,1);
repeat ...
下一页 摘要:需要在鼠标离开的时候得到通知吗?看看以下的代码,也许会有帮助。你可以把timage换成其它控件。关键在于对cmmouseleave消息的处理。
unit main;
interface
uses
windows, messages, sysutils, classes, graphics, controls, forms,
extctrls;
type
tmyimage = ......