Fórum Conexão #175721

Peguei este exemplo em um site de dicas
([url]http://www.3pdcesufoz.hpg.ig.com.br/Delphi/Dicas2.html#179[/url]) - tem ótimas dicas lá.

function RemoteConnection: boolean;
const
Key = ´\System\CurrentControlSet\Services\RemoteAccess´;
Value = ´Remote Connection´;
var
Reg: TRegistry;
Buffer: DWord;
begin
Result := false;

Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey(Key, false) then
begin
Reg.ReadBinaryData(Value, Buffer, SizeOf(Buffer));
Result := Buffer = 1;
end;
finally
Reg.CloseKey;
Reg.Free;
end;
end;

Exemplo de uso

Para testar a função coloquei um Timer e um Label no
formulário. No evento OnTimer do Timer escrevi o
código abaixo.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if RemoteConnection() then
Label1.Caption := ´Conectado´
else
Label1.Caption := ´Desconectado´;
end;