我們經常看到很多網上**的試用版軟體，都有使用時間的限制，就其商業角度而言也是處於軟體效益保護的一種措施，可以讓使用者免費試用一段時間，若滿意就可以購買商業軟體。本文所述例項**功能就是如何為delphi所編寫的程式新增使用時間的限制功能，這裡預設的時限為30天。
主要**如下：
unit unit1;
inte***ce
uses
windows, messages, sysutils, classes, graphics, controls, forms,
registry, dialogs;
type
tform1 = class(tform)
procedure formcreate(sender: tobject);
private
public
end;
var form1: tform1;
implementation
procedure tformwww.cppcns.com1.formcreate(sender: tobject);
var registertemp : tregistry;
curdate : tdatetime;
begin
registertemp := tregistry.create;
with registertemp do
begin
rootkey := hkey_local_machine;
//判程式設計客棧斷是否初次執行程式
if openkey('software\mysoftware',true) then
begin
if readbool('runned') then
//不是第一次執行
begin
curdate := date;
if (curdate-readtime('lastruntime'))>=readinteger('durati程式設計客棧on') then
begin
//當前的系統時間超出了使用期限
showmessage('試用版已到期');
exit;
endelse
begin
deletekey(程式設計客棧'lastruntime');
writetime('lastruntime',date);
end;
endelse
程式設計客棧 begin
//初次執行程式
deletekey('runned');
writebool('runned',true);
//設定試用期限30天
writeinteger('duration',30);
//寫入當前執行時間
writetime('lastruntime',date);
end;
endelse
begin
showmessage('fails!');
end;
closekey;
end;
end;
end.
本文標題: delphi實現限定軟體使用時間的方法
本文位址:
限制軟體使用時間
對於軟體產品的試用版來說，限制軟體使用是必不可少的。本文介紹如果限制使用時間。假設軟體a可以免費使用3個月，那麼要確定的是開始使用時間，結束時間 1。確定開始使用時間。如下 include windows.h include stdio.h int main int argc,char argv 上...
使用多型實現Delphi動態程式設計
本文使用乙個簡單例項講述如何使用多型在delphi中實現動態程式設計。多型 polymorphism 按字面的意思就是 多種形狀 引用charlie calverts對多型的描述 多型性是允許你將父物件設定成為和乙個或更多的他的子物件相等的技術，賦值之後，父物件就可以根據當前賦值給它的子物件的特性以...
WPF使用socket實現簡單聊天軟體
公司網路限制不能傳檔案，先貼部分 控制項新增到介面就行，介面隨意布局 專案結構 1.解決方案 1.1.client 1.2.server client window x class csharpsocketexample.mainwindow xmlns xmlns x title mainwind...