| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

SendMessage or What?

LazorenkoX ©   (2002-03-30 00:26:00) 

Вот ещё один вопрос, который меня мучает. Конечно, посидев, почитав МСДН я что нибудь найду и напишу, но может кто-нибудь сталкивался с такой проблемой. Значит так, есть у меня файл с каким-то расширением. Зарегестрировал я его в эксплорэре, при нажатии на него он запускается моя программа, допустим темп.ехе. И эта программа читает открываемый файл. Проблема в том, что я хочу, чтобы только одна копия программы была запущенна, то есть, когда программа открывается она ищет не запущена ли её копия, а если запущена, то сказать копии чтобы она открыла этот файл. Вопрос:Как мне узнать запущена ли программа и если да, то сказать ей чтобы она открыла файл?

---

Song   (2002-03-30 07:22:00) [1]

Один из способов решения проблемы. Вставьте в dpr файл:


....
Const NamedMutex="OneOnly";
Var WND:HWND;

Function CheckInstance(Name:PChar):Integer;
Var R:integer;
Mutex:Integer;
Begin
Mutex:=CreateMutex(nil,true,Name);
R:=GetLastError();
IF r<>0 then Result:=0
else Result:=Mutex;
End;

begin
...
IF CheckInstance(NamedMutex)=0 then
Begin
Wnd:=Findwindow(nil,"название_программы");
IF WND<>0 then
Begin
{ "то сказать копии чтобы она открыла этот файл"}
Exit;
End;
End;
Title:="название_программы";
...


---

SoftOne   (2002-03-30 02:32:00) [2]

Тут собственно вопросов два:
Первый - проверка "запущенности". Решается многими способами. Какой для тебя лучше - выбирай.
Второй - Если уже запущена, то как открыть нужный файл? Решение зависит от тебя, что напишешь в программе, то и выполнится. Ответ зависит от исходных. Какой тип приложения MDI или SDI?

---

Наверх