Проблема с 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]

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

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