직접 만든 프로그램 이라면...

Form 의 클래스를 아시겠죠?

그럼 이렇게 하세요...



var

sWindowName : string;

begin

sWindowName := 'TfrmMain'; <= MainForm의 클래스를 스트링으로 입력



if FindWindow( PChar( sWindowName ), nil) = 0 then

begin

// 실행된 것이 없으니 실행

WinExec( PChar( '실행파일.exe' ), SW_SHOW);

end else

begin

// 실행된 프로그램(폼)을 찾아서 보여주기...

ShowWindow(FindWindow( PChar( sWindowName ), nil ), SW_SHOW );

end;

end;



폼의 클래스를 모른다면...

흠...메인 폼의 캡션을 갖고도 찾을 수 있습니다...

사용방법은 FindWindow 를 검색어로 해서 찾아보세요....



==============================================================================



pmyun wrote:

> pmyunsl님 제목을 똑바로 쓰세요...

>

> 각각의 실행 화일을 실행시 중복 체크는 처리를 했읍니다.

> 그러나 다른 프로그램을 실행 하면 기존 프로그램을 자동 종료하는 처리.

>

> 중복된 프로그램을 클릭했을때 윈도우에 숨어있던 화면을 활성화 하는 방법 좀 부