блин так то оно так, но это не среда Delphi и там только 1 кусок кода + uses нельзя указывать...
помогите хоть с ошибкой property "Text" inaccessible here
код:
procedure TCTSForm.CTSButton1Click(Sender: TObject);
var
GameHandle:THandle;
i:Integer;
begin
GameHandle := CTSOpenProcess('Game.exe');
qwe := TVarAddress.Create;
if GameHandle = 0 then begin
ShowMessage('Процесс Game.exe не найден!');
Exit;
end;
if AOBScan(GameHandle,0, $5FFFFFFF,True,True,'UUhybFNHcW5VfHNtUFlybFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFdHU25SV1ko',qwe,0) then begin
for i := 0 to qwe.Count-1 do
begin TCTSEdit.Text := qwe[i];
end;
end else
MessageDlg('Не удалось активировать',mtError,[mbOK],0);
end;