pseudo-injector

program injector;

{$mode objfpc}{$H+}

uses Classes,windows,crt;

type
  TABCProc=procedure(a:integer);
function Inject(p:pointer):ptrint;
var
   h:HANDLE;
begin
  h:=LoadLibrary('test.dll');
  p:=GetProcAddress(h,'abc');
  TABCProc(p)(12);
end;

begin
  BeginThread(@Inject);
  //Inject(nil);
  repeat
    sleep(100);
  until keypressed;
end.