#1 04-05-2010 15:36

CrazyDude69
Registered: 22-07-2009
Posts: 18

Delphi

Здравствуйте! Как можно использовать SCM функции из Delphi?

Offline

#2 17-06-2010 06:05

VintProg_Pro
Registered: 17-06-2010
Posts: 153

Re: Delphi

Нужен плагин.

Offline

#3 25-06-2010 10:28

RDH
From: Энгельс
Registered: 09-01-2010
Posts: 65

Re: Delphi

var [имя]: [procedure/function]([список параметров])[тип результата (если функция)]; cdecl[или тому подобное];

....

@[имя]:=Ptr([адрес процедуры/функции в EXE]);

Я так делаю.

Last edited by RDH (12-07-2010 13:20)


programmer.png
modder.jpg

Offline

#4 25-06-2010 12:07

VintProg_Pro
Registered: 17-06-2010
Posts: 153

Offline

#5 07-07-2010 17:02

RDH
From: Энгельс
Registered: 09-01-2010
Posts: 65

Re: Delphi

VintProg_Pro wrote:

А для VC?

Всмысле?


programmer.png
modder.jpg

Offline

#6 08-07-2010 11:04

DOG-GHOST
From: Honduras
Registered: 28-02-2010
Posts: 14
Website

Re: Delphi

RDH wrote:
VintProg_Pro wrote:

А для VC?

Всмысле?

Он походу про плагин для Вайс Сити

Offline

#7 15-09-2010 10:38

VintProg_Pro
Registered: 17-06-2010
Posts: 153

Re: Delphi

Наверное тоже самое, я так думаю ))).

Offline

#8 05-10-2010 08:16

VintProg_Pro
Registered: 17-06-2010
Posts: 153

Re: Delphi

Здравствуйте! Как можно использовать SCM функции из Delphi?

Тебе просто надо знать адреса функций "SCM", потом надо объявить прототипы функций и вызывать их из плагина, который может быть на писан на чем угодно, хотя на Delphi, С++.

Offline

#9 17-02-2011 21:17

CrazyDude69
Registered: 22-07-2009
Posts: 18

Re: Delphi

var g:procedure (value:byte); stdcall;
begin
@g:=ptr(hextoint('969130'));
g(1);
end.

Делаю так, после инжекта игра не отвечает, что я делаю не так?

Offline

#10 17-02-2011 22:29

Seemann
Registered: 07-08-2006
Posts: 2,155

Re: Delphi

шестнадцатиричные числа в дельфи пишутся с префиксом $ ($969130)

Offline

#11 18-02-2011 17:06

CrazyDude69
Registered: 22-07-2009
Posts: 18

Re: Delphi

Так тоже не работает

Offline

#12 19-02-2011 08:09

Sanchez
Registered: 18-08-2006
Posts: 280

Re: Delphi

@CrazyDude69 -

.data:00969130     _cheatEnabled   db 5Ch dup(?)           ; 0 ; DATA XREF: _sub_407400+4r
.data:00969130                                             ; _cheatEnableLegimate:loc_438381r
.data:00969130                                             ; _cheatEnableLegimate+1Cw
.data:00969130                                             ; _initCheats+8o ...

Это не функция что бы ее вызывать. Тебе скорее всего нужно вот это:

.text:00438370     _cheatEnableLegimate proc near          ; CODE XREF: _opcode_handler_26+510p
var
  g: procedure (Value: Integer); cdecl;

begin
  @g := Pointer($00438370);
end.

Offline

#13 20-02-2011 11:54

CrazyDude69
Registered: 22-07-2009
Posts: 18

Re: Delphi

Вот еще такой вопрос, здесь есть такой адрес:

0xC97C28 - IDirect3DDevice9 pointer

Так вот, этот адрес и является IDirect3DDevice9 или в этом адресе находится указатель на IDirect3DDevice9 ?

Все, понял, тут находится указатель на указатель. С помощью его запилил вот это:
[youtube]http://www.youtube.com/watch?v=HaS1WpJvfMA[/youtube]

Last edited by CrazyDude69 (20-02-2011 13:52)

Offline

#14 20-02-2011 14:10

Sw[ee]t
From: Нижний Новгород
Registered: 16-02-2009
Posts: 686
Website

Re: Delphi

Молодец, полезная вещица

Offline

#15 20-02-2011 14:47

Seemann
Registered: 07-08-2006
Posts: 2,155

Offline

#16 13-03-2011 20:31

0DimP0
Registered: 13-03-2011
Posts: 1

Re: Delphi

CrazyDude69 wrote:

Вот еще такой вопрос, здесь есть такой адрес:

0xC97C28 - IDirect3DDevice9 pointer

Так вот, этот адрес и является IDirect3DDevice9 или в этом адресе находится указатель на IDirect3DDevice9 ?

Все, понял, тут находится указатель на указатель. С помощью его запилил вот это:
[youtube]http://www.youtube.com/watch?v=HaS1WpJvfMA[/youtube]

хм, в свое время писал wh для gta sa на C++, можешь дать исходник на Delpi в личку ?

Offline

#17 13-07-2013 16:30

НикИТОС
Registered: 05-06-2013
Posts: 133
Website

Re: Delphi

Подскажите, пожалуйста, хороший самоучитель/учебник Turbo Delphi. Заранее благодарю.

Offline

#18 13-07-2013 17:28

DK22Pac
From: Ukraine
Registered: 26-03-2010
Posts: 447
Website

Re: Delphi

НикИТОС, google?


Plugin-SDK https://github.com/DK22Pac/plugin-sdk
Discord-сервер по plugin-sdk и программированию в GTA
RU https://discord.gg/QEesDGb
ENG https://discord.gg/zaVqFQv

Offline

#19 13-07-2013 17:35

НикИТОС
Registered: 05-06-2013
Posts: 133
Website

Re: Delphi

Если я хотел бы, чтобы мне подсказали хорошую поисковую систему, я бы так и написал. И не постеснялся бы попросить поискать за меня, если бы мне это было нужно. Как бы, не зря я именно сюда обратился. Мне нужна не рандомная книга о Delphi, а достойное, с точки зрения советчика, издание. Я мог бы написать и на специализированный форум, но я там никого не знаю, а здешним людям доверяю. Вот как-то так.

Offline

#20 13-07-2013 19:51

Seemann
Registered: 07-08-2006
Posts: 2,155

Re: Delphi

не знаю, что такое Turbo Delphi, но по Delphi достаточно вот этого
http://drkb.ru/

Offline

#21 13-07-2013 20:59

НикИТОС
Registered: 05-06-2013
Posts: 133
Website

Re: Delphi

Спасибо большое, загляну на досуге.

Offline

Board footer

Powered by FluxBB