Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

MessageBox [D5, NT4, Win2k]

HappyNewYearToAll © (2003-01-08 17:20:00)
Ув. делферы!
Можно ли каким-либо образом вывести MessageBox без прерывания кода программы до закрытия этого окна?

MECHANIC (2003-01-14 20:54:00) [1]
Sorry, misunderstood this question.

MECHANIC (2003-01-14 20:51:00) [2]
procedure TMainForm.Button1Click(Sender: TObject);
begin
MessageBox(HWND_DESKTOP, "That is what happens when you don""t go too far!", "Non modal", MB_OK)
end;

mystang (2003-01-10 11:32:00) [3]
Можно, если MessageBox вызывать из отдельного потока :)

Игорь Шевченко (2003-01-08 17:47:00) [4]
Можно. Создать отдельное Popup-окно и показать его немодально :-)

R4D][ (2003-01-08 17:34:00) [5]
Если очень надо, то можно попробовать с помощью SetWindowsHookEx установить локальный hook на любую другую прогу(например Explorer) и в MsgProc"e в качестве обработчика сообщения(например, WM_USER+67) поставить вызов MessageBox. А твоя прога должна будет только послать PostMessage(HWND, WM_USER+67,0,0)
Вот пример:
program proga;

uses
Windows,Messages;

var
HookH : HWND;
HandleOfBrows: HWND;
ThreadOfEx : HWND;

function MsgProc(code: Integer; wparam: WParam; lparam: LParam):LResult; stdcall;
begin
if code=HC_ACTION then
begin
// Если пришедшее сообщение WM_USER+67, то продолжаем, иначе ничего не делаем
if TMsg(Pointer(lparam)^).message=WM_USER+50 then MessageBox(o, "That""s work!!!","",MB_OK)
// Передаем управление следующей установленной ловушке
Result:=CallNextHookEx(HookH, Code, wParam, lParam);
end;

begin
HandleOfBrows:=FindWindow(nil,"OleChannelWnd");
ThreadOfEx:=GetWindowThreadProcessId(HandleOfBrows,nil);
HookH:=SetWindowsHookEx(WH_GETMESSAGE,@MsgProc,HInstance,ThreadOfEx);
// Шлем сообщение WM_USER+67 найденному Explorer"у
PostMessage(HandleOfBrows,WM_USER+67,0,0);
// Ждем 10 мс для того, чтобы сообщение успело дойти до Explorer"a
sleep(10);
// Убираем ловушку
UnhookWindowsHookEx(HookH);
end;
end;
end.

Наверх

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