Delphi编程技巧常见实例问答

1.Delphi如何调用外部EXE文件？

使用WinProcs
。
begin
WinExec(……)；
。
结束。
和调用Pascal库函数没什么区别。

2.如何更改Delphi提示的字体和颜色
Delphi中Tapplication的属性有HintColor和HintPause。您可以通过设置HintColor来更改应用程序中提示的颜色，通过设置HintPause来更改触发提示的时间。可惜Delphi中提示的字体是不能改的。

3.如何在delphi中计算日期
在Delphi中计算时间是最简单的，如下:

var ss : TDateTime

实际上，Tdatetime是一个双精度浮点数。它的小数点表示天数:例如ss := ss+20表示距离ss 20天，如果ss = 234.567，则表示234.567天。当然是从公元0年开始算！

4.如何用Delphi编程屏保？(null)
屏幕保护程序只不过是一个扩展名被更改为。scr。它接受两种命令行参数:
-s run命令参数
-c configure命令参数
Windows通过向程序发送-s命令行参数来启动程序。注意:程序的窗口没有边框和标题；窗口大小应与屏幕大小相同；还要注意窗口事件的处理。

5.如何在Delphi中更改目录名
调用RenameFile函数，如:
renamefile ('c: Wang EMP '，' c:Wang MP ')；

6.DELPHI显示JPEG图像文件

只要把JPEG加入到uses中，JPEG单元中就有一个TJPEGImage类，可以定义JPEG这样的变量，用LoadFromFile调用Jpeg文件，然后用Canvas显示。绘制(x，y，Jpeg)表格。

7.在Delphi中处理Jpeg文件…

(1).将JPEG单位添加到用途；

(2).定义一个全局变量，比如var AJPEG:TJPEGImage；

(3).添加:

画布。钢笔颜色:= clBlack
画布。pen . Style:= PS solid；
画布。brush . color:= clBtnFace；
画布。brush . Style:= bs solid；//这是为以后
/clear form设置Canvas的一些属性，加载一个新的JPEG文件；
Ajpeg:=TJpegImage。创建；//动态生成Ajpeg
Ajpeg。load from file(' d:temp . jpg ')//生成JPEG后，在JPEG文件中调用。

(4).在窗体的OnPain事件中添加

画布。矩形(2，2，560，430)；//画一个带黑框的长方形把图片围起来；
x:= 10；y:= 10；
Form1。Canvas.Draw(x，y，Ajpeg)；//输出左上角为(x，y)的JPEG文件；
//其实它的作用是在图形损坏的时候恢复图形；

(5).add:
begin
if openpicturedialog 1。在“加载”或“浏览”按钮的onClick事件中执行然后
开始
JPEG . free；//释放旧的Ajpeg
Ajpeg:=TJpegImage。创建；//生成新的Ajpeg
Ajpeg。LoadFromFile(openpicturedialog 1。文件名)；//加载JPEG文件；
end；
画布。矩形(2，2，560，430)；//清除表单Clear；
x:= 10；
y:= 10；
Form1。Canvas.Draw(x，y，Ajpeg)；//显示新的Ajpeg
end；

8.DELPHI3启动屏幕

在你的*。dbr文件do it
begin
{创建splash表单}
splash:=Tsplash。创造(自我)；
飞溅。展示；
splash.update
应用程序。初始化；
应用程序。创建表单(..)
。
。
。
splash . close；
splash . free；
应用程序。run
end；