此為轉貼資料 利用Dll實現通用密碼驗證框 ---- 在我們編制Delphi應用程式，常常需要提供一個密碼驗證框，對應用程式的使用者進行身份核對。如果能有一個通用的密碼驗證框，便能夠?我們的工作節約不少的時間，更能使我們編制的程式小而快。以下的程式?你提供了這樣的一個DLL文件。 //檔案名?CheckPasswordForm.dpr; 編譯此文件生成CheckPasswordForm.dll library CheckPasswordForm; uses XcqCheck in 'XcqCheck.pas' {XcqForm}; exports CheckPassword name 'CheckPassword';//dll入口 begin end. //檔案名?XcqCheck.pas unit XcqCheck; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Mask, Menus; type TXcqForm = class(TForm) XcqEdit: TMaskEdit;//密碼輸入框 OkBtn: TButton; procedure OkBtnClick(Sender: TObject); end; var XcqForm: TXcqForm; Check: Boolean;//驗證輸入密碼的正確性 function CheckPassword: Boolean;export; //本dll文件的關鍵實現 implementation {$R *.DFM} procedure TXcqForm.OkBtnClick(Sender: TObject); begin if XcqEdit.Text = 'xcq' then Check := True; Close; end; function CheckPassword;export; begin Check := False; XcqForm := TXcqForm.Create(Application); //創建密碼輸入框 XcqForm.ShowModal;//顯示密碼輸入框; 注意：不能用XcqForm.Show! Result := Check;//返回給調用本dll的應用程式判斷 XcqForm.Free;//釋放本dll文件所占資源 end; end. ---- 在調用以上dll中CheckPassword函數的應用程式中只需加入以下語句在implementation 後，function CheckPassword: Boolean; external 'CheckPasswordForm.dll' name 'CheckPassword';在需要進行密碼驗證的地方加入下面的條件語句就完全實現了密碼驗證的功能。 if CheckPassword then begin ...//如XcqQuery.Open; end; ---- 上面的程式只是一個簡單的密碼驗證框，我們可以將密碼以寫入註冊表或文件的方式保存，動態修改，更可以利用算術演算法對密碼進行簡單的加密等，使要保密的資料更安全。 ---- 其實，上文中如何在dll中實現窗口讓我走了不少彎路，我覺得此法對大家更有意義，這是避免程式龐大的一種有效方法，不妨試試。 ---- 以上程式在Windows98/Delphi3下編譯通過。歡迎大家批評指正

------
**********************************************************
哈哈&兵燹
最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好

Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知
K.表Knowlege 知識,就是本站的標語:Open our mind