Скачать: 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 вся ветка

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



Память: 0.46 MB
Время: 0.01 c