Delphi 编程技巧常见实例问答

delphi怎样调用外部EXE文件？

uses WinProcs;

begin

WinExec(……);

end

和调用Pascal库函数没什么两样

Delphi hint的字体和色彩如何改变

Delphi中Tapplication的属性有HintColor及HintPause可以通过设置HintColor改变应用程序中的Hint的颜色通过设置HintPause改变触发Hint的时间但遗憾的是Delphi中Hint的字体不可以改变

Delphi里如何计算日期

算时间在delphi中是最容易的如下

var ss : TDateTime

其实Tdatetime是一个双精度的浮点数它的小数点前表示天数如 ss := ss + 表示从ss开始向后天如果 ss = 它就表示 天当然是从公元年开始计算的！

如何用Delphi编ScreenSaver? (null)

屏幕保护程序无非是扩展名换成了SCR的可执行程序它接受两种命令行参数

s 运行命令参数

c 配置命令参数

Windows通过向程序发s命令行参数来启动程序要注意的是程序的窗口是无边框和标题窗口大小应与屏幕大小一样还要注意窗口的事件的处理

Delphi 中如何改目录的名字

调用RenameFile函数如:

RenameFile(c:wang emp c:wang mp);

DELPHI显示JPEG图像文件

只要 uses中加入 JPEG就行JPEG单元里是有一个TJPEGImage类可定义一变量如Jpeg用LoadFromFile调入某个JPEG文件 然后用Form的CanvasDraw(xyJpeg)即可显示

Delphi中对Jpeg格式文件的处理…

()在 Uses 中加入 JPEG 单元;

()定义一个全程变量例如 var AJPEG : TJPEGImage;

()在 Form 的 OnCreate 事件中加入 :

CanvasPenColor:=clBlack;

CanvasPenStyle:=psSolid;

CanvasBrushcolor:=clBtnFace;

CanvasBrushStyle:=bsSolid; //此上是设置 Canvas 的一些属性便于以后

//Clear Form and Load a new JPEG file;

Ajpeg:=TJpegImageCreate;//动态生成Ajpeg;

AjpegLoadFromFile(D:Tempjpg) //生成 Ajpeg 后调入 JPEG 文件

()在 Form 的 OnPain 事件中加入CanvasRectangle(); //画一个黑框的矩形将图片围住;

x:=; y:=;

FormCanvasDraw(xyAjpeg); //以(xy)为左上角输出 JPEG 文件;

//实际上其作用是当图形被破坏是使图形恢复;

()在Load或Browse按钮的 onClick 事件中加入:

begin

if OpenPictureDialogExecute then

begin

AjpegFree; //释放旧Ajpeg;

Ajpeg:=TJpegImageCreate; //产生一个新的Ajpeg;

AjpegLoadFromFile(OpenPictureDialogFilename); //载入JPEG文件;

end;

CanvasRectangle(); //将Form Clear;

x:=;

y:=;

FormCanvasDraw(xyAjpeg); //显示新的Ajpeg;

end;

DELPHI启动画面

in your *dbr files do it

begin

{Create a splash form}

splash:=TsplashCreate(self);

splashShow;

splashupdate

ApplicationInitialize;

ApplicationCreateForm()

splashclose;

splashfree;

ApplicationRun

end;