Untuk Membuat Program Regedit lOCK

Untuk membuat program yang dapat mengunci Regedit, MSCONFIG, TaskMngr, dll Anda tidak perlu menggunakan komponen khusus. Yang dibutuhkan hanya komponen TTimer yang akan selalu mengecek caption jendela yang aktif yang selanjutnya menutup jendela tesebut.

Masukkan Komponen Timer (Tab System) pada form, Kemudian Atur Intervalnya=800

Berikut Source Kodenya :

procedure TForm1.Timer1Timer(Sender: TObject);

const

// array caption jendela yang mau dikunci, silahkan tambahkan sendiri untuk aplikasi lainnya.

aJendela:array [0..5] of string=('System Restore','Windows Task Manager',

        'System Configuration Utility','Registry Editor','Display Properties','Folder Options');

var

h:HWND;{handle system}

i:integer;

BEGIN

for i:=low(aJendela) to high(aJendela) do begin

    h:=FindWindow(nil,pchar(aJendela[i])); // cari jendela



    if h<>0 then

    begin

      PostMessage(h, WM_QUIT ,0,0); // tutup jendela

      ShowMessage('SYSTEM RESTORE terkunci'); // tampilkan pesan

    end;

end;

end;

Kekurangan prosedur di atas berfungsi hanya pada jendela yang judulnya statis. Sedangkan untuk yang judulnya dinamis seperti pada Internet Explorer maupun browser lainnya silahkan Anda kembangkan sendiri.

Selamat mencoba.

Referensi : delphi-id.org