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).
No comments:
Post a Comment