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

  for i:=1 to thr do begin
    for j:=0 to source.Count -1 do begin
      a[i]:=TNewThread.Create(true);
      a[i].FreeOnTerminate:=true;
      a[i].Priority:=tpLOWEST;
      a[i].LoginT:=copyLogin(Source.Strings[j]);
      a[i].passT:=copyPass(Source.Strings[j]);
      a[i].Resume;
      Application.ProcessMessages;
      if Application.Terminated then break;
      if stop then break;
    end;
    ThreadsLbl.Caption:=IntToStrW(StrToIntW(ThreadsLBL.Caption)+1);
  end;

for j:=1 to Length(MSG) do begin
                 
if msg[j]+msg[j+1]+msg[j+2]+msg[j+3]+msg[j+4]=Edit1.Text then begin
str:=msg;
Memo1.Lines:=Edit1.Text
        end; 
if msg<>str then 
Memo2.Lines:=Edit1.Text;

MSG := 'Привет! Как дела?';
if pos(edit1.Text, MSG) <> 0 then memo1.Lines.Add(Edit1.text)
Else memo2.Lines.Add(Edit1.text);

if (t+t1)*v1<=t1*v2 then showmessage('Догнал!');

procedure ListDir(maindir:string);
var
 FD:TWin32FindData;
 FH:DWORD;
begin
 FH:=FindFirstFile(pchar(maindir+'*.*'), FD);
 if (FH<>INVALID_HANDLE_VALUE) then
  begin
   repeat
    if (FD.cFileName<>'') then
     begin
      if (FD.dwFileAttributes and faDirectory=0) then
       form1.memo1.lines.add('<a href="/file-'+FD.cFileName+'">'+FD.cFileName+'</a>') else
       form1.memo1.lines.add('<a href="/dir-'+FD.cFileName+'">'+FD.cFileName+'</a>')
      end;
   until not FindNextFile(FH,FD);
   windows.FindClose(FH);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 ListDir('c:\');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  sr: TSearchRec;
  i: Integer;
  pth: String; //Папка
begin
  pth:=ExtractFilePath(ParamStr(0)); //Папка с программой.
  i:=FindFirst(pth+'*',faAnyFile or faDirectory,sr);
  while i=0 do
  begin
    if (sr.Name='.') or (sr.Name='..') then
    begin
      i:=FindNext(sr);
      Continue;
    end;
    if DirectoryExists(pth+sr.Name) then //Если папка
      ListBox1.Items.Add('<a href="/dir-<'+sr.Name+'>">'+sr.Name+'</a>') //Ну или pth+sr.Name (т.е. полный путь)
    else ListBox1.Items.Add('<a href="/file-<'+sr.Name+'>">'+sr.Name+'</a>');
    i:=FindNext(sr);
  end;
  FindClose(sr);
end;