XProfan

 $H messages.ph
 $H Structs.ph
 $H Windows.ph
 $H CommCtrl.ph
Def &MapFileSize 2000
Declare SD_hFileMap&
Declare SD_FileMapName$
Declare SD_Buffer#, SD_BufferAddr&
Dim SD_Buffer#, 2000
declare SD_zaehler1&
declare SD_instanz&
declare SD_instanz_String$
declare SD_INI_Sum$

proc Speicherdatei_einrichten

    SD_FileMapName$ = TESTFILE + @Chr$(0)
    SD_hFileMap& = ~OpenFileMapping( ~FILE_MAP_ALL_ACCESS , 0, @Addr (SD_FileMapName$) )

    ifnot SD_hFileMap&

        SD_hFileMap& = ~CreateFileMapping($FFFFFFFF, 0, ~PAGE_READWRITE, 0, &MapFileSize, @Addr(SD_FileMapName$))
        SD_Buffer# = ~MapViewOfFile(SD_hFileMap&, ~FILE_MAP_ALL_ACCESS, 0, 0, 0)
        doppel_start& = 0
        master_Instanz% = 1

    endif

    SD_Buffer# = ~MapViewOfFile(SD_hFileMap&, ~FILE_MAP_ALL_ACCESS, 0, 0, 0)
    Instanz_Kommunikation MASTERSUCHEN
    zaehler_1& = 0

    repeat

        inc zaehler_1& ,30

    until @len ( @String$ (SD_Buffer#, zaehler_1&)) = 0

    if master_Instanz%

        String SD_Buffer#, zaehler_1& = @str$(%hwnd)+|+Inifilesumme$+|M|

    else

        String SD_Buffer#, zaehler_1& = @str$(%hwnd)+|+Inifilesumme$+|S|

    endif

endproc

Speicherdatei_einrichten
waitkey
end

doppel_start&
master_Instanz%
zaehler_1&
Inifilesumme$
Instanz_Kommunikation