Вниз
Скачать: CL | DM;

Мутексы, черт их подери...   Найти похожие ветки 

 
smok_er   (2002-12-08 00:10) [0]

Уважаемые!
Мутекс есть, но как по нему узнать хэндл окна? Это требуется для того, чтобы при повторном запуске приложения первая копия стала активной.


 
Sha ©   (2002-12-08 00:16) [1]

procedure ActivateOldInstance;
var
FoundWindow, FoundPopup : THandle;
begin;
try;
FoundWindow:=FindWindow(nil,PChar(AppTitle));
if FoundWindow<>0 then begin;
FoundPopup:=GetLastActivePopup(FoundWindow);
if IsIconic(FoundWindow) then ShowWindow(FoundWindow,SW_RESTORE);
BringWindowToTop(FoundWindow);
if FoundPopup<>0 then begin;
if IsIconic(FoundPopup) then ShowWindow(FoundPopup,SW_RESTORE);
BringWindowToTop(FoundPopup);
SetForegroundWindow(FoundPopup);
end;
end;
except end;
end;


 
smok_er   (2002-12-08 00:22) [2]

Огромное спасибо, но...
В том то и дело, что нужно получить хэндл по мутексу, или как-то еще, но без использования Application.Title.


 
Юрий Зотов ©   (2002-12-08 00:52) [3]

А какое отношение имеет мьютекс к окнам? Никакого. А раз они никак не связаны, то никак и не узнаешь.

А решение посмотрите здесь:
http://www.delphikingdom.com/helloworld/samples_win.htm


 
smok_er   (2002-12-08 01:11) [4]

Спасибо. Не совсем конечно то, что нужно, но буду пытаться что-нибудь сотворить...



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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c
6-61727
Ag2002
2002-10-23 16:33
2002.12.19
Сетевой файл


3-61398
SZap
2002-12-02 16:48
2002.12.19
Защищенная БД


1-61696
KMI
2002-12-09 08:37
2002.12.19
Функция CharToOem


1-61528
mila
2002-12-06 17:13
2002.12.19
вывод на консоль (абракадабра)


4-61891
Pumpkin
2002-11-04 23:09
2002.12.19
Как в Delphi-шной программе заменить STUB




   Наверх