如果做到过期后打不开。

Question

如何写请程序到规定日期后就打不开？

Answer 1

程序运行时是连到服务器的SQL。
服务器的日期不会修改，想请它取服务器日期要怎么做才达到呢？
新手没做过希望能有代码来学习。

Answer 2

加密方式如下：
1 日期方式
2 标识码方式  CPU 硬盘 主板
3 加密狗方式
4 壳加密方式  
5 硬件＋软件

Answer 3

直接用sql取数据库日期，如oracle：select sysdate from dual

Answer 4

请试试这个：function DateNow: TDateTime; 
begin 
  with TADOQuery.Create(nil) do begin
    try 
      Connection := AdoConnection; 
      SQL.Text := 'select GetDate() as FDate'; 
      Open; 
      Result := FieldValues['FDate']; 
    finally 
    Free; 
  end; 
end;