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

Вниз

Проблема с SendMessage   Найти похожие ветки 

 
kolj   (2008-11-16 14:56) [0]

Здраствуйте ! Возникла проблема с SendMessage, не доходит сообщение. Стоит задача предотвратить повторний запуск преложения и если такой возник, то вывести запущеное приложение на передний план.
Делаю так:

CreateMutex(nil, false, "MyApp");
if GetLastError = ERROR_ALREADY_EXISTS then begin
SendMessage(HWND_BROADCAST,
               RegisterWindowMessage("MyApp"),
               0,
               0);
    Halt(0);
 end;

 Application.Initialize;
 Application.CreateForm(TForm1, Form1);
 Application.Run;

--------------------------

private
procedure DefaultHandler(var Message:TMessage);

var
 Form1: TForm1;
 MyMsg : DWord;

procedure TForm1.DefaultHandler(var Message:TMessage);
begin
if Message.Msg=MyMsg then begin
 listbox1.Items.Add("my message");
end;
Inherited DefaultHandler(Message);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
MyMsg := RegisterWindowMessage("MyApp");
end;


 
Сергей М. ©   (2008-11-16 16:34) [1]


> не доходит сообщение


Прежде чем оно куда-то дойдет, надо быть уверенным что оно точно уйдет, причем именно то которое ожидается.


 
Сергей М. ©   (2008-11-16 16:35) [2]


> CreateMutex


Это функция !


 
Leonid Troyanovsky ©   (2008-11-16 16:38) [3]


> kolj   (16.11.08 14:56)  

> и если такой возник, то вывести запущеное приложение на
> передний план.

А нафих Mutex?
Memory mapped file or Semaphore, на худой конец.

> SendMessage(HWND_BROADCAST,

Must die.

--
Regards, LVT.


 
Юрий Зотов ©   (2008-11-17 15:31) [4]

http://delphikingdom.com/asp/viewitem.asp?catalogid=904


 
имя   (2009-01-02 11:18) [5]

Удалено модератором


 
имя   (2009-01-02 11:19) [6]

Удалено модератором


 
имя   (2009-01-02 12:46) [7]

Удалено модератором


 
имя   (2009-01-02 14:49) [8]

Удалено модератором



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

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

Наверх




Память: 0.48 MB
Время: 0.011 c
15-1262522391
И. Павел
2010-01-03 15:39
2010.03.21
PHP - не хватает прав для выполнения fopen


15-1262449871
NailMan
2010-01-02 19:31
2010.03.21
Как сделать залипающий курсор мышки у края десктопа


15-1262207000
Kerk
2009-12-31 00:03
2010.03.21
Регэксп


2-1263378348
legion25
2010-01-13 13:25
2010.03.21
Вычисление суммы ряда с точностью ε


3-1236243330
ford
2009-03-05 11:55
2010.03.21
проблемма с вычиткой BLOB полей из базы данных