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

Запуск процедуры из чужой программы   Найти похожие ветки 

← →
shuba   (2003-09-22 16:21) [0]

Ситуевина такая. Моё приложение запускается только один раз. При повторном запуске нужно чтобы приложение не запускалось, а вызывалась процедура уже запущенного приложения.
Подскажите мастера!

---

← →
Плохиш_   (2003-09-22 16:37) [1]

http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988619824&n=15

Что, самому поискать, западло?

---

← →
shuba   (2003-09-22 16:54) [2]

Вопрос в том как мне процедуру запущенного приложения запустить!?

---

← →
LOMic ©   (2003-09-22 17:03) [3]

В dpr файле:
UnicueMapping:= CreateFileMapping ($ffffffff,
nil, PAGE_READONLY, 0, 32, "MyMap");
if UnicueMapping = 0 then begin
ShowMessage ("Ошибка выделения памяти!");
Halt;
end
else if GetLastError = ERROR_ALREADY_EXISTS then
begin
Процедура;
Halt;
end;

Application.Initialize;
Application.CreateForm(TMainForm, MainForm);
...
Application.Run;

---

← →
VMcL ©   (2003-09-22 18:56) [4]

>shuba (22.09.03 16:21)

LOMic © (22.09.03 17:03) [3] + первая копия программы в созданном MMF записывает Handle своей главной формы (или Application) и тогда нужно использовать как-то так:
else if GetLastError = ERROR_ALREADY_EXISTS then
begin
PostMessage(Handle_From_MMF, WM_USER + 1, ...);
Halt;
end;

в форме обрабатываешь сообщение (WM_USER + 1).

---

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

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



Память: 0.45 MB
Время: 0.022 c