плагины на pascal

[Digger Man]

короче, хотел задать вопрос, большинству самперов в школе, преподают паскаль, так что скорее всего эта тема будет для них очень интересна, нужен ли вам апи для написания плагинов на паскале? ибо на паскале тоже есть хуки, для тех кто не знал!
пример хука на паскале!

Procedure MemHook;
Var
    mcb: MemoryControlBlock;
Begin
    mcb.dwSize := SizeOf(MemoryControlBlock);
    If GlobalMemoryStatusEx(@mcb) Then
    Begin
        // Получаем адрес для перехвата ячейки памяти
        Addr := mcb.BaseAddress + mcb.ullTotalPhys;
        // Подменяем байты в указанном адресе
        WriteProcessMemory(GetCurrentProcess(), Addr, NewValue, SizeOf(NewValue), nil);
    End;
End;

 

[Loocking]

ЗАЧЕМ АХАХ

 

[tor1]

бля пиздец))

 

[etereon]

сделай самп апи для ассемблера

 

[memir]

короче, хотел задать вопрос, большинству самперов в школе, преподают паскаль, так что скорее всего эта тема будет для них очень интересна, нужен ли вам апи для написания плагинов на паскале? ибо на паскале тоже есть хуки, для тех кто не знал!
пример хука на паскале!

Procedure MemHook;
Var
    mcb: MemoryControlBlock;
Begin
    mcb.dwSize := SizeOf(MemoryControlBlock);
    If GlobalMemoryStatusEx(@mcb) Then
    Begin
        // Получаем адрес для перехвата ячейки памяти
        Addr := mcb.BaseAddress + mcb.ullTotalPhys;
        // Подменяем байты в указанном адресе
        WriteProcessMemory(GetCurrentProcess(), Addr, NewValue, SizeOf(NewValue), nil);
    End;
End;

В паскале есть указатели, поэтому можно обойтись без использования WriteProcessMemory(GetCurrentProcess()..., а напрямую писать в собственную память

 

[Digger Man]

возможно кому то будет интересно, так что репозиторий, который буду обновлять прикреплю ниже

GitHub - DiggerMan-cpp/Pas-API: Pascal API For SAMP

Pascal API For SAMP. Contribute to DiggerMan-cpp/Pas-API development by creating an account on GitHub.

github.com