Форум: "WinAPI";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];
ВнизУзнать, что программа уже запущена Найти похожие ветки
← →
drAKon (2001-12-03 20:56) [5]Как я понимаю, ты хочешь убрать запуск второго экземпляра приложения. У меня это сделано так:
1. В dpr файле пишешь (подставляя свои window class и caption):
begin
MHandle:=FindWindow("Window class","Caption");
if MHandle<>0 then
if SendMessage(MHandle, WM_USER+1, 0, 0) = 1 then
halt;
2. В форме пишешь обработчик мессаги WM_USER+1, в которой просто возвращаешь 1, и, если нужно, делаешь Application.BringToFront
В принципе можно сделать и проще -if MHandle<>0 then halt
, но тогда приложение не будет запускаться при запущенном Делфи (потому что такое же окно создается дизайнером Делфи)
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c