{
DataType.Txt 내용

type
   PDLLData = ^TDLLData;
   TDLLData = Record
          Name : string[20];
          ZipNo: string[10];
          Default: String[60];
          Bitmap : TBitmap;
   end;
}


일반 문자열이나 정수형은 되는데
그림같은 자료는 공유할수 있는 방법이 없나요

FileMapObj :=CreateFileMapping(
                 $FFFFFFFF,                // 파일 연동 안함.
                 nil,                      // 보안문제 신경 안 씀.
                 PAGE_READWRITE,           // 읽고 쓸 것임.
                 0,                        // 크기 상위 DWORD
                 SizeOf(DLLDATA),          // 크기 하위 DWORD
                 MMName                    // 메맵 파일의 이름
                );


//쓰기
procedure TForm1.Button2Click(Sender: TObject);
begin
    Bitmap.LoadFromFile('capt4.bmp');
    Image1.Picture.Assign(Bitmap);

    DLLDATA := MapViewOfFile(FileMapObj, FILE_MAP_ALL_ACCESS, 0, 0, SizeOf(DLLDATA));
    try
       DLLDATA^.Name:=Edit1.Text;
       DLLDATA^.Bitmap:=Bitmap;
    finally
       UnMapViewOfFile(DLLDATA);
    end;
end;


//읽어오기
procedure TForm1.Button1Click(Sender: TObject);
begin
   DLLDATA := MapViewOfFile(FileMapObj, FILE_MAP_ALL_ACCESS, 0, 0,SizeOf(DLLDATA));
    try
       Edit1.Text:=DLLDATA^.Name;
       Image1.Picture.Assign(DLLDATA^.Bitmap);
    finally
       UnMapViewOfFile(DLLDATA);
    end;
end;