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

unit Unit1;

interface

uses
.......................

type
  TMain = class(TForm)
    procedure LoadBotsClick(Sender: TObject);
 .........................
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Main: TMain;
  Bot:array of TICQClient;
  kol:Integer;

implementation

uses Unit2;

{$R *.dfm}

procedure TMain.LoadBotsClick(Sender: TObject);
var i,k:Integer;
begin
SetLength(Bot,kol);
for i := 0 to high(bot) do
begin
Bot[i]:=Ticqclient.create(nil);//Как я понял это создание элементов массива
k:=pos(';',Options.memo1.Lines[i]);
bot[i].UIN:=strtoint(copy(Options.memo1.Lines[i],0,k-1));
bot[i].Password:=copy(Options.memo1.Lines[i],k+1,length(Options.memo1.Lines[i])-k);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var hwn:hwnd;
pid,hPr,dwR:dword;
buf:byte;
begin
hWn := FindWindow(nil, PChar('заголовок окна'));
if IsWindow(hwn) then begin
 showmessage('хэндл найден');
 GetWindowThreadProcessId(hWn, PID); //ищем pid
 hPr := OpenProcess(PROCESS_VM_READ, False, PID);
 ReadProcessMemory(hPr, ptr($232D7E68), @buf, 1, dwR); //читаем память
 CloseHandle(hPr);
end;
end;

1  3  4   10
2  5  9   11
6  8  12  15
7  13 14  16

  
program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var MyArray:array [1..4,1..4] of integer; i,j,x:integer;
begin
for i:=1 to 4 do
for j:=1 to 4 do
begin
readln(x);
MyArray[i,j]:=x;
end;
end.