fpc/tests/tbs/tb0205.pp
peter 06c7671945 * changed $ifdefs to %target
* removed obsolete dpmiexcp unit for go32v2
2002-12-24 22:31:26 +00:00

18 lines
304 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;
begin
Writeln('Loading of Winspool works ');
end;
begin
test;
end.