1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

  //MapFile erstellen falls noch nicht vorhanden
  MapHandle:= CreateFileMapping($FFFFFFFF,nil,PAGE_READWRITE,0,Sizeof(TData),MapName);
  If MapHandle > 0 then
   Begin
    //Auf den Speicherbereich zugreifen
    PData := MapViewOfFile(MapHandle,FILE_MAP_ALL_ACCESS,0,0,0);
    IF PData <> nil then
     Begin
     End
      else
       Begin
        raise exception.create('Mapfile konnte nicht geцffnet werden.');
        Close;
       End;
   End
    else
     begin
      raise exception.Create('Mapfile konnte nicht erstellt werden.');
      Close;
     end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

  function action1() : integer;
  begin
  //Daten aus der Mapfile lesen
  if pdata=nil then actioninuse:=false //falls noch kein eintrag existiert
  else actioninuse:=pdata.data1; 
    while actioninuse do //warten bis freigegeben wurde
    begin
      //Daten aus der Mapfile lesen
      actioninuse:=pdata.data1;
      showmessage('Its in use');
    end;
    //Daten in die Mapfile speichern
    PData.Data1 := false;  //beim durchlaufen mit debugger ist hier immer schluss.. wieso? passiert selbst wenn ich das progg vorher eine sekunde anhalte...
  end;					

1:
2:
3:
4:
5:
6:

Type TData = Packed Record
      Data1 : boolean;
End;
  PTData = ^TData;

Const MapName = 'MyMapFile';					

1:
2:
3:
4:
5:
6:
7:
8:

  //MapFile erstellen falls noch nicht vorhanden
  MapHandle:= CreateFileMapping($FFFFFFFF,nil,PAGE_READWRITE,0,Sizeof(TData),MapName);
  If MapHandle > 0 then
  Begin
    //Auf den Speicherbereich zugreifen
    PData := MapViewOfFile(MapHandle,FILE_MAP_ALL_ACCESS,0,0,0);
  end;
  pdata.data1:=false;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

function action1() : integer;
begin
  //Daten aus der Mapfile lesen
  if pdata=nil then actioninuse:=false
  else actioninuse:=pdata.data1;
  while actioninuse do //do nothing as long as an action is in use
  begin
    //Daten aus der Mapfile lesen
    actioninuse:=pdata.data1;
    showmessage('Its in use');
  end;
  //Daten in die Mapfile speichern
  PData.Data1 := false;
end;