{ %TARGET=win32 }

{ Old file: tbs0241.pp }
{ Problem with importing function from a DLL with .drv suffix ! OK 0.99.11 (PM) }

program test_win32_drv;

procedure printer;external 'winspool.drv' name 'AbortPrinter';

procedure test;
var
  i : integer;
begin
  Writeln('Loading of Winspool works ');
  { Force reference to winspool.drv }
  i:=1;
  if i=0 then
    printer;
end;

begin
  test;
end.