Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

второй экземпляр программы не запускался [D3, Win95/98]

Alinka © (2002-12-10 11:28:00)
Добрый день,мастера! Как сделать чтобы при втором запуске программы второй экземпляр программы не запускался, а активизировался первый запущенный(минимизированный или свернутый в трей)экземпляр программы.

Nic2 (2002-12-13 19:03:00) [1]
Может я чет нито делаю, но ничего из этого не работает.

Sha (2002-12-10 14:45:00) [2]
Вот недавно уже давал кому-то:

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;

Song (2002-12-10 14:05:00) [3]
SW_RESTORE

Alinka (2002-12-10 14:01:00) [4]
Не совсем все в порядке.
Дело в том, что восстанавливать можно получается только главную форму приложения?
В моем случае есть вариант когда приложение запужено, но в событии OnShow запрашивается пароль доступа к БД ,соответственно выводится форма Идентификации. Так вот если эта форма минимизирована, то я не могу ее восстатановить её.

Alinka (2002-12-10 12:37:00) [5]
Все ОК. Спасибо.

Alinka (2002-12-10 12:13:00) [6]
ShowWindow(FindWindow(nil, PChar("название гл. окна проги"), SW_SHOWNORMAL);
Эта команда разворачивает окно из минимизированного состояния, но если программа свернута в трей разворачивания окна не происходит.

bak (2002-12-10 11:57:00) [7]
пишешь в дпр"е

var
HM: THandle;
function Check: boolean;
begin
HM := OpenMutex(MUTEX_ALL_ACCESS, false, "MyProg");
Result := (HM <> 0);
if HM = 0 then HM := CreateMutex(nil, false, "MyProg");
end;

begin

if Check then begin
//вызов I экземпляра проги
// что-то типа
// ShowWindow(FindWindow(nil, PChar("название гл. окна проги"), SW_SHOWNORMAL);
exit;
end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »