1.6.50

* Добавлен поиск ссылок на указаный адрес
* Добавлен поиск по маске
* Сохранение результатов поиска в файл

Author: AlexanderBagel

MemoryMap/MemoryMap.Core.pas

@@ -6,7 +6,7 @@
 //  * Purpose   : Базовый класс собирающий информацию о карте памяти процесса
 //  * Author    : Александр (Rouse_) Багель
 //  * Copyright : © Fangorn Wizards Lab 1998 - 2026.
-//  * Version   : 1.4.38
+//  * Version   : 1.4.39
 //  * Home Page : http://rouse.drkb.ru
 //  * Home Blog : http://alexander-bagel.blogspot.ru
 //  ****************************************************************************
@@ -36,8 +36,8 @@ interface
   MemoryMap.DebugMapData;
 
 const
-  MemoryMapVersionInt = $01040026;
-  MemoryMapVersionStr = '1.4 (revision 38)';
+  MemoryMapVersionInt = $01040027;
+  MemoryMapVersionStr = '1.4 (revision 39)';
 
 type
   // Типы фильтров

MemoryMap/MemoryMap.DebugMapData.pas

@@ -5,8 +5,8 @@
 //  * Unit Name : MemoryMap.DebugMapData.pas
 //  * Purpose   : Класс для работы с отладочным MAP файлом.
 //  * Author    : Александр (Rouse_) Багель
-//  * Copyright : © Fangorn Wizards Lab 1998 - 2024.
-//  * Version   : 1.4.36
+//  * Copyright : © Fangorn Wizards Lab 1998 - 2026.
+//  * Version   : 1.4.39
 //  * Home Page : http://rouse.drkb.ru
 //  * Home Blog : http://alexander-bagel.blogspot.ru
 //  ****************************************************************************
@@ -35,6 +35,8 @@   TDebugMapItem = record
     Executable: Boolean;
   end;
 
+  TLoadCallback = reference to procedure (Current, Total: Integer);
+
   TDebugMap = class
   private type
     TSectionData = record
@@ -58,7 +60,8 @@     TLineData = record
     constructor Create;
     destructor Destroy; override;
     procedure Clear;
-    procedure Init(BaseAddress: ULONG_PTR; const ModulePath: string);
+    procedure Init(BaseAddress: ULONG_PTR; const ModulePath: string); overload;
+    procedure Init(BaseAddress: ULONG_PTR; const ModulePath: string; ACallback: TLoadCallback); overload;
     function GetAddrFromDescription(const Value: string): ULONG_PTR;
     function GetDescriptionAtAddr(Address: ULONG_PTR;
       AddModuleName: Boolean = True): string;
