Delphi는 하나의 인스턴스만 실행합니다.

359 단어
begin
  CreateMutex(nil, True, '    ');
  if GetLastError <> ERROR_ALREADY_EXISTS then
  begin
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end
  else begin
    ShowMessage('        ');
  end;
end.

좋은 웹페이지 즐겨찾기