단단이아빠의 세상

본문

퍼온곳 : 델마당

URL : http://www.delmadang.com/community/bbs_view.asp?bbsNo=17&bbsCat=0&st=C&keyword=%uD504%uB85C%uADF8%uB7A8%20%uB450%uBC88&indx=404206&keyword1=프로그램&keyword2=두번&page=1

프로젝트에서 view source 하셔서
-----------------------------------
var
  mHandle : THandle;
begin
  Application.Initialize;
  mHandle := CreateMutex(nil, True, PChar('noDuplicate'));

  if GetLastError = ERROR_ALREADY_EXISTS then begin
    MessageBox(0, PChar('프로그램이 이미 실행중입니다.'), '중복실행', MB_OK or MB_ICONINFORMATION);
    halt;
  end;
------------------------------------------------
추가해보세요.

uses 에 Windows 를 추가해야 한다.