Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / запрет запуска копии программы / 14 сообщений из 14, страница 1 из 1
12.03.2003, 15:42
    #32118463
stepaev
stepaev
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
запрет запуска копии программы
Никто не подскажет, как запретить запуск второй копии программы на компьютере одновременно?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.03.2003, 15:47
    #32118469
Артем1
Артем1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
запрет запуска копии программы
Посмотри на delphikingdom в faq. Там есть пара нормальных решений.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.03.2003, 15:55
    #32118486
KirillovA
KirillovA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
запрет запуска копии программы
FindWindow для поиска запущенной проги.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.03.2003, 16:38
    #32118541
Alex Alexeev
Alex Alexeev
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
запрет запуска копии программы
Можено использовать Mutex, нет так давно на этом форуме было
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.03.2003, 17:06
    #32118592
KirillovA
KirillovA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
запрет запуска копии программы
А если прога умрет - как ты мьютекс убивать без перезагрузки компа будешь?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.03.2003, 17:22
    #32118631
ziktuw
ziktuw
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
запрет запуска копии программы
Mutex умирает тут же, как только перестает существать процесс, её создавший. Это гарантирует архитектура Win32
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.03.2003, 14:38
    #32119398
SmaLL
SmaLL
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
запрет запуска копии программы
В файле проекта *.dpr

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
var
  hwndPrev: HWND;

begin
  Application.Initialize;
  hwndPrev:= FindWindow('<имя твоей формы, например - TMainForm>', nil);
  if hwndPrev <>   0  then
  begin
    SetForegroundWindow(hwndPrev);
    Application.Terminate;
  end
  else
  begin
    Application.CreateForm(TParamForm, ParamForm);
    Application.CreateForm(TSendMainForm, SendMainForm);
    Application.Run;
  end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.03.2003, 14:44
    #32119407
eNose
eNose
Участник
[не активирован]
[не одобрен]
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
запрет запуска копии программы
Весело, но неправильно (в общем случае). А вдруг Caption у mainform поменяется?
С мьютексами надежнее.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.03.2003, 15:19
    #32119447
SmaLL
SmaLL
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
запрет запуска копии программы
Весело, но неправильно (в общем случае). А вдруг Caption у mainform поменяется?

А где ты увидел Caption!! На его месте стоит nil . В том-то вся и фишка, что капшн формы можно менять хоть до опупения.
Все вытанцовывается от имени формы.
Я, например в таких случаях даю какое-нибудь оригинальное имя майнформ, что-то вроде TSmaLLSendMainForm75.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.03.2003, 15:23
    #32119453
eNose
eNose
Участник
[не активирован]
[не одобрен]
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
запрет запуска копии программы
HWND FindWindow(
LPCTSTR lpClassName, // pointer to class name
LPCTSTR lpWindowName // pointer to window name
);

Ну и где там ИМЯ ФОРМЫ???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.03.2003, 15:31
    #32119467
SmaLL
SmaLL
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
запрет запуска копии программы
Не придирайся. Я имел в виду под именем формы - имя класса формы.
Т.Е. "Имя класса" = "Т"+"Имя формы"
lpClassName - это "Имя класса"
lpWindowName - это Caption формы, т.е. "Имя класса".Caption
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.03.2003, 15:32
    #32119468
Speaker
Speaker
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
запрет запуска копии программы
Думаю, что имел в виду имя класса формы
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.03.2003, 15:34
    #32119470
SmaLL
SmaLL
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
запрет запуска копии программы
2 Speaker , вот ты меня понял !

P.S. Кстати, пока не забыл, что мне не понравилось на этом форуме, так это какое-то неуважительное отношение к участникам
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.03.2003, 15:46
    #32119483
eNose
eNose
Участник
[не активирован]
[не одобрен]
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
запрет запуска копии программы
P.S. Кстати, пока не забыл, что мне не понравилось на этом форуме, так это какое-то неуважительное отношение к участникам

Это личное дело каждого. Но если хочется сказать это всему форуму - ДОБРО ПОЖАЛОВАТЬ В ПРОСТО ТРЕП!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / запрет запуска копии программы / 14 сообщений из 14, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]