口令成功設置，把PassWord的值拷貝給PWord輸出，并返回True。應該注意的是由于 PWord本身就是指針類型，指向一個字符串的地址，因而雖然PWord用于輸出，但在參數表中仍為傳值參數，而不是傳址參數。另外調用函數StrCopy，要求PWord在傳入前已分配內存，否則會導致一個一般保護錯。try...finally用于保護窗口所占用內存資源在任何情況下都能正常釋放，讀者可參看第十二章。

　　在口令設置窗口中，為了確保用戶記住了設置的口令，在用戶輸入并按回車鍵后，要求用戶再次輸入進行確認。只有用戶重新輸入的字符串與原設置口令相同，口令設置窗口才能正常關閉 。否則將原設置口令清空，要求用戶再次輸入。以上功能的實現在編輯框的OnKeyPress事件處理過程中。

　　procedure TSetPassWordForm.Edit1KeyPress(Sender: TObject; var Key: Char);

　　begin

　　if Edit1.text = '' then Exit;

　　if Key = #13 then

　　begin

　　if Verified then

　　if StrPas(PassWord) = Edit1.text then

　　begin

　　OKBtn.Enabled := True;

　　Edit1.Enabled := False;

　　OKBtn.SetFocus;

　　end

　　else

　　begin

　　Verified := False;

　　MessageDlg('PassWord is InValid.',mtWarning,[mbOK],0);

　　Edit1.text := '';

　　PassWord := '';

　　Label1.Caption := 'Please Input PassWord:';

　　end

　　else

　　begin

　　Verified := True;

　　StrPCopy(PassWord,Edit1.text);

　　Edit1.text := '';

　　Label1.caption := 'Please Verify PassWord:';

　　end;

　　Key := #0;

　　end;

　　end;

　　口令檢查窗口的實現相對簡單，只定義了一個輸出函數GetPassWord，用于生成口令檢查窗口并返回口令檢查的結果。

　　function GetPassword(Password: PChar): Boolean;

　　var

　　GetPasswordForm: TGetPasswordForm;

　　begin

　　Result := False;

　　GetPasswordForm := TGetPasswordForm.Create(Application);

　　try

　　with GetPasswordForm do

　　if ShowModal = mrOK then

　　if UpperCase(Edit1.Text) <> StrPas(StrUpper(Password)) then

　　MessageDlg('Invalid Password', mtWarning, [mbOK], 0)

　　else

　　Result := True;

　　finally

　　PasswordForm.Free;

　　end;

　　end;

　　PassWord為輸入的參數，不能為空，由調用以上函數的程序負責維護。

　　窗口中用戶輸入口令時回顯在屏幕上的字符由編輯框的PassWordChar屬性確定。

　　在DLLs的工程文件中，把兩個輸出函數寫到exports子句中。

　　library PassForm;

　　uses

　　GetPass in 'GETPASS.PAS' {PasswordForm},

　　Setpass in 'SETPASS.PAS' {SetPassWordForm};

　　exports

　　GetPassword,SetPassWord;

　　begin

　　end.

　　10.4.2.2 Delphi應用程序調用重用窗體

　　在Delphi應用程序中調用重用窗體，首先必須包含passform.dll的兩個輸出函數：

　　function GetPassword(Password: PChar): Boolean;

　　far; external 'c:\dlls\PassForm';

　　function SetPassword(PassWord: PChar): Boolean;

　　far; external 'c:\dlls\PassForm';

　　這位于程序單元的implementation部分。

　　口令設置部分的實現代碼為：

　　procedure TForm1.SetButtonClick(Sender: TObject);

　　begin

　　PassWord := StrAlloc(40);

　　if SetPassWord(PassWord) = False then

　　MessageDlg('PassWord is not set',mtInformation,[mbOK],0);

　　end;

　　首先為口令字符串分配內存。當口令設置窗體按Cancel按鈕取消時，顯示相應的信息。

　　口令檢查部分的實現代碼為：

　　procedure TForm1.TestButtonClick(Sender: TObject);

　　begin

　　if PassWord = nil then

　　begin

　　MessageDlg('Set password first', mtInformation, [mbOK], 0);

　　SetButton.SetFocus;

　　Exit;

　　end;

　　if GetPassword(PassWord) then

　　Label1.Caption := 'You are Wellcome !'

　　else

　　Label1.Caption := 'Sorry,You are InValid User.';

　　end;

　　根據口令檢查的結果，在標簽框中顯示相應的信息。

　　10.4.2.3 VB應用程序調用重用窗體

　　VB是微軟公司極力推薦的一個可視化開發工具。它雖然并不支持動態鏈接庫的創建，但可以調用標準的Windows API動態鏈接庫和用其它語言編寫的動態鏈接庫。為了驗證所生成DLLs的普適性，我們用VB開發了一個簡單的程序來調用passform.dll中儲存的窗體。

　　下面是VB程序的完整代碼，和Delphi程序的對應部分基本一致。

　　Option Explicit

　　Declare Function GetPassWord Lib "c:\dlls\passform.dll" (ByVal PassWord As String) As Integer

　　Declare Function SetPassWord Lib "c:\dlls\passform.dll" (ByVal PassWord As String) As Integer

　　Dim PassWord As String * 40

　　Sub Check_Click ()

　　If PassWord = "" Then

　　MsgBox ("Enter sample password first")

　　SetPass.SetFocus

　　Else

　　If GetPassWord(PassWord) Then

　　StatusLbl.Caption = "You are Welcome!"

　　Else

　　StatusLbl.Caption = "Sorry,You are Invalid User."

　　End If

　　End If

　　End Sub

　　Sub SetPass_Click ()

　　If SetPassWord(PassWord) = 0 Then

　　MsgBox ("PassWord is not Set.")

　　End If

　　End Sub

　　有關VB編程的一些具體問題，讀者可參看有關的VB參考書。

　　10.4.3 小結

　　本章我們討論的是動態鏈接庫編程。許多可視化開發工具(如Visual Basic)不支持 DLLs的創建，而Delphi在這里又有上乘的表現。特別是窗體重用機制是Delphi對Windows下DLLs編程的一個重大改進。在一般的DLLs編程中也體現了Delphi快捷、方便的特點。動態鏈接庫是 Windows下程序組織的一種重要方式，使用動態鏈接庫可以極大地保護用戶在不同開發工具、不同時期所做的工作。利用動態鏈接庫，用戶可以逐步去構筑自己的程序模塊庫，為今后的工作積累素材。