Prozess aneignen

[sirius]

Zur Bestimmung der Länge nimmst du eine Hilfsprocedure (oder einfach die darunter liegende)

Delphi-Quellcode:

procedure ToCopy;  //achte darauf, dass sie den Parametern einer ThreadFunc entsprechen muss.
  ...  
end;
procedure nothing;
asm nop end;

...
size_toCopy:=integer(@nothing)-integer(@toCopy);

Du darfst dann aber in ToCopy keine dynamischen Variablen und keine Funktionen verwenden.

Besser ist, du lädst eine DLL in den anderen Speicher:
Schau mal hier In der DP gibt es da auch ne Menge.

Edit:
Um nur ein oder zwei Funktionen zu kopieren, kannst du einen record zusammenbasteln mit Code und "globalen" Variablen, so wie ich es hier im Record TMemory gemacht habe.

Edit2: Und die openGL.pas brauchst du nicht zu kopieren, da die OpenGL-Befehle in jedem Process existieren, du musst dir das Handle zum Modul opengl32 (getmodulehandle) holen und mit getprocaddress die Einsprungadressen. Aber wenn es zu viele Funktionen sind, ist der Aufwand viel zu groß um nicht gleich auf eine DLL umzusteigen.