DELPHI第三方元件的簡單安裝方法

DELPHI安裝第三方元件，可以按照元件提供的檔類型對號入座進行安裝：
1、DCU檔——DCU檔是作者已編譯好的單元檔，是沒有元件的原始碼。安裝時注意版本要和DELPHI一致。
方法：點擊Component，選擇install component，在對話方塊"into existing package"頁中，單擊“Unit file name”後的“Browse”按扭，在打開的文件對話方塊中，將“文件類型”設定為*.dcu，找到要安裝的DCU檔，按OK按鈕返回"into existing package"頁後再按OK按鈕就可以安裝了。
此時Delphi會提示dclusr.dpk將被重建，是否繼續，這裏是將這個元件安裝到dclusr.dpk包中，（此包是用戶自定義元件包，當然我們也可以選擇安裝到一個新的包中），點OK即可。
安裝完畢會有已經將元件註冊完的提示資訊以及安裝到哪個元件頁中的資訊等，到元件面板上看看，一般會出現一個新的元件頁，其中有剛安裝的元件。
##CONTINUE##
2、PAS檔——這是元件的原始碼。
方法：跟1類似，只需要將“檔類型”設定為*.pas 即可。
3、DBK元件包——一般是由多個元件構成的，也就是說安裝後會有多個元件供使用。
方法：一般給元件包都有提供安裝說明，仔細看說明按步驟安裝即可。
如果沒有安裝說明也可以按下面步驟安裝在File功能表下，選擇”OPEN…”打開dpk文件(文件類型列表框中選*.dpk)，在出現的Package視窗中，工具欄上有Install按鈕，按此按鈕即可進行安裝。如果Install按鈕處於無效狀態，那麼先按Compile按鈕編譯，一般來說編譯之後Install按鈕就會處於有效狀態，此時再按Install按鈕就可以了。
4、BPL元件包——一般來說這也是由多種元件構成的元件包，它其實是一個動態連接庫檔（DLL）。
方法：點擊Component，選擇install packages，然後單擊Add按鈕，在打開的檔對話方塊中找到相應的bpl文件打開返回後，再單擊Ok按鈕就可以了。
5、ActiveX控制項
方法：安裝這類控制項，需要先用regsvr32.exe註冊，然後點擊Component，選擇Import ActiveX Control項。在Import ActiveX Control打開的視窗中，只有已經註冊的ActiveX控制項才出現在列表中，選中一個然後按Install按鈕就可以安裝了。如果事先沒有用regsvr32.exe註冊也可以按ADD按鈕找到OCX檔即時註冊，註冊後再進行安裝。
隨便提下元件的刪除方法：點擊Component，選擇install packages，在列表中找到安裝所在的Bpl，按Remove按鈕，最後再把電腦中對應的Bpl檔刪掉就OK。

將數字轉為英文貨幣表示

