VPF::вторая копия - Форум программистов

dexterdef

Дата 31.10.2005, 23:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 22.10.2005

Репутация: нет
Всего: нет

Как не допустить запуск второй копии программы? Чтобы при запуске второй активировалась первая форма

Alex

Дата 1.11.2005, 00:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

http://vingrad.ru/DELPHI-DLP-000787
http://vingrad.ru/DELPHI-DLP-000769
http://vingrad.ru/DELPHI-DLP-000773

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

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

~FoX~

Дата 1.11.2005, 07:56 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68

Так же можно использовать мтексы

Код


program prog1;

uses
  Forms, windows,  SysUtils,
  Form1 in 'Form1.pas' {Form1},
 
{$R *.res}
var
  hMutex : THandle;
begin
  hMutex := CreateMutex(nil, False, 'MyCoolMutex');
  if WaitForSingleObject(hMutex, 0) <> wait_TimeOut then
  begin
    Application.Initialize;
    Application.Title := 'MyCoolApplication';
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end;
end.

Этот пример ИМХО проще, лично я всегда именно так поступаю.

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

…множественность никогда не следует полагать без необходимости…

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »