Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.02.06;
Скачать: CL | DM;

Вниз

одна копия приложения   Найти похожие ветки 

 
Крутыш ©   (2004-01-26 18:24) [0]

Уважаемые знатоки!!!
Как сделать так, чтобы пользователь мог запустить только одну копию приложения.
и работать только с одним запущенным приложением в данный момент.

С уважением!!!


 
Митяй2   (2004-01-26 18:29) [1]

Можно так:

my_hwnd:THandle;

my_hwnd:=FindWindow("TfmMyForm", nil);
If my_hwnd=0 then <Запуск>

Хотя есть ещё около десяти разных способов...


 
Skier ©   (2004-01-26 18:30) [2]

http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988619824&n=15


 
TUser ©   (2004-01-26 19:05) [3]

Самое простое - при загрузке FindWindow"ом поискать главное окно приложения. Если нашел - терминутсья. Недостаток - при запущенной IDE главное окно всегда есть, можно проверить наличие окна Delphi, если оно есть - не терминиться. Но есть много всего и покруче, типа мьютексов.


 
Юрий Зотов ©   (2004-01-26 19:28) [4]

http://www.delphimaster.ru/articles/limit.html


 
Крутыш ©   (2004-01-26 20:56) [5]

Помню даже есть компонент такой в какой-то библиотеке,
но искать его среди 20000 компонентов будет очень долго.
Может кто подскажет!!!


 
Ig ©   (2004-01-26 21:10) [6]

procedure TForm1.FormCreate(Sender: TObject);
var
hMutex : THandle;
begin
hMutex := CreateMutex(0, true , "Имя программы");
if GetLastError = ERROR_ALREADY_EXISTS then
begin
CloseHandle(hMutex);
Application.Terminate;
end;
end;


 
y-soft ©   (2004-01-26 21:35) [7]

Крутыш © (26.01.04 20:56) [5]

Ни один компонент не может обеспечить надежное распознавание по определению!

Проверку надо производить как можно раньше, а не тогда, когда произведена половина загрузки приложения


 
Крутыш ©   (2004-01-26 23:20) [8]

Спасибо!!!
Очень признателен и благодарен добрым людям!!!



Страницы: 1 вся ветка

Текущий архив: 2004.02.06;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.02 c
6-16567
NikeOLD
2003-11-29 14:02
2004.02.06
Как программно разорвать удаленный диал-ап?


14-16599
goga
2004-01-15 17:27
2004.02.06
FAQ очень странный


8-16534
dzmitry_
2003-09-28 11:52
2004.02.06
текст в Bitmap


14-16655
GRAND
2004-01-13 16:49
2004.02.06
Инструкция по охране труда


14-16628
Ega23
2004-01-13 15:47
2004.02.06
Подскажите бесплатный remainder