1:
2:
3:
4:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption := IntToStr(System.MainInstance);
end;

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

    ProcSnap:= CreateToolHelp32Snapshot(TH32CS_SnapProcess, 0);
    ProcessEntry.dwSize:= SizeOf(ProcessEntry);
    FindProcess:= Process32First(ProcSnap, ProcessEntry);
      ProcID:= -1;
    while FindProcess do begin
      if (CompareText(ProcessEntry.szExeFile, ProcessName) =0) then
        ProcID := ProcessEntry.th32ProcessID;
        FindProcess := Process32Next(ProcSnap, ProcessEntry);
      end;
      CloseHandle(ProcSnap);
    if ProcID >= 0 then begin
      ProcOpen := OpenProcess(PROCESS_ALL_ACCESS, FALSE, ProcID);

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

function GetProcessBaseAddress(PID: Cardinal;
  var BaseAddress: Cardinal):Boolean;
var
  proc,fool,th: Cardinal;
  adr: Pointer;
begin
  proc := OpenProcess(PROCESS_ALL_ACCESS, False, PID);
  if proc = 0 then
    Exit(False);
  try
    adr := GetProcAddress(GetModuleHandle('kernel32.dll'), 'GetModuleHandleA');
    if not assigned(adr) then
      Exit(False);
    th := CreateRemoteThread(proc, nil, 0, adr, nil, 0, fool);
    if th = 0 then
      Exit(False);
    try
      WaitForSingleObject(th,INFINITE);
      Result := GetExitCodeThread(th,BaseAddress);
    finally
      CloseHandle(th);
    end;
  finally
    CloseHandle(proc);
  end;
end;

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

procedure TForm1.Button1Click(Sender: TObject);
begin
    ProcSnap:= CreateToolHelp32Snapshot(TH32CS_SnapProcess, 0);
    ProcessEntry.dwSize:= SizeOf(ProcessEntry);
    FindProcess:= Process32First(ProcSnap, ProcessEntry);
      ProcID:= 0;
    while FindProcess do begin
      if (CompareText(ProcessEntry.szExeFile, ProcessName) =0) then
        ProcID := ProcessEntry.th32ProcessID;
        FindProcess := Process32Next(ProcSnap, ProcessEntry);
      end;
    CloseHandle(ProcSnap);
      if ProcID > 0 then begin
         ProcBaseAddy:= GetProcessBaseAddress(ProcID, ?????);        // Hier raff ich nich was da anstelle der Fragezeichen hingehört

      end;
end;

1:
2:
3:
4:

Function SummeAusDrei (zahl1, zahl2, zahl3: integer): integer;
begin
result:= zahl1 + zahl2 + zahl3;
end;

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

Procedure DoIt; // deine Procedure die die ProcessId ermittelt und nun die BaseAddress haben will.
var
  OutBaseAddress: Cardinal; // der Rückgabeparameter den du mit übergeben muss, "Out" habe ich nur der Lesbarkeit halber davor gesetzt
  PID: Cardinal;

begin
  PID := GibMirNenPID;
  if GetProcessBaseAddress(PID, OutBaseAddress) then
  begin
    // mache was mit der erhaltenen BaseAddress (OutBaseAddress)
  end;
end;

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TLHelp32, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    function GetProcessBaseAddress(PID: Cardinal; var BaseAddress: Cardinal):Boolean;   // Hier wird die Funktion implementiert
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;                           // Hier sind sämtliche Deklarationen meiner Prozedur Button1Click
  hSnapshot: Thandle;
  ProcessEntry: ProcessEntry32;
  Schleife: Boolean;
  pD: Cardinal;                            // Uhrsprünglich war in der Variable pID die ProcessID abgelegt
                                           // umbenannt zu pD der Deutlichkeit halber
  Const ProcessName = 'Firefox.exe';

implementation

{$R *.dfm}

function GetProcessBaseAddress(PID: Cardinal; var BaseAddress: Cardinal):Boolean;   // Das ist die Funktion, nicht abgeändert
var                                                                                 // völlig "Original"
  proc,fool,th: Cardinal;
  adr: Pointer;
begin
  proc := OpenProcess(PROCESS_ALL_ACCESS, False, PID);
  if proc = 0 then
    Exit(False);
  try
    adr := GetProcAddress(GetModuleHandle('kernel32.dll'), 'GetModuleHandleA');
    if not assigned(adr) then
      Exit(False);
    th := CreateRemoteThread(proc, nil, 0, adr, nil, 0, fool);
    if th = 0 then
      Exit(False);
    try
      WaitForSingleObject(th,INFINITE);
      Result := GetExitCodeThread(th,BaseAddress);
    finally
      CloseHandle(th);
    end;
  finally
    CloseHandle(proc);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  OutBaseAddress: Cardinal; // der Rückgabeparameter den du mit übergeben muss, "Out" habe ich nur der Lesbarkeit halber davor gesetzt
  PID: Cardinal;

