paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 23:53:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Added code to remove warnings

Browse Source
This commit is contained in:
michael 1999-06-30 22:04:56 +00:00
parent 7a672107c7
commit eebdbe5da7
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
install/demo/win32/testdll.pp
View File

@ -18,6 +18,7 @@ procedure P1(var s:string);export;
var
p:array[0..255] of char;
begin
length(s);
getmodulefilename(Hinstance,@p,255);
writeln('DLL: Hello, I''m DLL ',pchar(@p));
end;
@ -30,10 +31,12 @@ end;
procedure P3(var t);export;
begin
Addr(T);
end;
procedure P4(x1:pointer);export;
begin
x1:=Nil;
end;
procedure NewExit;
@ -56,7 +59,10 @@ begin
end.
{
$Log$
Revision 1.1 1999-01-12 14:20:36 peter
Revision 1.2 1999-06-30 22:04:56 michael
* Added code to remove warnings
Revision 1.1 1999/01/12 14:20:36 peter
+ dll example
}