mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 01:49:30 +02:00
33 lines
605 B
ObjectPascal
33 lines
605 B
ObjectPascal
{
|
|
$Id$
|
|
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$
|
|
Revision 1.2 2002-09-07 15:06:35 peter
|
|
* old logs removed and tabs fixed
|
|
|
|
}
|