GetTickCount kullanımı yada başka birşey..

[erdogan_ozkaya]

C++ örnek kodlar işte

[Shou]

Peki delphide tek gettickcount var bunu nasıl delphiye çeviricez yardımcı olamazmısınız?

[erdogan_ozkaya]

burayı incele

http://www.codeforge.com/read/96587/ClMain.pas__html

[Shou]

İlk orayı bulmuştum zaten mesajlarıma bakarsan o linki vermiştim.

Kod: Tümünü seç

procedure TfrmMain.SpeedHackTimerTimer(Sender: TObject);
var
   gcount, timer: longword;
   ahour, amin, asec, amsec: word;
begin
   DecodeTime (Time, ahour, amin, asec, amsec);
   timer := ahour * 1000 * 60 * 60 + amin * 1000 * 60 + asec * 1000 + amsec;
   gcount := GetTickCount;
   if g_dwSHGetTime > 0 then begin
      if abs((gcount - g_dwSHGetTime) - (timer - g_dwSHTimerTime)) > 70 then begin
         Inc (g_nSHFakeCount);
      end else
         g_nSHFakeCount := 0;
      if g_nSHFakeCount > 4 then begin
         FrmDlg.DMessageDlg ('Terminate the program. CODE=10001\' +
                             'Please contact game master.',
                             [mbOk]);
         FrmMain.Close;
      end;
      if g_boCheckSpeedHackDisplay then begin
         DScreen.AddSysMsg ('->' + IntToStr(gcount - g_dwSHGetTime) + ' - ' +
                                   IntToStr(timer - g_dwSHTimerTime) + ' = ' +
                                   IntToStr(abs((gcount - g_dwSHGetTime) - (timer - g_dwSHTimerTime))) + ' (' +
                                   IntToStr(g_nSHFakeCount) + ')');
      end;
   end;
   g_dwSHGetTime := gcount;
   g_dwSHTimerTime := timer;
end;

Abi bunlar çalışıyor ama bazen sorun yaratıyor yardımcı olursan sevinirim.

[erdogan_ozkaya]

kardeşim bende çok iyi bimiyorum sadece googleden baktım senin için

[Shou]

Kod: Tümünü seç

Label2.Caption:=(inttostr(deger div 1000 * 60 div 1000 * 60 div 1000 div 60));

Şöyle yapıyorum misal 1 değer çıkıyor ama speed açtıgımda ilerlemıyor bunun ilerlemesi için timeri kontrol etmek lazım galiba ama birisi yardımcı olsa güzel olacak.