mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-02 17:39:30 +01:00
17 lines
218 B
ObjectPascal
17 lines
218 B
ObjectPascal
{$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.
|