한승수 wrote:

>

> 두개 이상 실행시키는 것을 막기 위해

>

> 제가 짠 프로그램이 이미 실행중이면 실행되지 않게 하려 합니다..

>

> 어떻게 하면 가능할까요..

>

> 좀 갈쳐 주세요..실행중인 리스트 구하는 API를 어디서 본것 같은데..

>

> 쓸려구 찾으니깐 못찾겠네요..

>

> 도와주세요~ ^^



------------------------------------------------------------------------



실행중인 윈도우 리스트를 가져온다 함은 Ctrl+Alt+Del 키 눌렀을때

보여지는 리스트 처럼 윈도우텍스트 그러니까 윈도우캡션을 가져오는 것이므로

별로 권장할게 못되는군요.. (왜 그러는지는 아시겠죠?)



질문하신 내용을 보니 같은 폼이 두개 이상 뜨는 것을 막는게 아니라

같은 프로그램이 두개 이상 실행되는것을 막으려고 하시는거죠?

*.dpr 소스에다 아래 코드를 기입하세요..



Application.Initialize;

begin

CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE, 0,1024, 'SharedExists' );

if GetLastError=ERROR_ALREADY_EXISTS then //같은 프로그램이 실행상태인지 확인

begin

showmessage('프로그램이 실행중일껄?');

halt; // 같은프로그램이 실행되어 있을땐 종료하라.

end;

end;

한승수 wrote:

>

> 두개 이상 실행시키는 것을 막기 위해

>

> 제가 짠 프로그램이 이미 실행중이면 실행되지 않게 하려 합니다..

>

> 어떻게 하면 가능할까요..

>

> 좀 갈쳐 주세요..실행중인 리스트 구하는 API를 어디서 본것 같은데..

>

> 쓸려구 찾으니깐 못찾겠네요..

>

> 도와주세요~ ^^





아래의 소스는 전체 리스트를 구하는 것입니다.



**** 실행중인 Application List알아내기 ***



function EnumWinProc(Wnd: HWND; frm: TForm1) : Boolean;

Export;{$IFDEF Win32}stdCall;{$ENDIF}

var

WinText : Array[0..255] of Char;

begin

GetWindowText(Wnd, WinText, 255);

Result := True;

if (StrPas(WinText) <> '') then

frm.ListBox1.Items.Add(StrPas(WinText));

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

EnumWindows(@EnumwinProc, Longint(self));

end;



원하시는 답변이 이것이 아닌것 같아 하나 더 올립니다.



중복 실행 방지



var

PrevInstHandle : THandle;

WindowName : String;

begin



Application.Initialize;

Application.Title := 'AAA';



WindowName := 'AAA';



PrevInstHandle := FindWindow('TApplication',PChar(WindowName));



SetWindowText(PrevInstHandle,'fdj@#%#$#FG');



PrevInstHandle := FindWindow('TApplication',PChar(WindowName));



if PrevInstHandle <> 0 Then

Begin



Application.MessageBox('프로그램이 이미 실행중입니다','확 인',

mb_OK+mb_DefButton1+mb_IconInformation);

if IsIconic(PrevInstHandle) Then

ShowWindow(PrevInstHandle,SW_RESTORE)

else

BringWindowToTop(PrevInstHandle);

Halt;

end;



Application.Title := 'AAA';