大家提供给我一个限时程序好不好，谢谢！！！

Question

大家提供给我一个限时程序好不好，谢谢！！！

Answer 1

假定使用期限至2002年12月31日。
在工程的Main form的OnCreate事件中输入
if StrToInt(copy(DateTimeToStr(Now()-StrToDateTime('2002-12-31
   00:00:00')),1,4))<1900 then
begin
     showmessage('软件使用期已到');
     form1.close;
end;

Answer 2

楼上的方法如果用户修改系统时间就没折了.可以用CPUID进行软件保护试试.

Answer 3

procedure TForm1.FormCreate(Sender: TObject);
begin
  if date > strtodate('2002-10-6') then
  begin
    application.MessageBox('你使用的软件已到期，要使用请与我联系！','提示',mb_ok+mb_iconinformation);
    application.Terminate;
  end;
end;

Answer 4

取的CPU序列号：
function GetCpuId:longint;assembler;register;
var
  temp:longint;
begin
  asm
    PUSH    EBX
    PUSH    EDI
    MOV     EDI,EAX
    MOV     EAX,1
    DW      $A20F
    MOV     TEMP,EDX
    POP     EDI
    POP     EBX
  end;
  result:=temp;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:=IntToHex(GetCpuId,8);
end;