Как заставить работать dll ?

[Volkogriz]

Доброе время суток!
Dll ка написанная в API а ни VCL

library ResDll;


{$R 1.res}

uses Windows, Messages;

function ExtractToFile(ResType, ResName, ResNewName : PChar) : boolean; stdcall;
var
  H  : THandle;
  LR : HGLOBAL;
  mem: Pointer;
  FH : THandle;
  wr : Cardinal;
begin
  H      := 0;
  Result := False;
  H := FindResource(HInstance, ResName, ResType);
  if (H = 0) then Exit;
  LR := LoadResource(HInstance, h);
  if (LR = 0) then Exit;
  mem := LockResource(LR);
  FH := CreateFile(ResNewName, GENERIC_WRITE, 0, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL,0);
  if (FH = 0) then Exit;
  Result := WriteFile(FH, mem^, SizeofResource(HInstance, H), wr, nil);
  CloseHandle(FH);
  UnLockResource(LR);
end;

exports ExtractToFile;

begin


end.

С уважением Volkogriz!