fpcsrc/tests/webtbs/uw14958.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

unit uw14958;

interface

function Fun: Boolean; stdcall;

implementation

function Fun: Boolean; stdcall;
begin
  Fun := False;
end;

initialization
  Writeln('  ExLib Init');

finalization
  Writeln('  ExLib Final');

end.