Parsi Coders

نسخه‌ی کامل: AntiEmulators delphi
شما در حال مشاهده نسخه آرشیو هستید. برای مشاهده نسخه کامل کلیک کنید.
سورس یه انتی املاتور برای دلفی
کد:
(************
Author : ChainCoder
Chaincoder@Yahoo.com
************)
Function AntiEmulators:Boolean;
Var
UpTime            :DWORD;
UpTimeAfterSleep  :Dword;
Begin
  UpTime  := GetTickCount;
  Sleep(500);
  UpTimeAfterSleep := GetTickCount;
  if ( UpTimeAfterSleep - UpTime ) < 500 Then
  Result:= True Else Result:= False;
end;