[Amin_Mansouri]

سورس یه انتی املاتور برای دلفی

کد:

(************
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;