Original Sender : =?ISO-8859-1?B?R2FyZGEgROpmZeV0?= <[EMAIL PROTECTED]>
---------------------------------
Hello Bang Yudi Wijaya,
Pada Tanggal 9/20/1999, anda menulis :
> -Gimana sich cara proteksi control panel secara keseluruhan agar orang lain
> yang iseng nggak bisa ngakses control panel kita ?
Perasaan ada toolnya dari Microsoft deh.. (kalo enggak salah), sejenis
PowerToys/KernelToys, atau mungkin dari 3rd party soft... cari deh di
Chip.
> -Gimana sich cara agar suatu folder penting saya tidak bisa di-delete oleh
> orang lain (mungkin dengan password). Apakah folder guard mampu mengatasi
> hal tersebut ? (2 pertanyaan)
Mungkin ada tool untuk proteksi delete, kalo sekedar pake password,
saya pernah pake Crypto dan PGP dapet dari Chip.
> -Gimana sich source code-nya agar pada program kita nggak bisa di
> Control-Alt-Del, kemungkinan lainnya sehingga harus menekan tombol reset
Wah saya mau kasih contoh, tapi cukup panjang nih, silahken
dimodifikasi (Mohon maaf kalo panjang banget... =) :
USES Crt,Dos;
CONST Ctrl_Alt_pressed = 4+8;
Scan_Del = 83;
VAR
key_status : byte absolute $40:$17;
old_int_9 : pointer;
tombol : char;
PROCEDURE event_handler;
begin
{disini event pengganti ctrl-alt-del}
end;
PROCEDURE key_handler;
interrupt;
var R : registers;
P : byte;
Saved_status : byte;
begin
P := port[$60];
if P = Scan_Del then begin
Saved_status := key_status;
key_status := key_status and ($FF-Ctrl_Alt_pressed);
end;
intr($60,R);
if P = Scan_Del then begin
key_status := Saved_status;
if (key_status and Ctrl_Alt_pressed) = Ctrl_Alt_pressed then
event_handler;
end;
end;
BEGIN
tombol := #0;
getintvec(9,old_int_9);
setintvec($60,old_int_9);
setintvec(9,@key_handler);
repeat
{disini program kita berada diakhiri esc}
write('bla..bla..bla...');
delay(200);
while keypressed do tombol := readkey;
until (tombol = #27);
setintvec(9,old_int_9);
clrscr;
END.
Kalo mau lebih jelas, baca Mikrodata Volume 2 Seri 8.
> bagaimana agar pada load
> program tersebut selalu selayar besarnya dan juga tidak bisa diubah
> ukurannya itu ?
Maksudnya Window dari aplikasi ?
Set aja di propertinya... (Visual Programming khan ?)
Wassalam,
The R��l L���R mailto:[EMAIL PROTECTED]
Keyboard error - Press <F1> key to resume...
----------------------------------------------------------------
Compu-Mania MailingList is provided by PT Centrin Utama
Maintained by : [EMAIL PROTECTED]
To Post a msg : Send mail to [EMAIL PROTECTED]
To Unsubscribe : Mail to [EMAIL PROTECTED]
BODY : unsubscribe Compu-Mania
For more information, send mail to [EMAIL PROTECTED]
with "HELP" in the BODY of your mail (without quote).
----------------------------------------------------------------
