윤티 wrote:

> ctrl-alt-delete를 누를때 나오는 프로그램종료창에 프로그램이 나오지 안도록

> 할려고 하는데요... 종료창에서 없애기

> 태스크바에서 없에는 것은 올라와 있는것 같은데....

> setwindowlong함수를 써서 바꿔주던되



안녕하셔요? 나이렉스의 조규춘입니다.

아래의 소스는 ctrl + alt + del을 눌렀을때 내가 만든 프로그램은 안뜨게 하는 것입니다.

자 한번 해 보셔요! 서로 도와가는 삶을 위하여..

델피언 파이팅! 행복하셔요!



unit Unit1;



Interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;



type

TForm1 = class (TForm)

Button1 : TButton;

procedure FormDestroy (Sender: TObject);

procedure FormCreate (Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;



var

Form1 : TForm1;



implementation



{$R *.DFM}



const

RSPSIMPLESERVICE = 1;

RSPUNREGISTERSERVICE = 0;



function RegisterServiceProcess (dwProcessID, dwType: DWord) : DWord;

stdcall; external 'KERNEL32.DLL';



procedure TForm1.FormDestroy (Sender: TObject);

begin

RegisterServiceProcess (GetCurrentProcessID, RSPUNREGISTERSERVICE)

end;



procedure TForm1.FormCreate (Sender: TObject);

begin

RegisterServiceProcess (GetCurrentProcessID, RSPSIMPLESERVICE)

end;



end.









그리고 작업전환(Alt+Tab, Alt+Ctrl+Del, Ctrl+Esc)을 하지 못하게 하는 방법은



var

Form1: TForm1;

old: Pointer;



implementation



{$R *.DFM}



procedure TForm1.FormCreate(Sender: TObject);

begin

SystemParametersInfo(97, integer(true), Old, 0);

end;



procedure TForm1.FormDestroy(Sender: TObject);

begin

SystemParametersInfo(97, integer(false), Old, 0);

end;



그럼 이만.... 히~!