package com.fh.dp; import java.text.DecimalFormat; public class dpjcMoney { private double dMoney; public dpjcMoney(double money){ dMoney=money; } public String getMoney(){ return ConvertNum2US(dMoney); } protected static String getOneUnit(int i){ String rs=""; switch(i) { case 0: rs=""; break; case 1: rs= "ONE";break; case 2: rs= "TWO";break; case 3: rs= "THREE";break; case 4: rs= "FOUR";break; case 5: rs= "FIVE";break; case 6: rs= "SIX";break; case 7: rs= "SEVEN"; break; case 8: rs= "EIGHT";break; case 9: rs= "NINE"; } return rs; } protected static String getTenUnit(int i){ String rs=""; switch (i) { case 10: rs = "TEN";break; case 11: rs = "ELEVEN";break; case 12: rs = "TWELVE";break; case 13: rs = "THIRTEEN";break; case 14: rs = "FOURTEEN";break; case 15: rs = "FIFTEEN";break; case 16: rs = "SIXTEEN";break; case 17: rs = "SEVENTEEN";break; case 18: rs = "EIGHTEEN";break; case 19: rs = "NINETEEN";break; } return rs; } protected static String getTwoUnit(int i){ String s,rs; int d1,d2; s = String.valueOf(i); d1=Integer.parseInt(s.substring(0,1)); d2=Integer.parseInt(s.substring(1,2)); switch (d1){ case 2: rs = "TWENTY";break; case 3: rs = "THIRTY";break; case 4: rs = "FORTY";break; case 5: rs = "FIFTY";break; case 6: rs = "SIXTY";break; case 7: rs = "SEVENTY";break; case 8: rs = "EIGHTY";break; default : rs = "NINETY";break; } return rs + " " + getOneUnit(d2); } protected static String getMoneyUnit(int digit){ String rs=""; if ((digit>=3)&&(digit<=17)) { if(digit%3==0){ rs = " HUNDRED "; } if((digit==4)||(digit==5)){ rs = " THOUSAND "; } if((digit==7)||(digit==8)){ rs = " MILLION "; } if((digit==10)||(digit==11)){ rs = " BILLION "; } if((digit==13)||(digit==14)){ rs = " TRILLION "; } if((digit==16)||(digit==17)){ rs = " QUADRILLION "; } } return rs; } // 將數字轉為英文貨幣表示 protected String ConvertNum2US(double Num){ int i, lenInt; long integral; long decimal; String strInt, strDecimal; String strFull; String[] saInt;; String dollar="", cent; integral = (int)Num; //取得整數 DecimalFormat df=new DecimalFormat("0.00"); // System.out.println("df.format(Num) "+df.format(Num)); strDecimal=df.format(Num).substring(String.valueOf(integral).length()+1); decimal=Integer.parseInt(strDecimal); //取得小數 // System.out.println("strDecimal "+strDecimal); // System.out.println("decimal "+decimal); if (integral<10){ strInt = String.valueOf(integral+100).substring(1); //整數位轉為字串不足兩位前補零 }else{ strInt=String.valueOf(integral); } lenInt = strInt.length(); saInt=new String[lenInt]; strFull = strInt + '.' + strDecimal; for (i=0;i＜lenInt;i++){ saInt[i] = String.valueOf(strInt.charAt(i)); } switch (lenInt){ case 1: case 2: switch (Integer.parseInt(saInt[0])){ case 0: dollar = getOneUnit(Integer.parseInt(saInt[1]));break; case 1: dollar = getTenUnit((int)integral);break; default: dollar = getTwoUnit((int)integral);break; } //--- 小數部分 switch (Integer.parseInt((strDecimal.substring(0,1)))){ case 0: cent = getOneUnit(Integer.parseInt(strDecimal.substring(1, 2)));break; case 1: cent = getTenUnit((int)decimal);break; default: cent = getTwoUnit((int)decimal);break; } if (cent !="") { if (dollar !="") cent = "AND " + cent; if (decimal == 1) cent = cent + " CENT"; else cent = cent + " CENTS"; } if (dollar == "") { dollar = cent; } else{ if (integral == 1) dollar = dollar + " DOLLAR " + cent + " ONLY"; else dollar = dollar + " DOLLARS " + cent + " ONLY"; } //--- break; case 3: case 4: case 6: case 7: case 9:case 10:case 12:case 13:case 15:case 16: dollar = getOneUnit(Integer.parseInt(saInt[0])); dollar = dollar + getMoneyUnit(lenInt) + ConvertNum2US(Double.parseDouble(strFull.substring(1))); break; case 5:case 8:case 11:case 14:case 17: switch (Integer.parseInt(saInt[0])){ case 1: dollar = getTenUnit(Integer.parseInt(saInt[0] + saInt[1]));break; default: dollar = getTwoUnit(Integer.parseInt(saInt[0] + saInt[1]));break; } dollar = dollar + getMoneyUnit(lenInt) + ConvertNum2US(Double.parseDouble(strFull.substring(2)));break; } return dollar; } }

顯示出被隱藏的系統檔

選擇“顯示隱藏檔”這一選項後，發現隱藏檔閃出來一下就馬上又消失了，而再打開資料夾選項時，發現仍就是“不顯示隱藏檔”這一選項。 開始—>執行—>regedit HKEY_LOCAL_MACHINE\Software\Microsoft\windows\CurrentVersion\explorer\Advanced\Folder\Hidden\SHOWALL 刪除CheckedValue鍵值，單擊右鍵 新建—>Dword值—>命名為CheckedValue，然後修改它的鍵值為1，這樣就可以選擇“顯示所有隱藏檔”和“顯示系統檔”

將數字轉為英文貨幣表示

function ConvertNum2US(Num: Extended): string; //將數字轉為英文貨幣表示 var i, lenInt: integer; integral: int64; decimal: int64; strInt, strDecimal: string; strFull: string; saInt: array of string; dollar, cent: string; begin integral := Trunc(Num); //取得整數 decimal := Round((Num - integral) * 100); //取得小數 strInt := btInsZeno(integral, 2); strDecimal := btInsZeno(decimal, 2); strFull := strInt + '.' + strDecimal; lenInt := Length(strInt); SetLength(saInt, lenInt); for i := 0 to lenInt - 1 do saInt[i] := strInt[i + 1]; case lenInt of 1..2: begin case StrToInt(saInt[0]) of 0: dollar := getOneUnit(StrToInt(saInt[1])); 1: dollar := getTenUnit(integral); 2..9: dollar := getTwoUnit(integral); end; //--- 小數部分 case StrToInt(LeftStr(strDecimal, 1)) of 0: cent := getOneUnit(StrToInt(RightStr(strDecimal, 1))); 1: cent := getTenUnit(decimal); 2..9: cent := getTwoUnit(decimal); end; if cent <> '' then begin if dollar <> '' then cent := ' AND ' + cent; if decimal = 1 then cent := cent + ' CENT' else cent := cent + ' CENTS'; end; if dollar = '' then dollar := cent else begin if integral = 1 then dollar := dollar + ' DOLLAR ' + cent + ' ONLY' else dollar := dollar + ' DOLLARS ' + cent + ' ONLY'; end; //--- end; 3, 4, 6, 7, 9, 10, 12, 13, 15, 16: begin dollar := getOneUnit(StrToInt(saInt[0])); dollar := dollar + getMoneyUnit(lenInt) + ConvertNum2US(StrToFloat(btCutStr(2, strFull))); end; 5, 8, 11, 14, 17: begin case strtoint(saInt[0]) of 1: dollar := getTenUnit(strToInt(saInt[0] + saInt[1])); 2..9: dollar := getTwoUnit(strToInt(saInt[0] + saInt[1])); end; dollar := dollar + getMoneyUnit(lenInt) + ConvertNum2US(StrToFloat(btCutStr(3, strFull))); end; end; Result := dollar; end;

模擬點滑鼠

mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,GetMessageExtraInfo()); mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,GetMessageExtraInfo ());

