[Rorzakh]

NumLock
Если выделять память то только в dll так как в дальнейшем она будет подключаться не к exe.
В инете нашел такой код

Код:

function Readport(fHandle:Thandle) : byte;
var
  dwRead : Cardinal;
  buf:array [0..$FF] of Char;
begin
  ReadFile(FHandle, Buf, SizeOf(buf), dwRead, nil);
  Result := Byte(Buf[0]);
end;

В unit-е все опять прекрасно работает, а в dll этот же код ничего не считывает. Может кто нибудь объяснить почему так происходит?