[Руководство] Изменяем внешний вид CE на свой вкус

[for97]

Данная статья поможет людям, которые плохо ориентируются в 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:='значение оружия';

NewScan.Perform(WM_LBUTTONDOWN, 0, 0);
NewScan.Perform(WM_LBUTTONUP, 0, 0);

То же самое повторяем со всеми подпунктами оружия, вписывая значения как на примере выше

Если Вы хотите чтобы по нажатию на оружие у вас автоматом ставилось "Array of byte" и включалась кнопка HEX делаем следующее

В редакторе кода главной формы ищем

procedure TMainForm.ShowProcessListButtonClick(Sender: TObject);

Листаем вниз пока не увидим end;
Перед end пишем

VarType.itemindex:=8;

Теперь после выбора процесса будет ставится "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 нужно вписать

Close;

Вот что у нас получилось

4. Сворачивание CE в трей
Открыть

Кидаем на форму компонент Ttrayicon



Создаем подпункт меню (как его создать написано в разделе 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 меняем на ваше название..оно и будет отображаться в реестре

6. Делаем СЕ со встроенным инжектором!
Открыть

На форму кладем баттон и 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(е) проставляем следующии настройки

Ctl3D => True
DefaultExt => dll
Filter => Dll-file (*.dll)|*.dll|All files (*.*)|*.*
FilterIndex => 1
Name => OpenDllDialog

Спасибо Dimedrol1536(2)

//Пишите чем еще дополнить статью

[garik_sanek]

for97, еще 1 тема, которая, как я считаю , должна быть в шапке.
Все четко и ясно расписано. Присутствуют скрины)

[cbip0k]

А у мну проблемы, кривит диз, незнаеш как решить?В делфи норм, а в файле кривой...

[Dimedrol1536]

scanvalue.text:='наше значение';
NewScan.Perform(WM_LBUTTONDOWN, 0, 0);
NewScan.Perform(WM_LBUTTONUP, 0, 0);

Будет само сканировать.

[for97]

Цитата: Сообщение от Dimedrol1536(2) scanvalue.text:='наше значение'; NewScan.Perform(WM_LBUTTONDOWN, 0, 0); NewScan.Perform(WM_LBUTTONUP, 0, 0); Будет само сканировать.

добавлю если ты не возражаешь в первый пост

Добавлено через 2 минуты

Цитата: Сообщение от cbip0k А у мну проблемы, кривит диз, незнаеш как решить?В делфи норм, а в файле кривой...

Потому что размеры окон в делфи и в файле разные..
там если чуть в файле расширить размер окна все поедет к чертям)

[metalin]

Цитата: Сообщение от for97 старое лучше удалить

как это сделать??и как сделать чтоб новое встало на его место??

[mires51]

for97, Тему в шапку!Оформлено кулл!

[BDarkRAVEN]

Спасибо вам большое за написание темы, просто я вчера оставлял запрос с просьбой http://zhyk.ru/forum/showpost.php?p=...9&postcount=45, и не видел чтобы кто-то еще спрашивал. спасибо за отзывчивость также

Добавлено через 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 только в паскале знаю все кроме массива и матрицы

[.:InSiDe:.(2)]

Если знаешь ,то вставь в гайд ,как убрать оставление следов в реестре..

[BDarkRAVEN]

.:InSiDe:.(2), [Ссылки могут видеть только зарегистрированные пользователи. ], а сам пост тут в Добавлено 25.06

[=ololo228=]

Цитата: Сообщение от BDarkRAVEN .:InSiDe:.(2), Вот оно само видео, а сам пост тут в Добавлено 25.06

Спасибо надо посмотреть!!

[PbAli]

Большое спасибо,а я голову ломал.

[DESGO]

я бы спс сказал но сообщений не хватает!

[Raft2014]

кул))

[serj228]

Цитата: Сообщение от for97 Как сделать окно с информацией об авторе?

Вопрос а как открыть его, ты забыл это учесть, ведь немногие знают что надо сделать так: сначала подключить новую форму к вашей главной, переходите на главную форму нажимаете 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';