Windows XP Repaire

在第一部分中，您會啟動「修復主控台」，並建立暫存資料夾，再將現有的登錄檔案備份到新的位置，然後刪除現有位置上的登錄檔案，再從修復 (Repair) 資料夾中將登錄檔案複製到 System32Config 資料夾。完成這個程序時，您就建立了可以用來啟動 Windows XP 的登錄。這個登錄原本是在 Windows XP 的初始安裝期間所建立並儲存的 因此，在安裝程式完成之後所進行的任何變更及設定都會遺失。。##CONTINUE##

請依照下列步驟執行，完成第一部分： 1. 將 Windows XP 開機磁片插入軟碟機，或將 Windows XP 光碟插入光碟機，然後重新啟動電腦。
如果出現提示，請選取從光碟機啟動電腦所需要的任何選項。
2. 出現「歡迎使用安裝程式」畫面時，請按 R，啟動「修復主控台」。
3. 如果您的電腦使用雙開機方式或多開機方式，請從「修復主控台」選取您必須使用的安裝。
4. 出現提示時，請輸入系統管理員的密碼。如果系統管理員密碼是空白，請按下 ENTER。
5. 在「修復主控台」的命令提示字元中，輸入下列命令列，並在每一行之後按下 ENTER：
md tmp
copy c:windowssystem32configsystem c:windowstmpsystem.bak
copy c:windowssystem32configsoftware c:windowstmpsoftware.bak
copy c:windowssystem32configsam c:windowstmpsam.bak
copy c:windowssystem32configsecurity c:windowstmpsecurity.bak
copy c:windowssystem32configdefault c:windowstmpdefault.bak

