library client_plugin;

uses
  Windows,
  Unit1 in 'Unit1.pas' {Form1};

type
   iReplace = procedure (Text: PChar);

var
   form1:Tform1;
   OwnerApp: Integer;



function GetName: Pchar; far;
begin
	Result := 'DOS capture';
end;

procedure InsertText; far;
begin
	iReplace(GetProcAddress(OwnerApp, 'ReplaceText'))('Testing this shit!');
end;



procedure createform; far;stdcall;export;
begin
Form1:=Tform1.Create( nil );
form1.Caption := 'DOS capture';
form1.Show;
end;



procedure Init(Owner: Integer); far
begin
	OwnerAPP := Owner;
end;

procedure plugin(data:pchar);far;stdcall;export;
begin
form1.memo1.Lines.Add(data);
end;

exports
plugin, GetName, InsertText, Init,createform;


begin
end.