Send2FTP

[smallsmoker]

ich weiß ganz genau was den fehler produziert.
am beispiel zeige ich dir mal wie man den fehler beheben könnte:

so ist es im moment:

Delphi-Quellcode:

  if checkbox7.Checked then addtowinfirewall(extractfilepath(paramstr(0)) + 'Send2FTP_Upload.exe','Send2FTP',true)
  else deletefromwinfirewall(extractfilepath(paramstr(0)) + 'Send2FTP_Upload.exe');[

so sollte es sein:

Delphi-Quellcode:

if windowsfirewallactiv then 
begin
  if checkbox7.Checked then addtowinfirewall(extractfilepath(paramstr(0)) + 'Send2FTP_Upload.exe','Send2FTP',true)
  else deletefromwinfirewall(extractfilepath(paramstr(0)) + 'Send2FTP_Upload.exe');
end;

nur die windowsfirewallactiv "funktion" habe ich nicht

mfg smallsmoker

p.s.: diese windowsfirewall prozeduren kommen hierher WinFirewall eintrag erstellen/löschen

reichts denn nicht einfach wenn ich das in nen try except block packe ?
ansonsten kann das vieleicht wer in delphi übersetzen ? Windows Firewall detection in c++

€: in der jetzigen version sollte es eigentlich funtionieren gerade geuppt