Fórum Dica: Firebird e o Firewall do Windows XP #59760

uses Registry;

...

procedure TF_ConfiguraBanco.SpeedButton1Click(Sender: TObject);
var
  CtrlSet : string;
begin

  with TRegistry.Create do
    try
      RootKey := HKEY_LOCAL_MACHINE;
      if (KeyExists(´SOFTWARE\Microsoft\Windows NT\CurrentVersion´)) then begin
        OpenKey(´SOFTWARE\Microsoft\Windows NT\CurrentVersion´,False);
        if (ValueExists(´CSDVersion´)) and (ReadString(´CSDVersion´) = ´Service Pack 2´) then begin
          CloseKey;
          OpenKey(´SYSTEM\Select´, False);
          CtrlSet := FormatFloat(´000´,ReadInteger(´Current´));
          CloseKey;
          OpenKey(´SYSTEM\ControlSet´ + CtrlSet +´\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List´,True);
          if not(ValueExists(´3050:TCP´)) then
            WriteString(´3050:TCP´,´3050:TCP:LocalSubNet:Enabled:Firebird´);
          Close;
        end; // valueExists
      end; // keyExists
    finally
      Free;
    end;               
...
end;