Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.04.11;
Скачать: CL | DM;

Вниз

SendMessage or What?   Найти похожие ветки 

 
LazorenkoX   (2002-03-30 00:26) [0]

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


 
SoftOne ©   (2002-03-30 02:32) [1]

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


 
Song ©   (2002-03-30 07:22) [2]

Один из способов решения проблемы. Вставьте в 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:="название_программы";
...



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

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

Наверх




Память: 0.47 MB
Время: 0.017 c
14-32977
drpass
2002-03-05 00:45
2002.04.11
Злостный хакерский вопрос


1-32895
ppcat
2002-03-24 17:52
2002.04.11
Version Information


14-32967
limon
2002-03-03 22:03
2002.04.11
Числа Фибоначчи как основа компьютерной логики


14-32974
Nest
2002-03-05 14:08
2002.04.11
Юмор про программистов http://evny.com.ua/?hist/pmer00


3-32642
Rustik
2002-03-19 15:41
2002.04.11
Вылетает ошибка