Q&A

  • 프로그램 한번만 실행시키기가 안돼요..
안녕하세요..

EXE 프로그램을 한번만 실행시킬려고 하는데 잘 안되는군요.



var

hWnd: THandle;

begin



hWnd := FindWindow(PChar('TForm1'), PChar('Title'));

if hWnd <> 0 then begin

ShowMessage('있을껄?');

end else begin

ShowMessage('없지롱!');

end;



이렇게 썼는데 매번 프로그램이 구동되었다고 나오네요..

답변 부탁드립니다.

0  COMMENTS