SharedData von Petr Vones unter D7;

[the-networker]

Unter D5 konnte man mit der Unit SharedData von Petr Vones ein "shared segment"
unter Delphi erstellen.

Delphi-Quellcode:

unit SharedData;

// Shared data template unit

interface

type
  PSharedData = ^TSharedData;
  TSharedData = packed record
    // Put your data here ...
  end;

var
  __SHAREDDATA: PSharedData = nil;

implementation

var
  __SHAREDDATASIZE: Integer = SizeOf(__SHAREDDATA^);

exports
  __SHAREDDATA, __SHAREDDATASIZE;

initialization
  Assert(__SHAREDDATA <> nil);
  Inc(PChar(__SHAREDDATA), HInstance);

end.

Leider läßt sich das ganze nicht mehr unter D7 kompilieren.
__SHAREDDATA, __SHAREDDATASIZE können nicht exportiert werden.

Hat jemand eine Idee?

Gruß
uwe