SRL Archive - Help

I want the scar to send in a tpoint or tpa and take in a string.

afaik delphi and C++, delphi being the easiest ofc.

http://villavu.com/forum/showthread.php?t=41311

should suffice for anything you need.

library PluginTest

uses
  FastShareMem,
  SysUtils,
  Windows,
  Math;

{$R *.res}

type
  TPointArray = array of TPoint;

procedure DoWhatAgainExactly(P: TPoint; TPA: TPointArray; Whatlol: string); stdcall;
begin
  //P.X P.Y
  //TPA[0].X
  //Whatlol
end;


function GetFunctionCount(): Integer; stdcall; export;
begin
  Result := 1;
end;

function GetFunctionInfo(x: Integer; var ProcAddr: Pointer; var ProcDef: PChar): Integer; stdcall;
begin
  case x of
    0:begin
        ProcAddr := DoWhatAgainExactly;
        StrPCopy(ProcDef, 'procedure DoWhatAgainExactly(P: TPoint; TPA: TPointArray; Whatlol: string);');
      end;
  else
    x := -1;
  end;
  Result := x;
end;

exports GetFunctionCount;
exports GetFunctionInfo;

end.

thanks man.