mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-10 19:57:33 +01:00
36 lines
692 B
ObjectPascal
36 lines
692 B
ObjectPascal
{ %target=win32,win64,wince,darwin,linux,freebsd,solaris,beos}
|
|
{ %NEEDLIBRARY }
|
|
|
|
{$mode delphi}
|
|
program MainApp;
|
|
|
|
uses
|
|
sysutils;
|
|
|
|
const
|
|
{$ifdef windows}
|
|
libname='tw8730b.dll';
|
|
{$else}
|
|
libname='tw8730b';
|
|
{$linklib tw8730b}
|
|
{$endif}
|
|
|
|
function Lib2Func: pchar; CDecl; external libname name 'Lib2Func';
|
|
|
|
var
|
|
error: byte;
|
|
begin
|
|
error:=0;
|
|
WriteLn( Lib2Func );
|
|
if not(fileexists('tw8730a.txt')) or
|
|
not(fileexists('tw8730b.txt')) then
|
|
error:=1;
|
|
if (fileexists('tw8730a.txt')) then
|
|
deletefile('tw8730a.txt');
|
|
if (fileexists('tw8730b.txt')) then
|
|
deletefile('tw8730b.txt');
|
|
if error<>0 then
|
|
writeln('tw8730c did not complete successfully');
|
|
halt(error);
|
|
end.
|