delete c:windowssystem32configsystem
delete c:windowssystem32configsoftware
delete c:windowssystem32configsam
delete c:windowssystem32configsecurity
delete c:windowssystem32configdefault

copy c:windowsrepairsystem c:windowssystem32configsystem
copy c:windowsrepairsoftware c:windowssystem32configsoftware
copy c:windowsrepairsam c:windowssystem32configsam
copy c:windowsrepairsecurity c:windowssystem32configsecurity
copy c:windowsrepairdefault c:windowssystem32configdefault

6. 輸入 exit 以結束「修復主控台」。您的電腦會重新啟動。
注意 這項程序假設您將 Windows XP 安裝在 C:Windows 資料夾中。如果是不同位置的話，請務必將 C:Windows 切換至適當的 windows_folder。

如果您能夠存取另一部電腦，則可以將步驟 2 中的文字複製下來，並建立名為 Regcopy1.txt (建議名稱) 的文字檔案，以節省時間。如果要建立這個檔案，請在啟動「修復主控台」之後執行下列命令：
batch regcopy1.txt
「修復主控台」中的 batch 命令可以讓您依序執行文字檔案中的所有命令。您只要使用 batch 命令，就可以不用手動輸入每一道命令。

DBGrid滑鼠滾輪定位

procedure TfmPors.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); var i: SmallInt; begin if Msg.message = WM_MOUSEWHEEL then begin Msg.message := WM_KEYDOWN; Msg.lParam := 0; i := HiWord(Msg.wParam) ; if i > 0 then Msg.wParam := VK_UP else Msg.wParam := VK_DOWN; Handled := False; end; end;

Delphi Form移到視窗邊緣自動隱藏

private FAnchors: TAnchors; procedure WMMOVING(var Msg: TMessage); message WM_MOVING; procedure TfmMain.FormCreate(Sender: TObject); begin Timer1.Enabled := False; Timer1.Interval := 200; FormStyle := fsStayOnTop; Top:=0; Top := Min(Max(0, Top), Screen.Height - Height); if Top = 0 then Include(FAnchors, akTop); Timer1.Enabled := FAnchors <> []; end; procedure TfmMain.WMMOVING(var Msg: TMessage); begin inherited; with PRect(Msg.LParam)^ do begin Left := Min(Max(0, Left), Screen.Width - Width); Top := Min(Max(0, Top), Screen.Height - Height); Right := Min(Max(Width, Right), Screen.Width); Bottom := Min(Max(Height, Bottom), Screen.Height); FAnchors := []; if Left = 0 then Include(FAnchors, akLeft); if Right = Screen.Width then Include(FAnchors, akRight); if Top = 0 then Include(FAnchors, akTop); if Bottom = Screen.Height then Include(FAnchors, akBottom); Timer1.Enabled := FAnchors <> []; end; end; procedure TfmMain.Timer1Timer(Sender: TObject); const cOffset = 2; var vHandle: THandle; begin vHandle := WindowFromPoint(Mouse.CursorPos); while (vHandle <> 0) and (vHandle <> Handle) do vHandle := GetParent(vHandle); if vHandle = Handle then begin if akLeft in FAnchors then Left := 0; 　 if akTop in FAnchors then Top := 0; 　 if akRight in FAnchors then Left := Screen.Width - Width; 　 if akBottom in FAnchors then Top := Screen.Height - Height; end else begin if akLeft in FAnchors then Left := -Width + cOffset; if akTop in FAnchors then Top := -Height + cOffset; if akRight in FAnchors then 　 Left := Screen.Width - cOffset; if akBottom in FAnchors then 　 Top := Screen.Height - cOffset; end; end;