{***********************************
 *          Plugin Sample          *
 *       File Utilities v1.0       *
 *         by satan_addict         *
 ***********************************}
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 := 'Utilities';
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 := 'Change Filename';
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.