Parsi Coders
AntiEmulators delphi - نسخه قابل چاپ

+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Cracking / Anti Crack (http://parsicoders.com/forumdisplay.php?fid=75)
+--- انجمن: Anti Debug (http://parsicoders.com/forumdisplay.php?fid=76)
+---- انجمن: Delphi (http://parsicoders.com/forumdisplay.php?fid=81)
+---- موضوع: AntiEmulators delphi (/showthread.php?tid=1042)



AntiEmulators delphi - Amin_Mansouri - 10-15-2011

سورس یه انتی املاتور برای دلفی
کد:
(************
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;