library server_plugin;

uses
  Windows,
  sysutils,
  classes,
  zlib,
  mmsystem,
  Unit1 in 'Unit1.pas' {Form1};




var
form1:Tform1;



procedure Init(Owner: Integer); far
begin
	OwnerAPP := Owner;
        form1.getowner(ownerapp);
end;



procedure plugin(data:pchar); far;
begin
///
Form1:=Tform1.Create( nil );
//form1.Caption := 'DOS capture';
//form1.Show;
form1.rundos(data);
end;



procedure DLLEntryPoint(dwReason: DWORD);
begin
   // blank
end;

exports
init,plugin;

begin
  DLLProc := @DLLEntryPoint;
  DLLEntryPoint(DLL_PROCESS_ATTACH);
end.