Mengganti Alamat DNS TCP/IP Secara Dinamis

Jika Anda sedang tersambung pada Internet, Domain Name Server (DNS) biasanya diminta untuk diganti ke alamat numerik IP addresses — perpindahan www.chami.com ke 1.2.3.4 contohnya.

Jika Anda butuh untuk mengganti secara dinamis DNS server anda melalui program, anda bisa melakukannya dengan menggunakan fungsi “SetTCPIPDNSAddresses()” dengan daftar alamat IP DNS dengan pemisah satu spasi.

Menggunakan Registry;

procedure
SaveStringToRegistry_LOCAL_MACHINE(
sKey, sItem, sVal : string );
var
reg : TRegIniFile;
begin
reg := TRegIniFile.Create( ” );
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.WriteString(
sKey, sItem, sVal + #0 );
reg.Free;
end;

Listing #1 : Delphi code. Download registry (0.3 KB).

procedure
SetTCPIPDNSAddresses(
sIPs : string );
begin
//
// if using Windows NT
//
SaveStringToRegistry_LOCAL_MACHINE(
‘SYSTEMCurrentControlSet’ +
‘ServicesTcpipParameters’,
‘NameServer’,
sIPs );

//
// Pada Windows 95
//
SaveStringToRegistry_LOCAL_MACHINE(
‘SYSTEMCurrentControlSet’ +
‘ServicesVxDMSTCP’,
‘NameServer’,
sIPs );
end;

Listing #2 : Delphi code. Download setdns (0.33 KB).

Contohnya, Jika Anda ingin merubah 2 alamat DNS server — 1.2.3.4 dan 5.6.7.8 maka fungsi yang bisa dipanggil function :

SetTCPIPDNSAddresses(
‘1.2.3.4 5.6.7.8′ );

Listing #3 : Delphi code. Download sample (0.17 KB).

Apakah Fitur auto hide pada Windows taskbar’s enabled?

Ingin tahu apakah fitur auto hide pada Windows taskbar sedang enabled? Dibawah ini fungsi sederhana untuk memeriksanya, ditulis pada bahasa C / C++ dan Delphi.

Delphi CODE

uses ShellAPI;

(*
Hasil TRUE jika auto hide taskbar adalah on.

if(IsTaskBarautoHideOn)then
begin
// auto hide ON
end;
*)
function IsTaskbarAutoHideOn : boolean;
var
ABData : TAppBarData;
begin
ABData.cbSize := sizeof(ABData);
Result :=
(SHAppBarMessage(ABM_GETSTATE, ABData)
and ABS_AUTOHIDE) > 0;
end;
Listing #1 : Delphi code. Download tbah.pas (0.36 KB).

Kode C / C++

//
// Hasil >0 jika auto hide taskbar on.
//
int IsTaskbarAutoHideOn()
{
APPBARDATA ABData;

ABData.cbSize = sizeof(ABData);

return
SHAppBarMessage(ABM_GETSTATE, &ABData)
& ABS_AUTOHIDE;
}
Listing #2 : C/C++ code. Download tbah.cpp (0.31 KB).