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

← →
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;

>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).

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