Porta Serial
Como saber se uma porta serial está sendo utilizada? Tem como saber se algum dispositivo está utilizando a porta serial? Se alguém puder me ajudar, é urgentíssimo.
Agradeço desde já!!
Agradeço desde já!!
Biohazard
Curtidas 0
Respostas
Kitsystem
11/02/2005
//Verifica se Porta Serial Existe e esta Livre*************************************
Function PortaSerialLivre(StrPort:Integer):Boolean;
Var CommHandle : Integer;
CommHandle := CreateFile(Pchar(´COM´+IntToStr(StrPort)), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
Result:=(CommHandle>0);
CloseHandle(CommHandle);
end;
Function PortaSerialLivre(StrPort:Integer):Boolean;
Var CommHandle : Integer;
CommHandle := CreateFile(Pchar(´COM´+IntToStr(StrPort)), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
Result:=(CommHandle>0);
CloseHandle(CommHandle);
end;
GOSTEI 0