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;

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