请教如何从Dll中把这种数据传出来??

Question

type
  TShareMem = packed record
    ComPortFile:array[0..255] of char;
    FileHandle:THandle;
    DatToWriteFile:array[0..255] of char;
    DatToReadFile:array[0..255] of char;
  end;
  PShareMem = ^TShareMem;procedure SaveForWriteFile(const s;bytes:dword);
var
   h:integer;
begin
   if bytes=0 then exit;
   if fileexists(pShMem^.DatToWriteFile) then
   begin
      h:=fileopen(pShMem^.DatToWriteFile,fmOpenWrite);
      fileseek(h,0,2);
   end
   else h:=filecreate(pShMem^.DatToWriteFile);
   
   if h=-1 then exit;
   FileWrite(h,s,bytes);
   FileClose(h);
end;这个S它没有类型,我怎么才能把它从Dll中传到程序中呀