Salah satu cara untuk mencegah orang lain mengubah setting atau konfigurasi pada komputer Anda adalah dengan menyembunyikan icon/applet pada Control Panel. Caranya adalah sebagai berikut:
Buka registry lalu masuk ke key:
Key: HKEY_CURRENT_USER\Control Panel\don't load
Value Name: xxxx
Data Type: REG_STRING
Nilai xxxx tergantung dari icon apa yang akan disembunyikan. Misalnya Anda ingin menyembunyikan icon System, maka xxxx diisi dengan sysdm.cpl....
Pada bagian Control Panel kita dapat menjumpai berbagai applet yang dapat kita gunakan untuk membenahi berbagai setting pada Windows, mulai dari setting Display Properties, System Properties sampai mouse dan keyboard. Sayangnya kemudahan dalam melakukan setting tersebut membuat orang sering iseng-iseng mengganti settingnya. Ini tentu bukan hal yang menyenangkan.
Sebenarnya hal tersebut dapat dicegah dengan mudah, yaitu dengan menyembunyikan icon / applet pada control panel. Ada pun caranya ad...
Gunakan kode di bawah ini untuk membuka Control Panel dari program Delphi Anda. Jangan lupa tampahkan ShellApi pada bagian uses:
procedure TForm1.Buton1Click(Sender : TObject);
begin
ShellExecute(Handle,'Open','control',
nil,nil,SW_SHOWNORMAL);
end;
Untuk menjalankan berbagai applet pada control panel, Anda dapat menggunakan salah satu fungsi dari Windows API yaitu WinExec.
function WinExec (lpCmdLine : PChar; uCmdShow : integer) : integer;
Lihat keterangan fungsi WinExec di sini.
Misalnya Anda ingin membuka Add/Remove Program maka Anda harus menuliskan code seperti ini :
procedure TForm1.Button1Click(Sender: TObject);
begin
WinExec ('C:\WINDOWS\CONTROL.EXE appwiz.cpl, Add/Remove Programs,1', SW_NORMAL);
end;
Selain itu A...
