不知道有沒有類似免費的元件？我這裡提供一個要coco的 http://www.ionworx.com/IceLicense.html Turn your software in Trial Edition and protect your application from unauthorised copying or distribution ! • What can ICE License product do for you? ? ICE License is a new software copy protection solution designed to provide a high level of security. With ICE License it's easy to turn your application in "try-before-you-buy" versions with little effort, offering everything to guarantee a maximum protection. If you want to protect your investiments ICE License is designed specifically for you. The software developer looking for powerful, flexible protection, license management tools to get your software product into the hands of customers Our software protection algorithms is different than other protection scheme, because he supports all the latest data security techniques and features such as : · Antidebugging & Antimonitors, Anti-Trace Code Protection · Enhanced Anti-Breakpoint (BPM/BPX) · Restricted Privileges compatible (for WinNT, Win2k, WinXP) · Sophisticated Asymmetric Encryption Technology · Detects backdating or reinstallation to gain additional usage · Advanced Digital Autentification against patching · Secure Encryption Protection · Multi-threaded system checks · Cryptographic hashing MD5 to lock license to your software · Reliable Machine Locking Protection (HDD manufacturer) · Encrypt & Hide Strings to provide a high level of security · Using License to registration, also no Keygen possible · Create custom URL links · Invisible software based protection requiring no dongles · Network Protection to limit & lock the number of allowed network users or computers · Create evaluation copies by days, uses, hours or a set date. · Customized unlock codes and add extra informations in License · Compatible with Windows 95, 98, Me, NT, 2000, XP. ======================= 二星級新手，問基礎問題請勿見笑 ^^

GUID generator for Delphi(使用者識別identifier機制產生器)    這個機制是每台電腦上唯一的。它讓任何的文件能夠被追蹤出是那台電腦的使用者建立的。    Now download: dggen105.zip - GUID generator for Delphi - version 1.05.  http://www.arisesoft.com/download1/dggen105.zip    (compiled EXE; size of archive: 171 KB; last updated: 1999-12-30)  It is a freeware tool for Delphi developers which allows you rapidly and easily to generate GUIDs of the necessary formats.     

F sir，謝謝您的回答。 我post的這個註冊的元件，從使用說明及demo上來看，他可以將我們用delphi製作的軟體分成不同的版本，如demo、trial、以及full version。功能上沒什麼不同，只是可以設定試用的時間如：15天、20次、5分鐘諸如此類的。看起來功能非常強大，不知道有沒有類似功能的元件但是比較便宜或是陽春點，但不用錢的呢？ ======================= 二星級新手，問基礎問題請勿見笑 ^^

把應用加上３０天的試用期 unit regApp; //單元 interface uses Windows,SysUtils,Registry,forms, Dialogs; type Tlogin = class private public constructor Create; virtual; procedure CheckLogin;//在主視窗Create時調用 end; implementation constructor Tlogin.Create; begin inherited Create; end; procedure Tlogin.CheckLogin; var Reg_id: TDateTime; RegisterTemp: TRegistry; InputStr, Get_id: string; Reg_tag, ClickDok: Boolean; Allow: Integer; begin Allow := 30; //試用期為30天 Reg_tag := False; //軟體是否到註冊期 registerTemp := TRegistry.Create; //準備使用註冊表 with registerTemp do begin RootKey := HKEY_LOCAL_MACHINE; //存放 if OpenKey('Software\Microsoft\Windows\CurrentSowft\tag', True) then // 建一目錄，存放標誌值 begin if ValueExists('DateTag') then begin //用DateTag的值作為標誌 Reg_id := ReadDate('DateTag'); //讀出標誌值 if (Reg_id <> 0) and (Now - Reg_id > Allow) then //允許使用的時間到 Reg_tag := True; end else WriteDateTime('DateTag', Now); //建立標誌，並置初始標誌值。 end; if Reg_tag then begin //要求用戶輸入註冊碼 ClickDok := InputQuery('您使用的是非註冊軟體,請輸入註冊碼:', ' ', inputstr); if ClickDok then begin Get_id := IntToStr(2222); //註冊碼2 if Get_id = InputStr then begin WriteDateTime('DateTag', 0); //將標誌值置為0,即已註冊。 CloseKey; Free; end else begin //若輸入的註冊碼錯誤 Application.MessageBox('註冊碼錯誤!請與作者聯繫!', '警告框', mb_ok); CloseKey; Free; Application.Terminate; end; end else begin //若用戶不輸入註冊碼 Application.MessageBox('請與作者聯繫，使用註冊軟體!', '警告框',mb_ok); CloseKey; Free; Application.Terminate; end; end; end; end; end.

謝謝F Sir！ ======================= 二星級新手，問基礎問題請勿見笑 ^^