Delphi的8个技巧

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\temp c:\wang\tmp);

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