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

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

Запуск процедуры из чужой программы [D6, Win2k]


shuba ©   (2003-09-22 16:21:00) 

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


VMcL   (2003-09-22 18:56:00) [1]

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


LOMic   (2003-09-22 17:03:00) [2]

В 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   (2003-09-22 16:54:00) [3]

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


Плохиш_   (2003-09-22 16:37:00) [4]

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

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо