Вверх ↑
Ответов: 1343
Рейтинг: 31
#1: 2014-06-01 14:29:11 ЛС | профиль | цитата
[flood]Rysik, подучил бы сначала предоставляемые стандартной библиотекой языка возможности, а потом бы уже брался за более сложные задачи. Вопросы то элементарные задаешь, в гугле полно таких[/flood]

блин так то оно так, но это не среда 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;

карма: 2

0