참고가 되었으면 합니다





1. CTRL + ALT + DEL 막기와 풀기



function RegisterServiceProcess

(dwProcessID, dwType: DWord) : DWord; stdcall; external 'KERNEL32.DLL';

var

nOldVal: LongInt;

begin

SystemParametersInfo(SPI_SCREENSAVERRUNNING,1, @nOldVal, 0); //가능

SystemParametersInfo(SPI_SCREENSAVERRUNNING,0, @nOldVal, 0); //불가능

end;





2. 5초간 키나 마우스 입력이 없을시에 메세지 뿌려주기



private

function AppWindowHook(var Message: TMessage): Boolean;

Public

sss : string

end;



function TForm1.AppWindowHook(var Message: TMessage): Boolean;

begin

with Message do

begin

sss := IntToStr(WParam);

end;

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

Application.HookMainWindow(AppWindowHook);

end;



procedure TForm1.Timer1Timer(Sender: TObject);

begin

if sss = '' then

begin

showmessage('NO KEY');

timer1.Enabled := false;

end;

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

sss := '';

timer1.Enabled := true;

end;

로비 wrote:



답변해주셔서 정말 감사한데요..

후킹이 폼을 감추(hide)었을때는 않되네요...

폼을 숨긴후 키를 감시 하는 후킹할수 있다던데..

원도우의 모든 작업의 키...즉.. 컴퓨터를 사용하는가 하지 않는가...?

키로 판단할려고 하는데..



다시 조언 부탁드립니다.