{
  $Id: dlltest.pp,v 1.1 2000/07/13 06:30:20 michael Exp $
  Copyright (c) 1998 by Pierre Muller

  Win32 DLL usage example. It needs testdll.pp
}
program dlltest;

procedure p1(x:pointer);
 external 'testdll' name 'P1';
procedure proc2(x:longint);
 external 'testdll' name 'Proc2';

var
   s : string;external 'testdll' name 'FPC_string';

begin
  writeln('Main: Hello!');
  p1(nil);
  writeln('Main: ',Hinstance,' ',Hprevinst);
  writeln('Main: testdll s string = ',s);
  s:='Changed by program';
  proc2(1234);
  writeln('Main: press enter');
  readln;
end.
{
  $Log: dlltest.pp,v $
  Revision 1.1  2000/07/13 06:30:20  michael
  + Initial import

  Revision 1.1  1999/01/12 14:20:36  peter
    + dll example

}
