Herausfinden wer wann auf einen shared memory Bereicht zugreift

[shmia]

Du solltest erst mal die vorhandene Fehlerinformation auswerten und eine Exception auslösen (keine MessageBox verwenden!).

Delphi-Quellcode:

procedure MyForm.InitMemorySharing;
begin
  if FpMyPara = nil then
  begin
    FileMapping := CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE,
                                   0, sizeof(TMyPara), pchar('MyPara'));
    if FileMapping = 0 then
    begin
      raise EWin32Error.Create('Can''t Create Memory Map'#13#10+SysErrorMessage(GetLastError));
    end;