witam, mam problem chce dodac mój program do wyjątkow Zapory windows mam o to taki kod znaleziony w internecie.
var
reg: TRegistry;
sp2 : string;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE; //rozpoczynamy otwieranie każdej gałęzi z osobna sp2:=Application.ExeName; //pobranie lokalizacji w której uruchomiono nasz program reg.OpenKey('System', True);
reg.OpenKey('ControlSet001', True);
reg.OpenKey('Services', True);
reg.OpenKey('SharedAccess', True);
reg.OpenKey('Parameters', True);
reg.OpenKey('FirewallPolicy', True);
reg.OpenKey('StandardProfile', True);
reg.OpenKey('AuthorizedApplications', True);
reg.OpenKey('List', True);
if aktywuj = True then
begin
reg.WriteString(sp2,sp2+':*:Enabled:'+ExtractFileName(sp2)); // zapisanie wyjątku wg. opisu z punktu 1.1, natomiast nazwą własną będzie nazwa naszego projektu
end
else if aktywuj = False then
begin
reg.DeleteValue(sp2); //usunięcie wyjątku
end;
reg.CloseKey;
end;
i nie wiem gdzie dodac sciezke i nazwe programu, domyslam sie ze w tej lini
<delphi>
reg.WriteString(sp2,sp2+':*:Enabled:'+ExtractFileName(sp2));
tylko nie wim czym zastąpic sp2,sp2 i ExtractFileName(sp2)
mogł by mi ktos to wytłumaczyc na chłopski rozum?
</delphi>