دخول

Agmcz · 05-07-2012, 02:57 PM

وعليكم السلام
هدا مثال بسيط باستعمال الوقت ان شاء الله يوضح لك الفكرة

مدة صلاحية البرنامج 2 دقائق

كود :
function TimeEnd: Boolean;
var
  R: TRegistry;
  N: string;
begin
  Result := False;
  R := TRegistry.Create;
  try
    R.RootKey := HKEY_LOCAL_MACHINE;
    R.OpenKey('Software\ghz\time', true);
    if r.ValueExists('Begin') then
    else
    begin
      R.WriteTime('Begin', Now);
    end;
    N := FormatDateTime('n', Abs(R.ReadTime('Begin') - Now));
    if StrToInt(n) >= 2 then  // رقم 2 هو عدد الدقائق
      Result := True;
  finally
    R.Free
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  if Timeend then
  begin
    MessageBox(Handle, 'انتهت صلاحية البرنامج', 'Example', MB_ICONWARNING);
    Application.Terminate;
  end;
end;

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة