fpc/tests/tbs/tbs0241.pp

{$ifdef win32}
program test_win32_drv;

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

 begin
   Writeln('Loading of Winspool works ');
 end;

begin
  test;
{$else}
begin
{$endif}
end.