...stop Windows from displaying critical error messages?
Author: Simon Grossenbacher
var
  wOldErrorMode: Word;
begin
  wOldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);
  try
    //Error code here
  finally
   SetErrorMode(wOldErrorMode);
  end;
end;
printed from
  www.swissdelphicenter.ch
  developers knowledge base