MemoryMapped Files unter Vista - keine Daten

[Zacherl]

Ich habe Luckies Beispiel genommen. Die Fehlercodes geben nur SUCCESS zurück. Meine Funktion ist so geändert, dass ich direkt einen Pointer schreibe.

Delphi-Quellcode:

function WriteToMMF(Data: Pointer; Len: Integer; Filename: string): DWORD;
var
  dwResult: DWORD;
  hFileMapping: THandle;
  Mem: Pointer;
begin
  dwResult := 0;
  hFileMapping := CreateFileMapping(INVALID_HANDLE_VALUE, nil,
    PAGE_READWRITE, 0, Len, PChar(Filename));
  if hFileMapping <> 0 then
  begin
    Mem := MapViewOfFile(hFileMapping, FILE_MAP_WRITE, 0, 0, 0);
    if Assigned(Mem) then
    begin
      CopyMemory(Mem, Data, Len);
      //CloseHandle(hFileMapping);
    end;
  end
    else
  begin
    dwResult := GetLastError;
  end;
  Result := dwResult;
end;

Erster "Fehler" rufe ich CloseHandle auf, kann ich im anderen Programm schon gar nicht auf die Daten zugreifen. Zweite Sache ist .. ich habs genauer getestet.

Ich schicke erst einen PChar, welcher auch korrekt ankommt. Danach sende ich Pointer(Len) mit SizeOf(Integer). Dies ist die Passage, welche nicht ankommt.
Das Längenbyte ist 0. Was ich versuche ist unabhängig vom String eine ganze Resource zur anderen Anwendung zu schicken. Da die Anwendung ja nicht weiß wie groß die Resource sein wird, musste ich das mit dem Längenbyte vorweg machen.

Insgesamt habe ich zur besseren Übersicht einfach 3 Verschiedene "Dateinamen" verwendet.