blob: f8244587367cb03a6550a80d0059985d31bdf9cf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
{ %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.
|
