我想在按下鈕後出現一個輸入密碼(英文,數字)的對話框,user輸入後按ok鈕 如果錯誤則出現"你的密碼錯誤,請重試"如果正確則執行,這組密碼是自訂的四 位數字,非隨機產生.請問該如何寫?我是菜鳥,請多指教,謝謝

samhu大大，您好！ 請您看看下面的code，希望能對您解決問題有所幫助< class="code"> procedure TForm1.Button1Click(Sender: TObject); var strPWD: String; begin strPWD := InputBox('對話方塊','請輸入密碼: ',''); strPWD := trim(strPWD); if strPWD = '' then exit; if strPWD = 'aa11' then //假設您的密碼是aa11 ShowMessage('好啦，您是合法用戶') else ShowMessage('您的密碼錯誤，請重試'); end;

===============
人生在勤,不索何获? 
===============

------
人生在勤，不索何获？

非常感謝bigdogchina大大的協助,這段code我用起來能判斷密碼,沒有問題,非常感謝 但我又衍生出3個問題:(抱歉,菜鳥問題真多) 1.密碼輸入時能顯示****號而不出現數字嗎? 2.我這個程式是直接在光碟上run,這按鈕的onclick事件是開啟一個在光碟上的資料夾,我用ShellExecute(Handle, 'open', '\temp', nil, nil, SW_SHOW); 開啟光碟下temp資料夾,這段程式碼應該貼在哪裡?我貼在第二個then之後 會出現 not allowed before 'ELSE'的錯誤. 3.如果直接開啟瀏覽光碟上的temp資料夾而不經過按鈕,則不需key密碼也可以  打開這資料夾,有可以讓光碟無法瀏覽一定要經由按鈕才能開啟的方法嗎?或是 瀏覽光碟資料夾要開啟temp時也出現密碼對話框? 無限感激....

samhu大大，您好！ 惶恐中，不知道下面的解釋是否滿意 >> class="code"> if strPWD = 'aa11' then begin ShowMessage('好啦，您是合法用戶'); ShellExecute(handle, 'open', Pchar(ExtractFilePath(Application.ExeName) '\temp'), nil, nil, SW_SHOWNORMAL); end else ShowMessage('您的密碼錯誤，請重試'); 3. 您是想對資料夾加密嗎？請看看下面的這篇 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=39179 我推薦您用工具軟體來加密，比如光碟加密大師: http://www.hsdown.com/soft/790.htm

===============
人生在勤,不索何获? 
===============

------
人生在勤，不索何获？

感謝bigdogchina大大的幫忙,經過這陣子四處找資料,我想如果要對資料夾加密 的話,目前手上的資料可能要利用現成的軟體來作,如此一來就不用在delphi上寫 密碼對話框了,得失之間很難抉擇,得到一個解決的方法卻失去一個學習的機會, 不過我很欽佩市售的資料夾加密軟體,不知如何寫的,這個討論區找遍了,仍找不到有人討論相關主題,真可惜,真希望弄一套來拆開研究,可惜自己功力不夠, 無論如何感謝bigdogchina大大,從你的回應中我學到很多