这样试一下:
unit z8compont;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Dialogs, StdCtrls,shellapi;
type
TAA = class
function Z8_InitComm(port:longint):tHandle ;
function Z8_BeepOn(icdev:THandle ;addr:dWORD) ongint;
end;
implementation
function Z8_InitComm_(port:longint):tHandle ;external 'd:\Z8rf32.dll'name 'Z8_InitComm';
function Z8_BeepOn_(icdev:THandle ;addr:dWORD) ongint;external 'd:\Z8rf32.dll'name 'Z8_BeepOn';
{ TAA }
function TAA.Z8_BeepOn(icdev:THandle ;addr:dWORD) ongint;
begin
Result := Z8_BeepOn_(icdev, addr);
end;
function TAA.Z8_InitComm(port:longint):tHandle ;
begin
Result := Z8_InitComm(port);
end; |