Pointer & Co

[himitsu]

Erstmal würde ich es in eine eigene Unite verlegen,
dann sollte dich Delphi über die eventuell uninitialisierten Variablen verwarnt haben.

Delphi-Quellcode:

function GetSFString: String;
var
  hSFMemory: HWND;
  SfAreaPtr: PAnsiChar;
begin
  hSFMemory := 0;
  SfAreaPtr := nil;
  try
    hSFMemory := OpenFileMapping(FILE_MAP_READ, False, 'SFSharedMemory_ALM');
    if HSFMemory <> 0 then begin
      SfAreaPtr := MapViewOfFile(hSFMemory, FILE_MAP_READ, 0, 0, 0);
      Result := SfAreaPtr;
    end else
      Result := '';
  finally
    UnmapViewOfFile(SfAreaPtr);
    CloseHandle(hSFMemory);
  end;
end;

Außerdem willst du den Speicherbereich als Text auslesen, was wohl (laut dem Beispiel) nicht stimmt,
schau dir das Beispiel nochmal genau an, such den Record (also den Aufbau der Daten in diesem Speicherbereich) raus und greife über diesen Record auf die Daten zu.

Delphi-Quellcode:

function GetSFString: ...;
var
  hSFMemory: HWND;
  SfAreaPtr: PSFRawMemMap;
begin
  hSFMemory := 0;
  SfAreaPtr := nil;
  try
    hSFMemory := OpenFileMapping(FILE_MAP_READ, False, 'SFSharedMemory_ALM');
    if HSFMemory <> 0 then begin
      SfAreaPtr := MapViewOfFile(hSFMemory, FILE_MAP_READ, 0, 0, 0);
      ... // SfAreaPtr^.irgendwas
    end else
      ...;
  finally
    UnmapViewOfFile(SfAreaPtr);
    CloseHandle(hSFMemory);
  end;
end;

[add]
@p80286: jupp, hab ich ... zumindestens etwas genauer überflogen