Delphi 编程技巧常见实例问答
1.   delphi怎样调用外部EXE文件？  

　　uses   WinProcs;  
　　.  
　　begin  
　　WinExec(……);  
　　.  
　　end.  
　　
　　和调用Pascal库函数没什么两样。  

　　2.   Delphi   hint的字体和色彩如何改变  
　　
　　Delphi中Tapplication的属性有HintColor及HintPause。可以通过设置HintColor改变应用程序中的Hint的颜色、通过设置HintPause改变触发Hint的时间。但遗憾的是：Delphi中Hint的字体不可以改变。  

　　3.   Delphi里如何计算日期  
　　
　　算时间在delphi中是最容易的，如下：  

　　var   ss   :   TDateTime  

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

　　4.   如何用Delphi编ScreenSaver?   (null)  
　　
　　屏幕保护程序无非是扩展名换成了.SCR的可执行程序，它接受两种命令行参数：  
　　s   运行命令参数  
　　c   配置命令参数  
　　Windows通过向程序发-s命令行参数来启动程序。要注意的是：程序的窗口是无边框和标题；窗口大小应与屏幕大小一样；还要注意窗口的事件的处理。  

　　5.   Delphi   中如何改目录的名字  
　　
　　调用RenameFile函数，如:  
　　RenameFile(’c:wang   emp’,   ’c:wang   mp’);  

　　6.   DELPHI显示JPEG图像文件  

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

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

　　(1).在   Uses   中加入   JPEG   单元;  

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

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

　　Canvas.Pen.Color:=clBlack;  
　　Canvas.Pen.Style:=psSolid;  
　　Canvas.Brush.color:=clBtnFace;  
　　Canvas.Brush.Style:=bsSolid;   //此上是设置   Canvas   的一些属性,便于以后  
　　//Clear   Form   and   Load   a   new   JPEG   file;  
　　Ajpeg:=TJpegImage.Create;//动态生成Ajpeg;  
　　Ajpeg.LoadFromFile(’D:Temp.jpg’)   //生成   Ajpeg   后,调入   JPEG   文件

　　(4).在   Form   的   OnPain   事件中加入Canvas.Rectangle(2,2,560,430);   //画一个黑框的矩形将图片围住;  
　　
　　x:=10;   y:=10;  
　　Form1.Canvas.Draw(x,y,Ajpeg);   //以(x,y)为左上角输出   JPEG   文件;  
　　//实际上其作用是当图形被破坏是使图形恢复;  

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

　　begin  
　　if   OpenPictureDialog1.Execute   then  
　　begin  
　　Ajpeg.Free;   //释放旧Ajpeg;  
　　Ajpeg:=TJpegImage.Create;   //产生一个新的Ajpeg;  
　　Ajpeg.LoadFromFile(OpenPictureDialog1.Filename);   //载入JPEG文件;  
　　end;  
　　Canvas.Rectangle(2,2,560,430);   //将Form   Clear;  
　　x:=10;  
　　y:=10;  
　　Form1.Canvas.Draw(x,y,Ajpeg);   //显示新的Ajpeg;  
　　end;

　　8.   DELPHI3启动画面  

　　in   your   *.dbr   files   do   it  
　　begin  
　　{Create   a   splash   form}  
　　splash:=Tsplash.Create(self);  
　　splash.Show;  
　　splash.update  
　　Application.Initialize;  
　　Application.CreateForm(..)  
　　.  
　　.  
　　.  
　　splash.close;  
　　splash.free;  
　　Application.Run  
　　end;


        转

------解决的方法--------------------------------------------------------
好文章
------解决的方法--------------------------------------------------------