Menonaktifkan Tombol “Ctrl+Alt+Del”

Nich sedikit source code untuk mengaktifkan dan menonaktifkannya Tombol “Ctrl+Alt+Del” :

procedure ctrlaltdel(state : boolean);
var pvparam : integer;
begin
if state = true then
systemparameterinfo(SPI_SCREENSAVERRUNNING, 1, @pvparam,0)
else
systemparameterinfo(SPI_SCREENSAVERRUNNING, 0, @pvparam,0)
end;

Cara untuk memanggilnya, letakkan procedure tersebut pada saat yang diinginkan, misal : CtrlAltDel(True) atau CtrlAltDel(False).