ANTICHAT — форум по информационной безопасности, OSINT и технологиям

var
   s:string;
begin
   ReadLn(f, s);
   memo1.Lines.add(s);
end;

  if accounts.Count > 0 then
  begin
    CriticalSection.Enter;
      account := accounts.Strings [0];
      accounts.Delete (0);
    CriticalSection.Leave;
  end else
  begin
    to_log ('come to an end accounts');
    exit;
  end;

function to_used (str : string) : integer;
var
  t : textfile;
begin
  CriticalSection.Enter;
    assignfile (t, curdir + '\config\send - used accounts.txt');
    append (t);
    writeln (t, str);
    closefile (t);
  CriticalSection.Leave;
  Result := 1;
end;

 var
  sect1 : TRTLCriticalSection;

 initializeCriticalSection(sect1);        // Инициализации критической секции

EnterCriticalSection (sect1); //войти в критическую секцию
//Твой код критического участка
LeaveCriticalSection(sect1); //выйти в критическую секцию

  DeleteCriticalSection(sect1);

procedure inv.Execute;
begin
  EnterCriticalSection (CriticalSection);
    form1.Memo2.Lines.Add (timetostr (time));
  LeaveCriticalSection (CriticalSection);
  new_inv (); // запуск нового потока
end;

procedure inv.Execute;
begin
  CriticalSection.Enter;
    form1.Memo2.Lines.Add (timetostr (time));
  CriticalSection.Leave;
  new_inv (); // запуск нового потока
end;

procedure TForm1.Timer3Timer(Sender: TObject);
var
  s : widestring;
  http : tidhttp;
begin
  http := tidhttp.create;
  http.ReadTimeout := 30000;
  s := httpget (http, 'http://awmproxy.com/proxy.php?Id=********&d=1');
  if extractb (s, '[^\r\n]*[^\r\n]') <> nil then
  begin
    CriticalSection.Enter;
      proxys.Clear;
      proxys.AddStrings (extractb (s, '[^\r\n]*[^\r\n]'));
    CriticalSection.Leave;
  end;
  http.Free;
end;