Fórum Pegar key e simular no keypress com Timer #169717

Function ReadComm:String;
var 
  BytesLidos: DWord;
   i: Integer;
   ReadStr: String;
begin
 iRet:=ReadFile(hComm, bRead[0], 255, BytesLidos, nil);
 if ord(iRet)=-1 then exit;
 ReadStr:=´´;
 If BytesLidos > 0 Then
 For I:=0 To BytesLidos - 1  do
     if  chr(bRead[i]) in [´0´..´9´,´a´..´z´, ´A´..´Z´] then
       ReadStr:=ReadStr + chr(bRead[i])
     Else
      FlushComm;//limpa com leitura
 Result:=ReadStr;
ClearReadComm;//limpa com
End;