Menonaktifkan Firewall di windows XP

Dengan menggunakan RTL (Runtime Library) Winsvc,  kita dapat memanggil fungsi yang telah disediakan untuk menonaktifkan firewall. Kodenya sebagai berikut :

program OffFireWall;
{$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;

GUI diatas merupakan singkatan dari Globally Unique Identifier adalah identifikasi unik dari interface yang berupa bilangan acak 128-bit.

2 responses to this post.

  1. wah saya harus banyak belajar sama mas wahyu nih, ilmunya tinggi sekali bisa ngutak atik sistem windows dengan pemrograman

    Balas

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: