[AltairAlentus]

Снова после застоя взялся за плагины и столкнулся с тем что при любой команде read write вылетает ошибка.



думал где то в коде ступил все вырезал и оставил в онлоад запись и все равно ошибка

library plugin;
{$define ShareMM}
{$define AttemptToUseSharedMM}
{$define RELEASE}
uses
  FastMM4 in '/fastmm/FastMM4.pas',
  FastMM4Messages in '/fastmm/FastMM4Messages.pas',
  usharedstructs in '/units/usharedstructs.pas',
  SysUtils,
  Windows,
  dialogs,
  Classes,
  strutils;

var
  min_ver_a: array[0..3] of Byte = ( 3,5,23,      141   );
  min_ver: LongWord absolute min_ver_a;
  ps: tPluginStruct;
  cid: Integer;

function GetPluginInfo(const ver: LongWord): PChar; stdcall;
begin
  if ver<min_ver then
    Result:='Òåñòîâûé ïëàãèí'+sLineBreak+
            'Âåðñèÿ íå êàòèò'
  else
    Result:='Òåñòîâûé ïëàãèí';
end;


function SetStruct(const struct: PPluginStruct): Boolean; stdcall;
begin
ps := struct^;
Result:=True;
end;

procedure OnLoad; stdcall;
var
  buf: string;
begin
ps.WriteS(buf,'qqqqq');
end;

exports
   OnLoad,
  GetPluginInfo,
  SetStruct;



begin
end.