@@ -246,7 +249,8 @@ function TDebugMap.GetLineNumberAtAddrForced(BaseAddress: ULONG_PTR;
   end;
 end;
 
-procedure TDebugMap.Init(BaseAddress: ULONG_PTR; const ModulePath: string);
+procedure TDebugMap.Init(BaseAddress: ULONG_PTR; const ModulePath: string;
+  ACallback: TLoadCallback);
 var
   I, Count: Integer;
   Line: string;
@@ -258,6 +262,8 @@ procedure TDebugMap.Init(BaseAddress: ULONG_PTR; const ModulePath: string);
     Result := I < Count;
     if Result then
       Line := Trim(MapFile[I]);
+    if Assigned(ACallback) then
+      ACallback(I, Count);
   end;
 
   procedure SkipEmptyLines;
@@ -519,6 +525,11 @@ procedure TDebugMap.Init(BaseAddress: ULONG_PTR; const ModulePath: string);
   end;
 end;
 
+procedure TDebugMap.Init(BaseAddress: ULONG_PTR; const ModulePath: string);
+begin
+  Init(BaseAddress, ModulePath, nil);
+end;
+
 function TDebugMap.ModuleLoaded(const ModuleName: string): Boolean;
 var
   I: Integer;

ProcessMM.dproj

@@ -77,7 +77,7 @@
     </PropertyGroup>
     <PropertyGroup Condition="'$(Base)'!=''">
         <SanitizedProjectName>ProcessMM</SanitizedProjectName>
-        <VerInfo_Keys>CompanyName=;FileDescription=Tool for examining process memory;FileVersion=1.6.49.2527;InternalName=pmm.exe;LegalCopyright=© Alexander (Rouse_) Bagel;LegalTrademarks=;OriginalFilename=ProcessMM.exe;ProductName=Process Memory Map;ProductVersion=1.6;Comments=</VerInfo_Keys>
+        <VerInfo_Keys>CompanyName=;FileDescription=Tool for examining process memory;FileVersion=1.6.50.2555;InternalName=pmm.exe;LegalCopyright=© Alexander (Rouse_) Bagel;LegalTrademarks=;OriginalFilename=ProcessMM.exe;ProductName=Process Memory Map;ProductVersion=1.6;Comments=</VerInfo_Keys>
         <Manifest_File>None</Manifest_File>
         <VerInfo_Locale>1033</VerInfo_Locale>
         <Icon_MainIcon>ProcessMM_Icon1.ico</Icon_MainIcon>
@@ -91,8 +91,8 @@
         <DCC_K>false</DCC_K>
         <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
         <VerInfo_MinorVer>6</VerInfo_MinorVer>
-        <VerInfo_Release>49</VerInfo_Release>
-        <VerInfo_Build>2527</VerInfo_Build>
+        <VerInfo_Release>50</VerInfo_Release>
+        <VerInfo_Build>2555</VerInfo_Build>
         <DCC_MapFile>3</DCC_MapFile>
         <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
         <VerInfo_PreRelease>true</VerInfo_PreRelease>
@@ -170,7 +170,7 @@ $(PreBuildEvent)]]></PreBuildEvent>
         <DCC_Define>MP;$(DCC_Define)</DCC_Define>
         <DCC_IntegerOverflowCheck>true</DCC_IntegerOverflowCheck>
         <DCC_RangeChecking>true</DCC_RangeChecking>
-        <Debugger_RunParams>self -resources</Debugger_RunParams>
+        <Debugger_RunParams>19528</Debugger_RunParams>
     </PropertyGroup>
     <ItemGroup>
         <DelphiCompile Include="$(MainSource)">

ProcessMM.res

@@ -39,7 +39,7 @@
 Под более старыми версиями Delphi работоспособность ProcessMemoryMap не проверялась и не гарантируется.
 
 ### Внутренние версии фреймворков:
-* MemoryMap Core - 1.4.38
+* MemoryMap Core - 1.4.39
 * RawScanner Core - 1.2.27
 * FWZip - 2.0.10
 * Distorm - 3.5.3
@@ -58,6 +58,11 @@
 
 ### Обновления:
 
+1.6.50 от 15.06.2026
+* Добавлен поиск ссылок на указаный адрес
+* Добавлен поиск по маске
+* Сохранение результатов поиска в файл
+
 1.6.49 от 04.06.2026
 * Добавлен механизм отката патчей в удаленном процессе
 

README.md

@@ -20,6 +20,9 @@ object dlgFindData: TdlgFindData
   OnCreate = FormCreate
   OnShow = FormShow
   PixelsPerInch = 144
+  DesignSize = (
+    743
+    170)
   TextHeight = 21
   object Label1: TLabel
     Left = 24
@@ -54,6 +57,15 @@ object dlgFindData: TdlgFindData
     Margins.Bottom = 5
     Caption = 'Start (HEX):'
   end
+  object btnHelp: TSpeedButton
+    Left = 693
+    Top = 48
+    Width = 29
+    Height = 29
+    Anchors = [akTop, akRight]
+    Caption = '?'
+    OnClick = btnHelpClick
+  end
   object btnCancel: TButton
     Left = 609
     Top = 123
@@ -129,7 +141,7 @@ object dlgFindData: TdlgFindData
   object cbSearchText: TComboBox
     Left = 72
     Top = 48
-    Width = 650
+    Width = 613
     Height = 29
     Margins.Left = 5
     Margins.Top = 5