이선주 wrote:

>

> 현재 PC에서 실행중인 모든 프로그램들중에서 타이틀에 특정 문자열을 포함하고

>

> 있는 프로그램을 죽일수 있는 방법이 있을까요 ?

>

> 예를들면, 타이틀에 'Microsoft' 라는 문자열을 포함하고 있는 모든 프로그램을

>

> 종료시키고자 합니다.

>

> 혹시 방법을 알고계신분은 도움을 부탁드립니다.

>

> 감사합니다.







procedure TForm1.Button1Click(Sender : TObject);

var

i : Integer;

begin

for i := Screen.FormCount-1 downto 0 do

begin

if Pos('MICROSOFT',UpperCase(Screen.Forms[i].Caption) > 0 then

Screen.Forms[i].Free;

end;

end;





위와 같이 코딩하면 'microsoft' 문자를 포함한 모든 폼은 제거됩니다.



단 몇가지 주의하셔야 할것은



위 프로시져를 포함하는 폼 자신은 'Microsoft'를 포함하지 않고 있어야 하며



강제로 폼을 Free시키므로 제거되는 폼들에서 폼종료와 관련되는 이벤트를 사용에 주의를 하셔야 합니다.