Disable XP Firewall

procedure DisableFirewall;

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;