begin                                                                 // Ab hier werden die Prozesse nach "Firefox.exe" gefiltert
  hSnapshot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  ProcessEntry.dwSize := Sizeof(ProcessEntry);
  Schleife := Process32First(hSnapshot, ProcessEntry);
  pD := 0;                                                            // pD vorher auf 0 (NULL) setzen
    while Schleife do begin
      if (CompareText(ProcessEntry.szExeFile, ProcessName) = 0) then  // Wenn der Prozess "Firefox.exe" gefunden wurde
      pD := ProcessEntry.th32ProcessID;                               // dann wird in pD die ProcessID abgelegt
      Schleife := Process32Next(hSnapshot, ProcessEntry);             // ansonsten von vorn beginnen
    end;
  CloseHandle(hSnapshot);                                             // Schließen des Snapshots
    if pD > 0 then begin                                              // Wenn pD größer 0 (NULL) dann übergabe an Funktion "GetProcessBaseAddress
       PID := pD;                                                     // Der Verdeutlichung halber wird die ProcessID
                                                                      //   die ja in pD abgelegt ist, nach PID verschoben
       if GetProcessBaseAddress(PID, OutBaseAddress) then
        NewAddy:= OutBaseAddress;                                     // Hier wird/sollte die ermittelte Basis Addresse in die
       end;                                                           //   Variable NewAddy geschoben werden
    end;
end;

end.

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,TLHelp32;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  hSnapshot: Thandle;
  ProcessEntry: ProcessEntry32;
  Schleife: Boolean;
  pD: Cardinal;                            // Uhrsprünglich war in der Variable pID die ProcessID abgelegt
                                           // umbenannt zu pD der Deutlichkeit halber
  Const ProcessName = 'Firefox.exe';

implementation

{$R *.dfm}

function GetProcessBaseAddress(PID: Cardinal; var BaseAddress: Cardinal):Boolean;   // Das ist die Funktion, nicht abgeändert
var                                                                                 // völlig "Original"
  proc,fool,th: Cardinal;
  adr: Pointer;
begin
  proc := OpenProcess(PROCESS_ALL_ACCESS, False, PID);
  if proc = 0 then
    Exit(False);
  try
    adr := GetProcAddress(GetModuleHandle('kernel32.dll'), 'GetModuleHandleA');
    if not assigned(adr) then
      Exit(False);
    th := CreateRemoteThread(proc, nil, 0, adr, nil, 0, fool);
    if th = 0 then
      Exit(False);
    try
      WaitForSingleObject(th,INFINITE);
      Result := GetExitCodeThread(th,BaseAddress);
    finally
      CloseHandle(th);
    end;
  finally
    CloseHandle(proc);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  OutBaseAddress: Cardinal; // der Rückgabeparameter den du mit übergeben muss, "Out" habe ich nur der Lesbarkeit halber davor gesetzt
  PID: Cardinal;

begin                                                                 // Ab hier werden die Prozesse nach "Firefox.exe" gefiltert
  hSnapshot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  ProcessEntry.dwSize := Sizeof(ProcessEntry);
  Schleife := Process32First(hSnapshot, ProcessEntry);
  pD := 0;                                                            // pD vorher auf 0 (NULL) setzen
  while Schleife do
  begin
    if (CompareText(ProcessEntry.szExeFile, ProcessName) = 0) then  // Wenn der Prozess "Firefox.exe" gefunden wurde
      pD := ProcessEntry.th32ProcessID;                               // dann wird in pD die ProcessID abgelegt
    Schleife := Process32Next(hSnapshot, ProcessEntry);             // ansonsten von vorn beginnen
  end;
  CloseHandle(hSnapshot);                                             // Schließen des Snapshots
  if pD > 0 then
  begin                                              // Wenn pD größer 0 (NULL) dann übergabe an Funktion "GetProcessBaseAddress
    PID := pD;                                                     // Der Verdeutlichung halber wird die ProcessID                                                                //   die ja in pD abgelegt ist, nach PID verschoben
    if GetProcessBaseAddress(PID, OutBaseAddress) then
      Edit1.Text := IntToStr(OutBaseAddress);                                     // Hier wird/sollte die ermittelte Basis Addresse in die
  end;                                                           //   Variable NewAddy geschoben werden
end;
//end;
end.

1:

NewAddy:= OutBaseAddress;

1:
2:
3:
4:
5:
6:

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    // Bei mir war hier noch die Funktion eingebunden

1:
2:
3:
4:
5:
6:
7:

...
implementation

procedure TForm1.Button1Click(Sender: TObject);
begin
end;
...

1:

function GetProcessBaseAddress(PID: Cardinal; var BaseAddress: Cardinal):Boolean; forward;