김지건 wrote:

> 프로그램이 실행중에 있을때 TalNet.exe라를 실행화일이

>

> 죽는 것을 방지하고 싶은데요...방법을 모르겠군요.....

>

> TalNet.exe가 죽을때 나오는 윈도우 메시지가 있을 것 같은데...

>

> 누구 아시는 분이 계시면....

>

> 가르쳐 주시면 고맙겠습니다...



SystemParametersInfo 함수를 이용하면 되고요....

도움말을 찾아보세요...



어느 분인가 통신상에서 종료를 되지 못하게 하는 컴포넌트를 만드신 분이 있던데...

그 소스를 올리겠습니다...



만드신 분의 성함을 몰라서 밝히지 못해 죄송합니다...



류민철





unit Kill1;



interface



uses

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



type

TKill1 = class(TComponent)

private

{ Private declarations }

vQuit: Boolean;

procedure fSetQuit( val : boolean );

protected

{ Protected declarations }

procedure StartKill;

procedure EndKill;

procedure Lucifer(Sender: TObject; var Action: TCloseAction);

procedure Soo(Sender: TObject; var Action: TCloseAction);

public

{ Public declarations }

constructor Create(AOwner: TComponent); override;

destructor Destroy; override;

published

{ Published declarations }

property CanClose: Boolean read vQuit write fSetQuit;

end;



procedure Register;



implementation



constructor TKill1.Create(AOwner: TComponent);

begin

inherited Create(AOwner);

end;



destructor TKill1.Destroy;

begin

inherited Destroy;

end;



procedure TKill1.fSetQuit( val : boolean );

begin

vQuit := val;



if vQuit then StartKill

else EndKill;

end;



procedure TKill1.StartKill;

var

b: Longint;

begin

SystemParametersInfo(97, Word(True), @B, 0);

TForm(Owner).OnClose := Lucifer;

end;



procedure TKill1.Lucifer(Sender: TObject; var Action: TCloseAction);

begin

Action := caNone;

end;



procedure TKill1.Soo(Sender: TObject; var Action: TCloseAction);

begin

Action := caFree;

end;



procedure TKill1.EndKill;

var

b: Longint;

begin

SystemParametersInfo(97, Word(False), @B, 0);

TForm(Owner).OnClose := Soo;

end;



procedure Register;

begin

RegisterComponents('SooHyun', [TKill1]);

end;

end.