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