声明:
type
TIC_INIT = function (Port :Word;Baud :LongWord):THandle;
IC_INIT :TIC_INIT;
调用:
//前提是已经加载动态库成功
if DLLhandle <> 0 then //DLLHandle为动态库句柄
@IC_INIT := GetProcAddress(DLLHandle, 'IC_INIT');
if not (@IC_INIT = nil) then
IC_INIT(Port, Baud); //这里是调用语句