Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > проверить открыто приложение или нет ???

Автор: FortMax 4.5.2009, 03:47

Доброго времени суток !
Мне необходимо при запуске программы проверять не запущен-ли уже экземпляр. Подскажите с помощью какого свойства можно проверить запужено уже приложение или нет, и в каком месте ???

Автор: Coder 4.5.2009, 08:15

В теле проекта (dpr) перед созданием форм:

Код


  hMutex := CreateMutex(0, true , 'AppName');
  if GetLastError = ERROR_ALREADY_EXISTS then
    begin
      CloseHandle(hMutex);
      MessageDlg('Запуск второй копии программы недопустим!',mtError,[mbOK],0);
      Application.Terminate;
    end;

Добавлено через 1 минуту и 35 секунд
не забудь

Код


var
 hMutex : THandle;

Автор: FortMax 4.5.2009, 08:56

компилятор мне в ответ

Код


[Pascal Error] Project2.dpr(15): E2003 Undeclared identifier: 'CreateMutex'
[Pascal Error] Project2.dpr(16): E2003 Undeclared identifier: 'ERROR_ALREADY_EXISTS'
[Pascal Error] Project2.dpr(18): E2003 Undeclared identifier: 'CloseHandle'
[Pascal Error] Project2.dpr(19): E2003 Undeclared identifier: 'MessageDlg'
[Pascal Error] Project2.dpr(19): E2003 Undeclared identifier: 'mtError'
[Pascal Error] Project2.dpr(26): E2003 Undeclared identifier: 'Form3'

Автор: Coder 4.5.2009, 09:10

uses
Windows, Dialogs;

Добавлено через 34 секунды
Form3 - твое что-то smile

Автор: FortMax 4.5.2009, 09:30

Coder, спс - Работает smile