плагины на pascal

надо?


  • Всего проголосовало
    8

Digger Man52

52NGG
Автор темы
Проверенный
1,122
987
короче, хотел задать вопрос, большинству самперов в школе, преподают паскаль, так что скорее всего эта тема будет для них очень интересна, нужен ли вам апи для написания плагинов на паскале? ибо на паскале тоже есть хуки, для тех кто не знал!
пример хука на паскале!
pascal:
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;
 
Последнее редактирование:

memir

🇷🇺
Всефорумный модератор
339
611
короче, хотел задать вопрос, большинству самперов в школе, преподают паскаль, так что скорее всего эта тема будет для них очень интересна, нужен ли вам апи для написания плагинов на паскале? ибо на паскале тоже есть хуки, для тех кто не знал!
пример хука на паскале!
pascal:
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()..., а напрямую писать в собственную память
 
  • Влюблен
Реакции: YarikVL