function GetWMPath:string;
var
  memarr:array of char;       // динамический массив для памяти!
  hProc : THandle;
  MBI : MEMORY_BASIC_INFORMATION;
  counter,i,j  : cardinal;
  ln : Integer;
  MaxAddy,temp : Cardinal;
  dwSize, dwAddress: cardinal;
  hwnd, proc_id: dword;

  f: file;
begin
  enabledebug;        // вызов процедуры получения прав, смотри ниже!!!

  counter :=0;
  SetLength(memarr, 0);

  dwAddress := $400000;
  MaxAddy := $80000000;

  hwnd:=FindWindow (pchar('SciCalc'), nil);      // получаем хэндл по классу окна

  GetWindowThreadProcessId (hwnd,@proc_id);
  hProc := OpenProcess(PROCESS_QUERY_INFORMATION, False, Proc_ID);

  While (VirtualQueryEx(hProc, Pointer(dwAddress), MBI, SizeOf(MEMORY_BASIC_INFORMATION)) > 0) and (cardinal(MBI.BaseAddress) + MBI.RegionSize < MaxAddy) do
  begin
    If (MBI.Protect = PAGE_READWRITE) and (MBI.Type_9 = MEM_PRIVATE) and ((MBI.State = MEM_COMMIT) or (MBI.State = MEM_RESERVE)) Then
    begin
      dwSize := MBI.RegionSize;
      dwAddress := cardinal(MBI.BaseAddress) + (MBI.RegionSize - dwSize);

      SetLength(memarr, counter + dwSize);
      ReadProcessMemory(hproc,
                        pointer(dwAddress),
                        @memarr[counter],
                        dwSize,
                        temp);
      counter := counter + dwSize;
    end;
    Inc(dwAddress, MBI.RegionSize);
  end;
  CloseHandle(hProc);



  assignfile(f, 'test.txt');                  // debug - сохранение дампа
  rewrite(f,1);                                // оставил на всякий случай!
  i:=0;
  repeat
    blockwrite(f, memarr[i], 50);
    i:=i+50;
  until i >= counter;
  closefile(f);

  Finalize(memarr);
  FreeMem(memarr);
end;

procedure enabledebug;
var TokenHandle: THandle; dwNull: DWORD;
  TokenPrivilege, Tmp: TTokenPrivileges;
begin
  try
    OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, TokenHandle);
    LookupPrivilegeValue(nil, 'SeDebugPrivilege', TokenPrivilege.Privileges[0].Luid);

    with TokenPrivilege do begin
      PrivilegeCount := 1;
      Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
    end;

    dwNull := 0;

    AdjustTokenPrivileges(TokenHandle, False,
      TokenPrivilege, SizeOf(TTokenPrivileges), Tmp, dwNull);

  except
    ShowMessage('debug error!');
  end;
end;

> function GetWMPath:string;
> var
>   memarr:array of char;       // динамический массив для
> памяти!
>   hProc : THandle;
>   MBI : MEMORY_BASIC_INFORMATION;
>   counter,i,j  : cardinal;
>   ln : Integer;
>   MaxAddy,temp : Cardinal;
>   dwSize, dwAddress: cardinal;
>   hwnd, proc_id: dword;
> 
>   f: file;
> begin
>   enabledebug;	      // вызов процедуры получения прав,
> смотри ниже!!!
> 
>   counter :=0;
>   SetLength(memarr, 0);
> 
>   dwAddress := $400000;
>   MaxAddy := $80000000;
> 
>   hwnd:=FindWindow (pchar('SciCalc'), nil);	 //
> получаем хэндл по классу окна
> 
>   GetWindowThreadProcessId (hwnd,@proc_id);
>   hProc := OpenProcess(PROCESS_QUERY_INFORMATION, False,
Открывать с нужными правами здесь. А какие нужны - смотри MSDN (вкратце я привел выше)

> Proc_ID);
> 
>   While (VirtualQueryEx(hProc, Pointer(dwAddress), MBI,
Для VirtualQuery должно хватить, а ни на что другое не должно



>     AdjustTokenPrivileges(TokenHandle, False,
>       TokenPrivilege, SizeOf(TTokenPrivileges), Tmp,
> dwNull);
Это не нужно.

>   except
>     ShowMessage('debug error!');
>   end;
> end;
>