Kilho.net

Etiket: Delphi

IT

Delphi'de thread kullanımı

Delphi’de thread kullanmanın kolay bir yolu. synchronize’ı doğru kullanmanız yeterli 🙂 Fonksiyon içeriği [code lang=”delphi”] uses System.Classes, System.SysUtils, Vcl.Forms; procedure Wait(Proc: TProc); var Thread: TThread; begin Thread := TThread.CreateAnonymousThread(procedure() begin Proc; end); Thread.FreeOnTerminate := True; Thread.Start; while not Thread.Finished do…

Devamını oku — Delphi'de thread kullanımı
IT

Kayıt Defteri İzleme (Delphi)

Kullanım procedure RegistryMonitor(RootKey: HKEY; Key: string; Proc: TProc; WatchSub: boolean); begin TThread.CreateAnonymousThread(procedure var Reg: TRegistry; Event: cardinal; begin Reg := TRegistry.Create; Reg.RootKey := RootKey; if Reg.OpenKeyReadOnly(Key) then begin Event := CreateEvent(nil, False, False, nil); if Event > 0 then begin…

Devamını oku — Kayıt Defteri İzleme (Delphi)