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

Listbox1.Items.Add( Copy(TS[i+1], 3, length(TS[i+1]) ) );

procedure TForm1.Button1Click(Sender: TObject);
var blocks:TStringList;
    ini:TIniFile;
    i:integer;
    s:string;
begin
 blocks:=TStringList.Create;
 ini:=TIniFile.Create('.\file.txt'); //связываем переменную с файлом
 ini.ReadSections(blocks); //считываем в стринглист все "блоки"
 blocks.Sort; // обязательно для поиска по стринглисту
 if blocks.Find('3',i) then //ищем "блок" [3] - без скобок
 begin
  s:=ini.ReadString('3','0','Значение 0 не найдено');
  ListBox1.Items.Add(s); //запивывает значение если найдено, если нет верхнюю фразу
 end
 else ListBox1.Items.Add('Block 3 not found'); //ну и это если сам блок не найден
end;

function httpget (http : tidhttp; adr : widestring) : widestring;
var
  str : tstringstream;
begin
  str := tstringstream.Create('');
  try http.Get (adr, str); except end;
  Result := str.DataString;
  str.Free;
end;

function InterceptDLLCall(hLocalModule: HModule; c_szDllName, c_szApiName:PChar;
pApiNew, pApiToChange: Pointer; var p_pApiOrg: Pointer): boolean;

hLocalModule: HModule;  – модуль в котором находиться Import Table
c_szDllName:PChar; – имя DLL, в которой находиться перехватываемая функция
c_szApiName:PChar;  – имя перехватываемой функции
pApiNew: Pointer;  – указатель на нашу функцию, которая будет вызываться вместо перехватываемой.
pApiToChange: Pointer;  – указатель на перехватываемую функцию, если равно nil, то адрес функции определяется через c_szDllName и c_szApiName.
p_pApiOrg: Pointer;  – указатель на старую перехватываемую функцию