VPF::Прдотвращение второга запуска.

_Bla_Bla_Bla_

Дата 4.9.2002, 23:04 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Как предотвратить запуск второй копии программы не имеющей формы? Приложение написано на чистом API.

Вот кусок кода программы:

Код

begin
 FillChar(WndClass, SizeOf(WndClass), 0);
  with WndClass do begin
   hInstance      := SysInit.hInstance;
   lpszClassName  := sClassName;
   lpfnWndProc    := @WindowProc;
  end;
   RegisterClass(WndClass);
   hWnd := CreateWindow(sClassName, '', 0, 0, 0, 0, 0, 0, 0, hInstance, NIL);
  if hWnd = 0 then begin
   MessageBox(0, 'Initialisation failed', NIL, ID_OK);
   Exit;
  end;
  //Регистрация сообщения о перезапуске Explorer`а
  TaskBarCreated := RegisterWindowMessage('TaskbarCreated');
  //Создание значка
  CreateTaskBarIcon;
  //Скрываем окно
  ShowWindow(hWnd, SW_HIDE);
 //Цикл обработки сообщений
 repeat
  waitMessage;
   while GetMessage(Msg, 0, 0, 0) do begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
   end;
  //Убираем за собой значок
  TaskBarDeleteIcon(hWnd, ICON_ID);
  Halt(Msg.wParam);
end.

adminlion

Дата 5.9.2002, 03:04 (ссылка)

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

Загрузка ...

Новичок

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

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

С помощью мъютекса так называемого. Если товя прога в памяти, мхютекс запуск не позволит

FdX

Дата 5.9.2002, 23:16 (ссылка)

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

Загрузка ...

Бывалый

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

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

Да... Ну а если нужен пример кода, то вот:

Код


var 
 HMutex:THandle;
begin
 HMutex:=CreateMutex(nil,false,'MyCoolMutex');
 if WaitForSingleObject(HMutex,0)=WAIT_TIMEOUT then
  ExitProcess(0);
end;

Ampersand

Дата 6.9.2002, 15:56 (ссылка)

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

Загрузка ...

Новичок

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

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

Или древний способ - при запуске создаешь какой-нить файл, при выходе убиваешь. Если прога при старте найдет этот файл - значит, она уже запущена

Vit

Дата 6.9.2002, 22:52 (ссылка)

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

Загрузка ...

Vitaly Nevzorov

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

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

Цитата(Ampersand @ 05.9.2002, 23:56)

Так не пойдёт - я убил твою программу через Task Manager и теперь её никогда нельзя будет запустить...

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

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

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