Данная статья поможет людям, которые плохо ориентируются в Delphi, подогнать свой аналог CE под себя.
Иконки, картинки, менюшки, автоматическая вставка значений и др.
1. Как перетащить или изменить размеры окон, панелей думаю и так понятно. Как вставить вместо оригинальных значков свои? Открыть
[Ссылки могут видеть только зарегистрированные пользователи. ]
Нажимаем на значок, в свойствах Object inspector(а) находим параметр как на скрине
[Ссылки могут видеть только зарегистрированные пользователи. ]
Появляется Picture Editor
[Ссылки могут видеть только зарегистрированные пользователи. ]
Тут все просто, выбираем свою картинку на значок в формате bmp и все
Если нужно изменить картинку справа в верхнем углу, нажимаем на картинку, в Object Inspector ищем свойство
После чего выбираете вашу картинку в формате bitmap
2. Как же сделать меню со значениями и чтобы они вставлялись в поле? Открыть
[Ссылки могут видеть только зарегистрированные пользователи. ]
Ищем в главном окне СЕ это
[Ссылки могут видеть только зарегистрированные пользователи. ]
Нажимаем 2 раза
[Ссылки могут видеть только зарегистрированные пользователи. ]
тут думаю понятно, нажимаем на пустой выделенный квадратик, в Object Inspector в свойстве Caption пишем название раздела меню.
Итак, вы сделали свои пункты меню, вписали в подменю разные названия оружий
Как сделать, чтобы при нажатии на оружие, значение автоматически вставлялось в строку?
[Ссылки могут видеть только зарегистрированные пользователи. ]
Нажимаем на 1-ое оружие двойным кликом, нас перекидывает в редактор кода
Между Begin и End пишем
scanvalue.Text:='значение оружия';
//пример
scanvalue.Text:='00 00 CC CF CC FC 00 00 E0 40 CC CF CC FC 33 33';
Если хотите чтобы после клика на оружие вставлялось значение и автоматом запускалось сканирование, добавляем после
scanvalue.Text:='значение оружия';
Теперь после выбора процесса будет ставится "Array of byte"
Теперь поставим галочку в НЕХ. Жмём на НЕХ в гл.форме и в Object Inspektor(e) находим свойство State и меняем его на cbChecked.
Все, теперь у нас автоматически по нажатию на оружие ставится "Array of byte" и галочка в HEX.
3. Как сделать окно с информацией об авторе? (старое лучше удалить, т.к. из-за него появляется ошибка при запуске CE) Открыть
Создаем новую форму
Сразу заходим в Project>>>Options>>>Forms и перемещаем созданную форму в правый столбец
Создаем кнопку, с которой мы будем запускать это окно. Это может быть пункт меню (как сделать, смотрим пункт 2) или обычный Button, далее двойной клик по кнопке, открывается редактор кода
между Begin и End пишем:
Код:
if (not Assigned(Form1)) then // проверка существования Формы (если нет, то
Form1:=TForm1.Create(Self); // создание Формы)
Form1.Show; // (или Form1.ShowModal) показ Формы
(везде где Form1 вы пишите название вашей формы)
Чтобы ввести текстовую информацию, нужно добавить на форму компонент Label
После чего в поле Caption инспектора объектов писать свой текст.
Чтобы добавить картинку , кидаем на форму компонент Timage
В инспекторе объектов у него есть свойство Picture, нажав на которое , вы можете вставить свою картинку
Можно сделать кнопку закрытия этого окна
Кинуть на форму компонент Button
Нажать на кнопку 2 раза, откроется редактор кода, где между Begin и End нужно вписать
Создаем подпункт меню (как его создать написано в разделе 2)
Или если хотите чтобы сворачивалось в трей по нажатию на кнопку, кидайте на форму TButton
Далее двойной клик по кнопке с которой будет производиться сворачивание в трей, откроется редактор кода
между Begin и End пишем
Код:
TrayIcon1.Visible:=true;
mainform.Hide;
Далее двойной клик по добавленному компоненту Ttrayicon
Между Begin и End вставляем
Код:
TrayIcon1.Visible:=false;
mainform.Show;
5. Как сделать так, чтобы СЕ не палился в реестре? Открыть
Запускаем Compile, у нас открывается Delphi..открылось, идем в Search>>>Find in files
Text to find - пишем \Software\Cheat Engine\
Запускаем поиск
Появится такое
Двойной клик на первой строчке, в редакторе кода строка выделяется красным цветом, видим в ней Cheat Engine меняем на ваше название..оно и будет отображаться в реестре
На форму кладем баттон и OpenDialog c Dialog
Нажимаем на баттон 2 раза, в редакторе кода пишем:
Код:
procedure TMainForm.Button1Click(Sender: TObject);
var dll: string;
functionname: string;
dllList: tstringlist;
begin
functionname:='';
dll:='';
if opendlldialog.Execute then
begin
dll:=opendlldialog.Filename;
if MessageDlg('Хотите ли вы посмотреть информацию по DLL?',mtConfirmation ,[mbyes,mbno],0)=mryes then
begin
dllList:=tstringlist.Create;
try
peinfo_getExportList(opendlldialog.filename, dllList);
with TfrmFunctionList.create(self,dllList) do
begin
if showmodal=mrok then
if itemindex<>-1 then
functionname:=functions[itemindex];
free;
end;
finally
dllList.free;
end;
end;
InjectDll(dll,functionname);
symhandler.reinitialize;
showmessage('DLL заинжектилось');
end;
end;
Далее 1 раз нажимаем на OpenDialog, в Object Inspektor(е) проставляем следующии настройки
Добавлено через 3 минуты и насчет дополнения, могли бы вы в пункте 2.:
чтобы значение автоматически не вставлялось в scanvalue, а выводилось окно наподобе такого:
----------------------------------------------------x
l M4A1 ext. значение:
l 8C 3F CD CC 0C 3F CD CC 4C 3F CD CC 0C 3F 9A 99
l 4-е значение снизу
-----------------------------------------------------
буду благодарен если добавите, т.к. я незнаю язык Delphi только в паскале знаю все кроме массива и матрицы
Последний раз редактировалось BDarkRAVEN; 26.05.2011 в 07:03.
Причина: Добавлено сообщение
Вопрос а как открыть его, ты забыл это учесть, ведь немногие знают что надо сделать так: сначала подключить новую форму к вашей главной, переходите на главную форму нажимаете File->Use Unit или File->Include Unit в разных версиях по разному, в открывшемся окне выбираем нащу новую форму, все далее на кнопку добавляем обработчик
form2.Show;
form2 это как раз форма с информацией об авторе, у вас может быть form10 или about или как она короче названа
Цитата:
Сообщение от BDarkRAVEN
и насчет дополнения, могли бы вы в пункте 2.:
чтобы значение автоматически не вставлялось в scanvalue, а выводилось окно наподобе такого:
----------------------------------------------------x
l M4A1 ext. значение:
l 8C 3F CD CC 0C 3F CD CC 4C 3F CD CC 0C 3F 9A 99
l 4-е значение снизу
-----------------------------------------------------
буду благодарен если добавите, т.к. я незнаю язык Delphi только в паскале знаю все кроме массива и матрицы
это в общем не сложно, дело похожее как и с информацией об авторе, создаешь форму, подключаешь ее в главную(как я описал чуть выще), оформляешь обязательно раз ты хочешь в 3 строки то не заморачивайтя а добавь 3 лайбела
далее делаешь обработчик на соответствующий пункт меню, примерно такой
form3.show;
form3.label1.Caption:='M4A1 ext. значение';
form3.label2.Caption:='8C 3F CD CC 0C 3F CD CC 4C 3F CD CC 0C 3F 9A 99';
form3.label3.Caption:='4-е значение снизу';
хотя лучще значение сделать через TEdit что б была возможность копирования добавляешь его на форму и меняешь код
form3.edit1.text:='8C 3F CD CC 0C 3F CD CC 4C 3F CD CC 0C 3F 9A 99';