請問各位大哥 有沒有甚麼方式,可以限制程式的使用時間, 若是超過期限則程式無法使用.... 感謝....^^" 發表人 - laydduck 於 2003/12/03 08:59:00

Dear All 關於這個問題，如果是我來解的話，當程式啟動時，我會將當時的時間寫到 Regedit or IniFile (或是任何可以存值的地方)。如果發覺已經有值寫入，就比對時間差距，如果 Timeout 就不讓它執行！ 這是小弟所想到的方式

可寫在FormCreate中，請參考: //第一次執行

TRegistry*Reg=new TRegistry;
Reg->RootKey=HKEY_USERS;
Reg->OpenKey(".DEFAULT\\Myprogram\\Records",false);
Reg->WriteInteger("Count",1);//紀錄次數
Reg->WriteInteger("Flag",0);//紀錄是否終止使用
//執行使用次數加1
Reg->WriteInteger("Count",Reg->ReadInteger("Count") 1);
//如果設定使用10次結束，到次數後設定flag=1
if(Reg->ReadInteger("Count")>10){
A pplication->MessageBox("程式使用已超過10次!\n即將關閉...","警告",MB_OK);
 Reg->WriteInteger("Flag",1);
 Application->Terminate();
 }
}

健君12恨 發表人 - taishyang 於 2003/12/04 18:31:04

------
健君12恨

謝謝各位的回覆～^^" 依bluestorm的想法，若是將程式複製或是更名， 那是不是就可以再重新記數了呢？

laydduck 網友 保護都是短暫的 KTOP底下有很多資料 以時間為限 一般都是 試用版之類軟體或有租賃之性質 真要時間判斷 請使用網路校時 沒網路時 以bios 等等 這是寫程式的 基本 防堵判斷方式 如果你都不仔細想一想 軟體的差異性不多 等於0 光 防拷機制 外部資訊加密 程式碼壓縮 PE結構 等 就讓人 霧沙沙 連入門的基礎與你所問都差很多 你如真要有心討論 請先找舊資料 把舊資料的問題或你真正問題提出 ddy 站務副站長 好像已經再此篇有告知你 先使用搜尋有相關討論文章可參考 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=41518 請別老是po 幫幫我 救我 這類要求 這不是作業 這是討論區 沒有討論精神的前題來討論區要求 解答 不是KTOP討論的本意 如果你是只要找別人的資料就別把版面 當成浪費的資源 因為缺乏 討論的精神 卻要連看都看不到的人 熱心協助 實在是 令人醒思 複製是最簡單的 也是最頭痛的 矛與盾的故事 在於 是人重要 還是 矛與盾 發表人 - ab 於 2003/12/05 02:10:39

各位大大～ 因為是程式生手的緣故， 但我並不是只想找人幫忙寫作業， 只是有些問題並不是專門， 很多術語名詞也看不大懂，光靠自己摸索也不是辦法 所以才會在這找人幫忙～Sorry 我有試過bluestorm的方式，感謝bluestorm 但似乎有些小錯誤 錯誤如下：

因為是程式生手的緣故， 但我並不是只想找人幫忙寫作業， 只是有些問題並不是專門， 很多術語名詞也看不大懂，光靠自己摸索也不是辦法 ======================================================== 那建議你多練習 手上書本範例 盡量攪懂 非攪出程式 這樣你問的問題也才能 對症下藥

laydduck您好 要

#include "Registry.hpp" 

順心 <>～我也是在學習的階段,回答的不好請您多多見諒與指教～

請問各位大大～ 程式執行後的卻有這錯誤訊息產生？ 但程式還是正常執行 是哪裡的問題？？ 請指教~~

laydduck您好: 您的問題在於您沒有\\Myprogram\\Records這個機碼 您必須在在如下畫面中確認有此機碼,若沒有請新增 順心 <>～我也是在學習的階段,回答的不好請您多多見諒與指教～

抱歉，沒寫清楚 這行>> >

------
健君12恨

謝謝大大的回答~ 但我還有些問題 程式部份內容: 在程式 FormCreate 中 Reg->WriteInteger("Count",1);//紀錄次數 Reg->WriteInteger("Flag",0);//紀錄是否終止使用 程式每次執行,count 及 flag 會重新計數 無法達計數限制的校果.... 煩請指導~

 TRegistry*Reg=new TRegistry;
 int count;
 Reg->RootKey=HKEY_USERS;
 Reg->OpenKey(".DEFAULT\\Myprogram\\Records",true);
 try { count=Reg->ReadInteger("Count");}
 catch(...)
 {
   Reg->WriteInteger("Count",1);//紀錄次數
   Reg->WriteInteger("Flag",0);//紀錄是否終止使用
   return;
 }
 if(count<=10)
   Reg->WriteInteger("Count",count 1);
 else
 {
  if (Reg->ReadInteger("Count")>10)
  {
   Application->MessageBox("程式使用已超過10次!\n即將關閉...","警告",MB_OK);
   Reg->WriteInteger("Flag",1);
   Application->Terminate();
  } 
 } 

發表人 - bass15 於 2004/01/07 15:22:18 發表人 - taishyang 於 2004/01/07 15:24:04

謝謝各位的回應幫忙....^^"