我們經常可以看到許多生動有趣的動畫滑鼠，其實利用delphi強大的功能，我們完全可以隨心所欲地製作有個人特色的滑鼠。我製作了乙個名為 face的動畫滑鼠，在常態時，它是一張圓圓的臉，臉上有一雙咕嚕嚕亂轉的大睛眼。當按下左（右）鍵時，臉的左（右）眼就眨一下。如果持續按住，則左 （右）眼眨個不停。下面我以這個動畫滑鼠為例，簡述如何製作動畫滑鼠。
首先，在delphi的主選單工具下選影象編輯器，編輯乙個名為face.res的資源檔案，它應該包括個人製作的五個.cur文 件：faceleft.cur（圖為：圓臉上一雙向左看的眼睛），faceright.cur（圖為：圓臉上一雙向右看的眼 睛），plainface.cur（圖為：圓臉上一雙向前看的眼睛），leftshrink.cur(圖為：閉著左眼的圓 臉），rightshrink.cur（圖為：閉著右眼的圓臉）。
做好資源檔案後，開啟乙個新的窗體form1並放置popupmenu元件，把form1的屬性popupmenu置為popupmenu1。然後在unit1的inte***ce段下加入以下**：
並在tform1.formcreate事件內加入以下**：
screen.cursors[1]:=loadcursor(hinstance, pchar(′lfaceleft′))；
screen.cursors[2]:=loadcursor(hinstance, pchar(′faceright′))；
screen.cursors[3]:=loadcursor(hinstance, pchar(′plainface′))；
screen.cursors[4]:=loadcursor(hinstance, pchar(′leftshrink′))；
screen.cursors[5]:=loadcursor(hinstance, pchar(′rightshrink′))；
screen.cursor:=plainface;
在tform1.formclick事件內加入以下**：
screen.cursor:=faceleft;
screen.cursor:=plainface;
在tform1.formkeydown事件內加入以下**：
if button=mbleft then
begin
screen.cursor:=leftshrink;
screen.cursor:=plainface;
end;
if button=mbright then
begin
screen.cursor:=rightshrink;
screen.cursor:=plainface;
end;
……其餘細節，請讀者補充。做完一切，執行它，生成?exe檔案，ok!乙個趣味動畫滑鼠就編制完成，執行它你就可以看到一張生動幽默的圓臉了。當然，你還可以依你的喜好和想象來任意設計其他有趣的動畫滑鼠。
用Delphi編制可自動公升級程式
以下是我們的例子，設我們已經有乙個應用程式this.exe，要對它公升級，用來公升級的程式為upgrade.exe.1 this的工程檔案框架 program this uses sysutils,windows,forms,我們將它寫入 中，因為這在delphi的工程檔案中是沒有自動生成的.部分是...
用ASP技術編制隱藏使用者密碼程式
internet 或intranet 上帶許可權的查詢，只有 合法使用者 才能進入。這種機制是通過web程式實現的。在訪問過程中，如果程式設計得不好，就會將使用者口令暴露在位址列裡 舉乙個例子 superusername john passwd john123，使用者名稱john和密碼john123...
用Delphi發郵件
用delphi發郵件 控制項idsmtp1 tidsmtp idmessage1 tidmessage idsmtp1.host smtp.163.com idsmtp1.port 25 idsmtp1.username 發信人名稱 idsmtp1.password 發信人郵箱密碼 idsmtp1....