Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.19;
Скачать: 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 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.023 c
3-61392
Павка
2002-12-03 04:43
2002.12.19
Как заполнить шаблон Вордовский (справка) данными из базы


3-61453
SerGol
2002-11-30 17:47
2002.12.19
ADO, THREADS & BPL


1-61581
EugeneG
2002-12-10 08:32
2002.12.19
RichEdit scroll after find


14-61822
AL2002
2002-11-26 14:13
2002.12.19
Модерирование форумов


14-61820
sancho
2002-11-29 17:53
2002.12.19
Delphi3 client-server vs Delphi 7 ent