Правила брандмауэра на кнопку

[Gudzik11]

всё разобрался!
И последний вопрос может кто сталкивался .
Правило создаёт строковой параметр в реестре с такими данными в нутри

параметр : {EB182C93-25A8-486F-86BC-FFEAE35EE2A5}

значение : v2.10|Action=Block|Active=TRUE|Dir= In|App=F:\Games\World_of_Tanks\Worl dOfTanks.exe|Name=world игры|

со значением тут всё ясно а параметр в каждой виндовс особый или его можно переименовать как мне захочется ?

[Sciv]

Насчет КАЖДОЙ - хз, возможно, и нет. Драйвера устройств же одинаковые. А вот переименовать... ни-ни.

[Gudzik11]

Всё сделал в реестре меняю значения а блок на снимается .
В чём может быть причина?
А может есть какой то другой способ более эффективный ?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Registry;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  reg:TRegistry;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 // Ïåðåìåííàÿ õðàíèò çíà÷åíèå êëþ÷à ðååñòðà
 S : string;
begin
  // Èíèöèàëèçàöèÿ ïåðåìåííîé ðååñòðà
Reg := TRegIniFile.Create();
// Âûáèðàåì êîðíåâîé êàòàëîã
Reg.RootKey := HKEY_LOCAL_MACHINE;
// Îòêðûâàåì ðàçäåëû
Reg.OpenKey('SYSTEM\ControlSet001\services\SharedAccess\Parameters\FirewallPolicy\FirewallRules', False);
// ×èòàåì çíà÷åíèå êëþ÷à è ïðèñâàèâàåì ïåðåìåííîé
 S := Reg.ReadString('29F4BC8F-609A-4382-97D5-ABE9ACC2D298');
// Åñëè êëþ÷ îòñóòñòâóåò, òî ïîêàçûâàåì ñîîáùåíèå

  if reg.ValueExists('{29F4BC8F-609A-4382-97D5-ABE9ACC2D298}')
    then
    begin

      if reg.ReadString('{29F4BC8F-609A-4382-97D5-ABE9ACC2D298}')='v2.10|Action=Block|Active=TRUE|Dir=Out|App=F:\Games\World_of_Tanks\WorldOfTanks.exe|Name=WorldOfTanks(1)|'
        then
        begin
         Button1.Caption:='FALSE';
         reg.WriteString('{29F4BC8F-609A-4382-97D5-ABE9ACC2D298}','v2.10|Action=Block|Active=FALSE|Dir=Out|App=F:\Games\World_of_Tanks\WorldOfTanks.exe|Name=WorldOfTanks(1)|');
        end               
        else
        begin
        Button1.Caption:='TRUE';
        reg.WriteString('{29F4BC8F-609A-4382-97D5-ABE9ACC2D298}','v2.10|Action=Block|Active=TRUE|Dir=Out|App=F:\Games\World_of_Tanks\WorldOfTanks.exe|Name=WorldOfTanks(1)|');
        end
     end
      else
      ShowMessage('íåò');
// Çàêðûâàåì êëþ÷
Reg.CloseKey;
// Îñâîáîæäàåì ïàìÿòü
Reg.Free;
end;
   //WorldOfTanks
   //v2.10|Action=Block|Active=FALSE|Dir=Out|App=F:\Games\World_of_Tanks\WorldOfTanks.exe|Name=WorldOfTanks(1)|


procedure TForm1.FormCreate(Sender: TObject);
var
 // Ïåðåìåííàÿ õðàíèò çíà÷åíèå êëþ÷à ðååñòðà
 S : string;
begin
  // Èíèöèàëèçàöèÿ ïåðåìåííîé ðååñòðà
Reg := TRegIniFile.Create();
// Âûáèðàåì êîðíåâîé êàòàëîã
Reg.RootKey := HKEY_LOCAL_MACHINE;
// Îòêðûâàåì ðàçäåëû
Reg.OpenKey('SYSTEM\ControlSet001\services\SharedAccess\Parameters\FirewallPolicy\FirewallRules', False);
// ×èòàåì çíà÷åíèå êëþ÷à è ïðèñâàèâàåì ïåðåìåííîé
 S := Reg.ReadString('29F4BC8F-609A-4382-97D5-ABE9ACC2D298');
// Åñëè êëþ÷ îòñóòñòâóåò, òî ïîêàçûâàåì ñîîáùåíèå

  if reg.ValueExists('{29F4BC8F-609A-4382-97D5-ABE9ACC2D298}')
    then
    begin

      if reg.ReadString('{29F4BC8F-609A-4382-97D5-ABE9ACC2D298}')='v2.10|Action=Block|Active=TRUE|Dir=Out|App=F:\Games\World_of_Tanks\WorldOfTanks.exe|Name=WorldOfTanks(1)|'
        then
        Button1.Caption:='TRUE'
        else
        Button1.Caption:='FALSE'
     end
      else
      ShowMessage('íåò');
// Çàêðûâàåì êëþ÷
Reg.CloseKey;
// Îñâîáîæäàåì ïàìÿòü
Reg.Free;
  end;
end.

[Sciv]

Всё сделал в реестре меняю значения а блок на снимается .

Я ж говорил - после установки некоторых параметров нужна перезагрузка. Реестр все-таки...