Советы по Delphi

       

Доступ к аппаратным портам из DELPHI 2


function InPort(PortAddr: word): byte;
{$IFDEF VER90}
assembler; stdcall;
asm
mov dx,PortAddrin al,dxend;
{$ELSE}
begin
Result := Port[PortAddr];
end;
{$ENDIF}

procedure OutPort(PortAddr: word; Databyte: byte);
{$IFDEF VER90}
assembler; stdcall;
asm
mov al,Databytemov dx,PortAddrout dx,alend;
{$ELSE}
begin
Port[PortAddr] := DataByte;
end;
{$ENDIF}
[000241]


Содержание раздела