Projemi editliyorlar ve timer'i durduruyorlar.

[freeman35]

Muharrem bey, "buraki timer" dan kastettiğiniz, delphi nin ttimer class ı mı? uzun süredir kullanmadığım için hatırlamıyorum. Yazarken aklıma geldi, ontimer ların aynı anda çalışma ihtimaline karşı, bir global bir değişken tanımlanıp, aynı anda çalışma engellenebilir. Hatta bu cümleyi yazarken başka bir yöntem aklıma geldi, timer yerine, while yada repeat-until döngüsü içinde gettickcount ile timera gerek kalmadanda yapılabilinir.
Lazarus için, teoride çalışması lazım fırsatım olursa denerim.

[mrmarman]

Muharrem bey, "buraki timer" dan kastettiğiniz, delphi nin ttimer class ı mı?

ben de arkadaşın verdiği linkin yalancısıyım.

Kod: Tümünü seç

type
  TMyTimer = Class(TTimer)
  public
    procedure OnMyTimer(Sender: TObject);
  end;

ile başlamış oradan yürüdüm.

- GetTickCount olayını uzun zamandır beğenerek kullanıyorum. Özellikle Web işlemlerinde biliyorsunuz internet bize uzun bir döngü, bekleme veya işlem sonunda beklenen eventi tetiklememe gibi şakalar yapabiliyor. Bunun için işlem beklemelerini 10 saniye gibi sürelerden uzun sürerse sonlandırmak için özellikle sıklıkla kullanıyorum.

[Shou]

Dediğinizi denedim ama gene timer duruyor yani hiç bir işe yaramadı başka nasıl bir çözüm üretebiliriz?

[mrmarman]

DLL'yi eskisinin yerine koyabildiğiniz varsayabiliriz değil mi ? DLL'yi nasıl register / unregister ediyorsunuz ? Hani yeni build edilmiş DLL'nin çalıştığını nasıl anlıyoruz ? Çalışırken eskisinin üzerine yazmayı engeller ya o bakımdan. Hafızadan düşürüp yeni build edilmiş olanı yüklemek babında.

[Shou]

Adam bir form ile benim dll inject edip açıyor açarken timeri durduruyor nasıl yapıyor çözemedim yani timer 0 lıyomu napıo anlamadım.

[mrmarman]

DLL'yi senin bir EXE proje mi çalıştırıyor, ben de DLL'yi kendin oluşturdun da direkt DLL dosya olarak register ediyorsun sanıyorum.

Proje EXE'nin form varsa formlarının adını (dolayısı ile sınıf adı değişecektir) ve caption içeriğini de değiştir. Öyle bir daha dene...

[quadr]

Timer event ı çağrıldığında gerekli procedure e dallanmak için o anki işlem kayıtları stack e basılır ve dallanma gerçekleşir.
Böyle bir koruma sadece bir byte değiştirme ile aşılabilir.Procedure girişindeki ilk byte $C3 olarak değiştirilirse dallanma ret olarak geri döner stack
pop edilir timer a hiç girilmeden işlem devam eder.İsterseniz 10 ayrı timer ile kontrol edin cracker tarafından işlemin aşılması 5 dakika sürmez.

[xozcanx]

Merhaba;
Timer yerine aşağıdaki şekilde bir kullanım nasıl olur

Kod: Tümünü seç

procedure Delay(ms : longint);
var TheTime : LongInt;
begin
TheTime := GetTickCount + ms;
while GetTickCount < TheTime do
Application.ProcessMessages;
end;

Procedure tetikle;
Begin
  Yapilacakislem;
End. 

Procedure yapicacakislem;
Begin
  // yapilacak islemler. 
  İf sart=true then
  Begin
    Delay(1000)
    Tetikle;
  End;
End. 

[Shou]

Delay kısmı formu donduruyor hocam bunu denediniz mi?

[xozcanx]

Evet Form üzerindeki kullanımda kilitleniyor. Thread(kanal) kullanarak yapabilirsiniz Bakınız