S
skyjacker
Unregistered / Unconfirmed
GUEST, unregistred user!
如何关闭被别的应用程序打开的COM口?以下代码不行啊。
能关闭本身打开的COM口,但不能关闭别的程序打开的COM口,为什么?
procedure TForm1.InitComClick(Sender: TObject);
begin
if mscomm1.PortOpen then
begin
Mscomm1.PortOpen :=false; //关闭串口
end;
Mscomm1.PortOpen :=true; // 打开串口
end;
能关闭本身打开的COM口,但不能关闭别的程序打开的COM口,为什么?
procedure TForm1.InitComClick(Sender: TObject);
begin
if mscomm1.PortOpen then
begin
Mscomm1.PortOpen :=false; //关闭串口
end;
Mscomm1.PortOpen :=true; // 打开串口
end;