Arsip: Mengunci Regedit, MSCONFIG, TaskMngr, dll


by oghie in Articles more 14 years ago 2906
Caranya Dengan memakai Komponen Timer, Kemudian Atur Intervalnya=800
Berikut Source Kodenya :
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.
Syntax Highlighted with https://pascal-id.org/syntax
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com