Může mi někdo říct, proč tímto nelze zapsat nic na port? Chybovky to nehází, ale úrovně na LPT prostě nezměnim. Díky

procedure Out32(PortAddress:word;Value:byte);
 stdcall;export;external 'inpout32.DLL';
function Inp32(PortAddress:word):byte;
 stdcall;export;external 'inpout32.DLL';

Out32($378,$1);

IntToHex(Inp32($378),2)