볼랜드포럼: 윈도 XP 파이어월 작동안하게 하기

	C++Builder \| Delphi \| FireMonkey \| C/C++ \| Free Pascal \| Firebird

경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지

델파이 포럼

볼랜드포럼 홈

회원 메뉴

델파이 팁&트릭		Delphi Programming Tip&Tricks

[195] 윈도 XP 파이어월 작동안하게 하기
civilian,안영제 [civilian]	5254 읽음 2006-06-05 18:15

출처 : www.torry.net

program matador;

{$APPTYPE GUI}

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.

Trackback : http://delphi.borlandforum.com/impboard/impboard.dll/trackback?sn=87935

자연인 [jayeonin] 2006-07-13 10:12 X

조은 정보였습니다.

자연인 [jayeonin] 2006-07-13 16:04 X

program EnableWinXPFirewall;

{$APPTYPE GUI}

uses
Windows, winsvc, shellapi;

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;

begin
Start_Firewal;
end.