А как вообще открыть и изменить анлог CE в делфи,я чё-то не понял..?
открыть нужно файл cheatengine.lpr в папке с исходником
Цитата:
Сообщение от BDarkRAVEN
чтото я немогу выразить то что я хочу узнать... по скрину имеется ввиду в поле edit1 выведется значение, которое задам я, выбрав соответствующее оружие. кпримеру M4A1 Ext. 8C 3F CD CC 0C 3F CD CC 4C 3F CD CC 0C 3F 9A 99 это значение, и оно появится в edit1, после чего я хочу чтобы это значение еще появилось в scanvalue! вот и объясните как добавить в scanvalue значение в edit1
Модераторы, если что то удалите лишний флуд
парень имеет в виду чтоб при нажатии на M4A1 значение копировалось не только в строку с поиском но еще и в edit1
________________
Не флудим, модераторы тоже люди. кнопка "Спасибо" расположена под сообщением и появляется поле набора 10 сообщений.
чтото я немогу выразить то что я хочу узнать... по скрину имеется ввиду в поле edit1 выведется значение, которое задам я, выбрав соответствующее оружие. кпримеру M4A1 Ext. 8C 3F CD CC 0C 3F CD CC 4C 3F CD CC 0C 3F 9A 99 это значение, и оно появится в edit1, после чего я хочу чтобы это значение еще появилось в scanvalue! вот и объясните как добавить в scanvalue значение в edit1
я так понял тебе надо чтоб значение появилась и в Edit и в scanvalue дак и собирай весь код из кусков
scanvalue.Text:='8C 3F CD CC 0C 3F CD CC 4C 3F CD CC 0C 3F 9A 99';
form3.edit1.text:='8C 3F CD CC 0C 3F CD CC 4C 3F CD CC 0C 3F 9A 99';
А как вообще открыть и изменить анлог CE в делфи,я чё-то не понял..?
вот [Ссылки могут видеть только зарегистрированные пользователи. ] скачать чистый чит энджин не компилированный, потом скачай прогу которой будешь открывать, кпримеру Lazarus 0.9.3. и потом открывай файл (преждевременно распакуя архив конечно же) CheatEngine60src/Cheat Engine 6/cheatengine.lpi вот и все. а если ты говоришь насчет аналога, то есть один из способов - попроси source файлы у создателя
Добавлено через 9 минут serj228, Dimedrol1536(2), я уже сделал немного подругому поразмыслив мозгами просто в самом окне которое показано тут предварительно, я добавил еще строчку TLabel (Вставить код в ScanValue?) и ниже TButton (ОК) и TButton (Закрыть). ну при Закрыть - закрыть само собой, а при ОК - вписывается код из edit1 в scanvalue, вот сам код который будет при нажатии на ОК, и все работает:
Код:
mainform.scanvalue.text:=edit1.text;
Последний раз редактировалось BDarkRAVEN; 27.05.2011 в 02:28.
Причина: Добавлено сообщение
Такой вопрос:
Как организовать, чтоб по нажатию по одному из пунктов меню, открывался определенный файл, находящийся в папке с EXE-фаилом(например: по нажатию на Cheat Engine Help(или на F1) открывался фаил справки(help.chm)
Такой вопрос:
Как организовать, чтоб по нажатию по одному из пунктов меню, открывался определенный файл, находящийся в папке с EXE-фаилом(например: по нажатию на Cheat Engine Help(или на F1) открывался фаил справки(help.chm)
эт тоже не сложно, находиш в самом верху слово uses и видиш под ним то что подключено Windows, Messages, SysUtils.... и тд, через запятую к этой кучке добавляешь еще и ShellAPI.
все теперь на кнопке можешь воспользоваться вот этим обработчиком
serj228, помоги кое с какой проблемой, а то при создании СЕ во второй раз мне ошибку выдает, которая раньше не была. вобщем сама ошибка:
Fatal: Can't find Unit1 used by MainUnit
Я не понимаю, что он от меня хочет??? если я в обоих юнитах прописал то что надо в implemetation (вроде так называется)!! юнит главный - MainUnit, второй - PBp. так вот, в MainUnit я прописал так:
Код:
impeletation
uses ...., ..... , ..... , PBp; (имеется ввиду в самом конце добавил)
а в PBb прописал так:
Код:
impeletation
uses MainUnit;
и самое главное что он выдает ошибку с Unit1, когда такого вообще нету. хоть напишу в impeletation MainUnit'а - PBb, то Unit1 (самое главное что Unit1 даже нет), или сразу две. всеравно эта же ошибка. как ее решить?
Вот решил выложить инжектор для СЕ.
На форму ложим кнопку и OpenDialog c Dialog.
Код:
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;
Далее клацаем один раз по нашему OpenDialog и в ObjeckInspektor
пишем:
Вот решил выложить инжектор для СЕ.
На форму ложим кнопку и OpenDialog c Dialog.
Код:
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;
Далее клацаем один раз по нашему OpenDialog и в ObjeckInspektor
пишем: