Ir ao conteúdo
  • Cadastre-se

Ajuda Delphi


liconeto

Posts recomendados

Diz cara tudo bem, amigo eu tenho uma pequena rotina que encontrei na internet espero que sirva para alguma coisa

var

portHandle: Integer;

begin

portHandle := 0;

portHandle := CreateFile(Pchar(ComboCOM.Text), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);

if portHandle > 0 then

ShowMessage(‘Porta em uso!’)

else

raise Exception.Create

(‘Não consegui abrir a porta!’);

end;

qualquer duvida poste novamente

Link para o comentário
Compartilhar em outros sites

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...