Fórum Porta Serial #268224
11/02/2005
0
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
Curtir tópico
+ 0
Responder
Posts
11/02/2005
Kitsystem
//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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)