Главная страница
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.014 c
2-1263855556
@!!ex
2010-01-19 01:59
2010.03.21
TRichEdit как узнать слово под мышкой?


2-1264014723
@!!ex
2010-01-20 22:12
2010.03.21
Как преобразовать кодировку GB2312 в UTF-8 или 16?


2-1263635338
OOO_leg
2010-01-16 12:48
2010.03.21
Компоненты


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


2-1263711881
MK26
2010-01-17 10:04
2010.03.21
Помогите установить пароль на готовую уже программу (exe фаил)