Proceduren Pointer übergeben

[Desmulator]

Hallo Leute,
also ich komme mal direkt zur sache: es geht darum, einer ThreadFunktion einen Pointer auf eine andere Funktion zu übergeben, die dann ausgeführt werden soll.

Delphi-Quellcode:

  TThreadInfo = record
    Address : TThreadProcedure;
    Param : Pointer;
  end;
  PThreadInfo = ^TThreadInfo;

...

procedure ThreadProcedure(Info : PThreadInfo); stdcall;
begin
  WriteLn('Hallo Welt!');
  Info.Address(Info.Param);
  FreeMem(Info,SizeOf(TThreadInfo));
  ThreadTerminated := true;
  ThreadReleased := false;
end;

...
  ThreadInfo.Address := ThreadStartAddress;
  ThreadInfo.Param := Param;
  GetMem(ThreadPosition,SizeOf(TThreadInfo));
  Move(ThreadInfo,ThreadPosition^,SizeOf(TThreadInfo));
  ThreadHandle := CreateThread(nil,0, @ThreadProcedure, ThreadPosition, 0, ThreadID);

"Hallo Welt!" wird ausgegeben, dannach erhalte ich eine Zugriffsverletzung. Allerdings stimmt der Wert in Param, wodurch ich davon ausgehe das der Record der richtige ist. Dann wird der Fehler wohl in dem Funkionsaufruf liegen...

Naja bis denne