procedure TForm1.Timer1Timer(Sender: TObject);var b: array[0..4] of Byte;begin with TRegistry.Create do try RootKey := HKEY_LOCAL_MACHINE; OpenKey('System\CurrentControlSet\Services\RemoteAccess',False); ReadBinaryData('Remote Connection',b,4); finally Free; end; if b[0]=1 then Caption:='在线' else Caption:='离线';end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货