Entwickler-Ecke :: Thema anzeigen - Firewall einschalten

grilly - So 21.01.07 21:08
Titel: Firewall einschalten

Hallo
Ich hab ein hübsches Programm geschreiben, dass daten vom ftp server holt. die XP firewall steht im weg und ich hab von den schweizern einen code zum ausschalten der firewall

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

uses
  Windows, winsvc, shellapi;
  
procedure Close_Firewal;
var
  SCM, hService: LongWord;
  sStatus: TServiceStatus;
begin
  SCM      := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
  hService := OpenService(SCM, PChar('SharedAccess'), SERVICE_ALL_ACCESS);

  ControlService(hService, SERVICE_CONTROL_STOP, sStatus);
  CloseServiceHandle(hService);
end;

begin
  Close_Firewal;
end.

Alles schön und gut, und das funzt ja auch, aber wie kann ich die firewall wieder einschalten? (nicht per hand!)

Moderiert von Christian S.: Delphi-Tags hinzugefügt

Steven - So 21.01.07 21:32

so:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure Start_Firewal; 
var 
  SCM, hService: LongWord; 
  sStatus: TServiceStatus; 
  lpServiceArgVectors: PChar; 
begin 
  SCM      := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS); 
  hService := OpenService(SCM, PChar('SharedAccess'), SERVICE_ALL_ACCESS); 

  StartService(hService,0,lpServiceArgVectors); 

  CloseServiceHandle(hService); 
end;

gruss vom steven

Steven - So 21.01.07 22:03

hi...
so steht's in der unit WinSvc:

Delphi-Quelltext

1:
2:

function StartService(hService: SC_HANDLE; dwNumServiceArgs: DWORD;
  var lpServiceArgVectors: PChar): BOOL; stdcall;

Gruss Steven

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!