Convertir C++ a Delphi

[Reasen]

Ah, querías enumerar las DLL cargadas...

Para saber si están ocultas o no, tendras que profundizar un poco más, pero puedes guiarte con esa base.

Igualmente más vale prevenir que curar, invierte mas en métodos de anti-dll_injection y anti-hooking

Código Delphi [-]
program Project2;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  SysUtils, Windows, TlHelp32;

var
  Handle: THandle;
  ModuleEntry: TModuleEntry32;
begin
  Handle := CreateToolHelp32SnapShot(TH32CS_SNAPMODULE, 0);
  Win32Check(Handle <> INVALID_HANDLE_VALUE);
  try
    ModuleEntry.dwSize := Sizeof(ModuleEntry);
    Win32Check(Module32First(Handle, ModuleEntry));
    repeat
      Writeln(ModuleEntry.szModule);
    until not Module32Next(Handle, ModuleEntry);
  finally
    CloseHandle(Handle);
  end;
  Readln;
end.

Fuente: http://stackoverflow.com/questions/2...t-of-used-dlls

[0x90]

Empezado por Reasen

Ah, querías enumerar las DLL cargadas...

Para saber si están ocultas o no, tendras que profundizar un poco más, pero puedes guiarte con esa base.

Igualmente más vale prevenir que curar, invierte mas en métodos de anti-dll_injection y anti-hooking

Código Delphi [-]
program Project2;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  SysUtils, Windows, TlHelp32;

var
  Handle: THandle;
  ModuleEntry: TModuleEntry32;
begin
  Handle := CreateToolHelp32SnapShot(TH32CS_SNAPMODULE, 0);
  Win32Check(Handle <> INVALID_HANDLE_VALUE);
  try
    ModuleEntry.dwSize := Sizeof(ModuleEntry);
    Win32Check(Module32First(Handle, ModuleEntry));
    repeat
      Writeln(ModuleEntry.szModule);
    until not Module32Next(Handle, ModuleEntry);
  finally
    CloseHandle(Handle);
  end;
  Readln;
end.

Bueno sale, gracias por toda la ayuda