mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 06:08:22 +02:00
24 lines
396 B
ObjectPascal
24 lines
396 B
ObjectPascal
{ %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.
|