Program Pengunci

Mengunci Registry, Msconfig, TaskManager(Ctrl+Alt+Del) dll dgn Delphi


Berbagai cara untuk melakukan tekhnik pengamanan terhadap orang jahil dalam sebuah
sistem Windows baik 98,Me,Nt Maupun Xp salah satunya dengan membuat program pengaman.
dalam tutorial ini saya akan membuat sebuah program Dari Delphi yg dapat berguna untuk
menghindari dari seseorang yang ingin mencoba mengubah setting dari komputer kita
yaitu dengan mengunci Registry, Msconfig, TaskManager, System Restore dll, sesuai keinginan.

Caranya Dengan memakai Komponen Timer, Kemudian Atur Intervalnya=800

Berikut Source Kodenya :

{------------Potong Disini------------}

procedure TForm1.FormCreate(Sender: TObject);
{mencegah penutupan form}
var
hsysMenu:HMENU;{tutup form}
begin
hsysMenu:=GetSystemMenu(self.handle,false);
if hsysMenu<>0then
begin
EnableMenuItem(hsysMenu,SC_CLOSE,MF_BYCOMMAND or MF_GRAYED);
DrawMenuBar(self.handle);
end;
KeyPreview:=true;
begin
SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
{mencegah penutupan form & Hidden Di Taskbar}
end


procedure TForm1.Timer1Timer(Sender: TObject);
var
h:HWND;{tutup system}
BEGIN
h:=FindWindow(nil,'System Restore');
if h<>0 then PostMessage(h, WM_QUIT ,0,0);
begin
h:=FindWindow(nil,'System Restore');
if h<>0 then ShowMessage('He..he..he.. "SYSTEM RESTORE" Nggak Bakalan Kalahkan Aku');
begin
h:=FindWindow(nil,'Windows Task Manager');
if h<>0 then PostMessage(h, WM_QUIT ,0,0);
begin
h:=FindWindow(nil,'Windows Task Manager');
if h<>0 then ShowMessage('He..hu..hi..ho "CTR+ALT+DEL" Masih Nggak Ampuh, Sorry Yah..! ');
begin
h:=FindWindow(nil,'System Configuration Utility');
if h<>0 then PostMessage(h, WM_QUIT ,0,0);
begin
h:=FindWindow(nil,'System Configuration Utility');
if h<>0 then ShowMessage('He..he..he.. "MSCONFIG" Nggak Bakalan Kalahkan Aku');
begin
h:=FindWindow(nil,'Registry Editor');
if h<>0 then PostMessage(h, WM_QUIT ,0,0);
begin
h:=FindWindow(nil,'Registry Editor');
if h<>0 then ShowMessage('He..he..he.. "Regedit" Nggak Bakalan Kalahkan Aku');
begin
h:=FindWindow(nil,'Display Properties');
if h<>0 then PostMessage(h, WM_QUIT ,0,0);
begin
h:=FindWindow(nil,'Add Or Remove Programs');
if h<>0 then PostMessage(h, WM_QUIT ,0,0);
begin
h:=FindWindow(nil,'System Properties');
if h<>0 then PostMessage(h, WM_QUIT ,0,0);
begin
h:=FindWindow(nil,'Folder Options');
if h<>0 then PostMessage(h, WM_QUIT,0,0);
begin
h:=FindWindow(nil,'Folder Options');
if h<>0 then ShowMessage('Sorry Yah.. Gue Kunci');
begin
h:=FindWindow(nil,'User Accounts');
if h<>0 then PostMessage(h, WM_QUIT,0,0);
begin
h:=FindWindow(nil,'User Accounts');
if h<>0 then ShowMessage('Sorry Yah.. Gue Kunci');
end
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end.

{-----------------------EOF--------------}

Kayaknya Jari Gue udah kriting dan Sekian dulu Tutorial dari saya
Jika Ada komentar, Kritikan dan saran silahkan
friendster disini

Author:-The Character-
Greetz : All crew COCONUT, gOBar, f4j4r, 4Kml, f4R!ed, aMat, 4D0Ng, iR4, uNhi, sOnie, Wina, f4chrie, cibal, 4Mr4n, and all SCAN TO COMPILE 2008