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

From:http://tw.wingwit.com/Article/program/Delphi/201311/8538.html