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

Вниз

Можно ли заблокировать ShowMessage.   Найти похожие ветки 

 
Комбинатор   (2004-07-19 16:35) [0]

Я использую процедуру модуля, которая вызывает ShowMessage /
Можно ли сделать так чтобы Message не вылазила.
Т.е. есть ли оператор типа
WithoutMessage;
DoSomeCode;
WithMessage;


 
Ega23 ©   (2004-07-19 16:36) [1]

uses  Classes, SysUtils, Graphics,
 {$IFDEF DELPHI5}
StrUtils,
{$ENDIF}
{$IFDEF DELPHI7}
RxStrUtils, Variants,
{$ENDIF}
Messages;


 
Digitman ©   (2004-07-19 16:37) [2]


> так чтобы Message не вылазила


а кнопку ОК на этом диал.окне кто давить за тебя будет ? ручками или программно ? Пушкин ?


 
Mim1 ©   (2004-07-19 17:19) [3]

Модифицируйте этот код немного под себя.
Unit hook_fd;

interface

implementation

uses windows,messages;

var
 HookHandle : HHOOK;
 IsFirstWindow:boolean;

function CallWndProc(nCode: Integer; wParam: WPARAM;  lParam: LPARAM ): LRESULT; stdcall;
var msg:PCWPStruct absolute lParam;
begin
 if nCode = HC_ACTION then
 begin
   with msg^ do
     case message of
       WM_CREATE:
         with PCREATESTRUCT(lparam)^ do
           if (lpszClass = PCHAR(32770)) and (lpszName = "_") then
             begin
               LockWindowUpdate(hwnd);
               SendMessage(hwnd,WM_SYSCOMMAND,SC_CLOSE,0)
             end
           else  
             if IsFirstWindow and ((style and WS_VISIBLE) <> 0) THEN
               begin
                 IsFirstWindow := false;
                 SetForegroundWindow(hwnd);
               end;
     end;
   Result := 0;
 end
 else
   Result := CallNextHookEx(HookHandle, nCode, wParam, lParam);
end;

initialization
 IsFirstWindow := true;
 HookHandle := SetWindowsHookEx(WH_CALLWNDPROC , @CallWndProc, 0, GetCurrentThreadId);
finalization
 UnhookWindowsHookEx(HookHandle);
end.



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

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

Наверх




Память: 0.47 MB
Время: 0.036 c
14-1089965524
Igorek
2004-07-16 12:12
2004.08.01
А где находится "Потрепаться"...


9-1082097325
Darthman
2004-04-16 10:35
2004.08.01
2D 3D opensource OpenGL engine. Может быть кому пригодится.


14-1089791240
infom
2004-07-14 11:47
2004.08.01
Ветка про ДЕВУШЕК


1-1089804769
CTAPbIi
2004-07-14 15:32
2004.08.01
Закрытие модальной формы.


14-1089465018
VID
2004-07-10 17:10
2004.08.01
Как поднастроить файрвол (ZoneAlarm 4.5.538.001)