Voici comment utiliser facilement les threads dans Delphi. Synchronize fonctionne bien si on l’utilise correctement 🙂 Contenu de la fonction [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…
Mode d’emploi 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…
Delphi a été mis à jour en version 10.2. Voici la méthode d’installation initiale pour l’utiliser sous CentOS 7. [php] # yum -y update # yum install -y firewalld # systemctl unmask firewalld # systemctl enable firewalld # systemctl start…
