其實，我的意思是做一個像用戶未註冊而有使用限制，如使用期間或次數～

請問各位師兄們，有否此經驗可以分享一下呢？

------
獨學無友則孤陋寡聞，相識滿天下能知天下事
小弟是來自香港的～～多多指教

uses  Registry;

type
TForm1 = class(TForm)
. . .
procedure FormCreate(Sender: TObject);
private
{ Private declarations }

procedure CheckReg();
procedure CreateReg();
public
{ Public declarations }
end;
var
Form1: TForm1;
PName:string; //存放用戶名
PPass:integer;// 和註冊碼。
Procedure TForm1.CreateReg(); // 建用戶資訊。
var Rego:TRegistry;
begin
Rego:=TRegistry.Create;
Rego.RootKey:=HKEY_USERS;
rego.OpenKey('.DEFAULT\Software\LASoft\UWE30K',True);//鍵名?AngelSoft\Demo,可自行修改。
Rego.WriteString('Name',PName); //寫入用戶名。
Rego.WriteInteger('Pass',PPass);//寫入註冊碼。
Rego.Free;
//ShowMessage('程 式 已 經 註 冊, 謝 謝!');
//
end;

Procedure TForm1.CheckReg();// 檢 查 程 式 是 否 在 註 冊 表 中 註 冊。
var Rego:TRegistry;
y,m,d:word;
s,regs:string;
begin
Rego:=TRegistry.Create;
Rego.RootKey:=HKEY_USERS;
decodedate(now,y,m,d);
s:=format('%0.2d%0.2d%0.2d',[y-1911,m,d]);
IF Rego.OpenKey('.DEFAULT\Software\LASoft\UWE30K',False) then
begin
Form1.Caption:='軟體已經註冊';

Label3.Caption:=rego.ReadString('Name'); //讀用戶名。
Label2.Caption:=IntToStr(Rego.ReadInteger('Pass')); //讀註冊碼。expire_date
regs := IntToStr(Rego.ReadInteger('Pass'));
rego.Free;
if(s>regs) or (regs>'971231') then
application.Terminate
end
else
begin
// Form1.Caption:='軟 體 未 註 冊,請 註 冊';
// application.Terminate;
decodedate(now 90,y,m,d);//免費使用 limit 90 days or 97.12.31
PName:='LA01';
PPass:=(y-1911)*10000 m*100 d;
CreateReg
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
CheckReg;
. . .

===================引 用 chkkevin 文 章===================
其實，我的意思是做一個像用戶未註冊而有使用限制，如使用期間或次數～

請問各位師兄們，有否此經驗可以分享一下呢？

------
What do we live for if not to make life less difficult for each other?

uses  Registry;
我的看法 上，這種方式唬弄對電腦不精的人有效
若是，有高手寫一支patch檔，就破功了。

如果是要再進階一點的做法，我是建議架網站，採用ActviveX 做網路連線
的驗証，也可以騙較多的人。

至於，如果你的軟體引不起高手的注意，利用低階一點的簡單做法
省時也省力。

另一方面，據消息微軟號稱VISTA的加密防盜版技術高超，仍然破功
，或許改變經營的策略，也是一種方式。

------
xinjier禮品贈品

非常感謝，這裡真是一個好地方，高手云集，又慷慨就義
小弟好明顯是一個新手，不過假以時日，希望有一天也可以有能力幫助這裡有需要的人～

不好意思想問問以下的CODE，rego.OpenKey('.DEFAULT\Software\LASoft\UWE30K',True)，是一條default
的path 用來儲存user name和password 嗎？假如compile program後，安裝到別人的機上時要不要copy 當中內容
到software 的使用folder中呢？
Rego.RootKey:=HKEY_USERS;
rego.OpenKey('.DEFAULT\Software\LASoft\UWE30K',True);//鍵名?AngelSoft\Demo,可自行修改。
Rego.WriteString('Name',PName); //寫入用戶名。
Rego.WriteInteger('Pass',PPass);//寫入註冊碼。

小弟暫時未想結案，希望可以再聽取多一點意見。

------
獨學無友則孤陋寡聞，相識滿天下能知天下事
小弟是來自香港的～～多多指教

rego.OpenKey('.DEFAULT\Software\LASoft\UWE30K',True);
會寫一筆registry您可以用REGEDIT在HKEY_USERS找到該值。
===================引 用 chkkevin 文 章===================
非常感謝，這裡真是一個好地方，高手云集，又慷慨就義
小弟好明顯是一個新手，不過假以時日，希望有一天也可以有能力幫助這裡有需要的人～

不好意思想問問以下的CODE，rego.OpenKey('.DEFAULT\Software\LASoft\UWE30K',True)，是一條default
的path 用來儲存user name和password 嗎？假如compile program後，安裝到別人的機上時要不要copy 當中內容
到software 的使用folder中呢？
Rego.RootKey:=HKEY_USERS;
rego.OpenKey('.DEFAULT\Software\LASoft\UWE30K',True);//鍵名?AngelSoft\Demo,可自行修改。
Rego.WriteString('Name',PName); //寫入用戶名。
Rego.WriteInteger('Pass',PPass);//寫入註冊碼。

小弟暫時未想結案，希望可以再聽取多一點意見。

------
What do we live for if not to make life less difficult for each other?

不好意思都是不是太明它的操作，可否詳細說明一下？

例如：如何自定user name,password呢？

------
獨學無友則孤陋寡聞，相識滿天下能知天下事
小弟是來自香港的～～多多指教