1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

function sizeofmem(p: pointer): integer;
var dosh: PImageDosHeader;
    nth: PImageNtHeaders;
begin
  result := 0;
  dosh := p;
  if dosh^.e_magic = IMAGE_DOS_SIGNATURE then
  begin
    nth := pointer(integer(dosh)+dosh^._lfanew);
    if nth^.Signature = IMAGE_NT_SIGNATURE then
    begin
      result := nth^.OptionalHeader.SizeOfImage
    end;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

  var i,size: integer;
  for i := 0 to $7FFF do
  begin
    if not isbadreadptr(pointer(i*$10000),$1000) then
    begin
      size := sizeofmem(pointer(i*$10000));
      if size <> 0 then
      begin
         // pointer(i*$10000) = anfang des speichers
         // size = größe des speichers
         // mit getmodulefilename(pointer(i*$10000),...) bekommste den modulnamen
      end;
    end;
  end;