To close the messagebox

appo Dec 27th, 2013 337 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. procedure CloseMessageBox(AWnd: HWND; AMsg: UINT; AIDEvent: UINT_PTR;
  2. ATicks: DWORD); stdcall;
  3. var
  4. Wnd: HWND;
  5. begin
  6. KillTimer(AWnd, AIDEvent);
  7. Wnd := GetActiveWindow;
  8. if IsWindow(Wnd) then
  9. PostMessage(Wnd, WM_CLOSE, 0, 0);
  10. end;
  12. // Coded by Appo //
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand