Это продолжение моего предыдущего вопроса Как подавить диалоговое окно, отображаемое на экране COM-сервера Inproc.
История:
Резюме моей ситуации: у меня есть COM-сервер Inproc, написанный в Delphi от третьего лица. Одна из функций, которые я вызываю, отображает диалоговое окно с сообщением об ошибке, если оно ловушки определенного типа ошибки. Проблема в том, что я пытаюсь обрабатывать данные навалом, а источник данных, который я использую, вызывает появление диалогового окна с ошибкой (благодаря ответу на мой предыдущий вопрос он автоматически закрывается, и я смог запустить его завершение, оно отобразило бы диалоговое окно и потребовало, чтобы кто-то нажал OK 9923 раза). Процесс блокируется до закрытия окна сообщения.
Вопрос:
Я хотел бы лучше узнать, что сказал диалог об ошибке. Однако любая попытка получить текстовый текст диалогового окна не удалась.
//Snip
private void StartWindowListener()
{
//Queue the watcher on the message pump if we are not watching.
if (_watcherRunning == false)
{
_watcherRunning = true;
_dummyForm.BeginInvoke(new Action(() =>
{
_watcherRunning = false;
//If we are not inside the com object don't enumerate.
if (_insideCom == false) return;
// Enumerate windows to find dialogs
EnumThreadWndProc callback = new EnumThreadWndProc(CheckWindow);
EnumThreadWindows(GetCurrentThreadId(), callback, IntPtr.Zero);
GC.KeepAlive(callback);
}));
}
}
private bool CheckWindow(IntPtr hWnd, IntPtr lp)
{
// Checks if hWnd is the expected dialog
StringBuilder sb = new StringBuilder(260);
GetClassName(hWnd, sb, sb.Capacity);
if (sb.ToString() == "TMessageForm")
{
//This returns the dialog box title
GetWindowText(hWnd, sb, sb.Capacity);
//This returns IntPtr.Zero
var hDialogText = GetDlgItem(hWnd, 0xFFFF);
if (hDialogText != IntPtr.Zero)
GetWindowText(hDialogText, sb, sb.Capacity);
//This returns a empty string
GetDlgItemText(hWnd, 0xFFFF, sb, sb.Capacity);
//Only sees the OK button.
IntPtr hCtl = IntPtr.Zero;
HashSet<IntPtr> seen = new HashSet<IntPtr>();
while ((hCtl = GetNextDlgGroupItem(hWnd, hCtl, false)) != IntPtr.Zero)
{
//When we see the same control twice, break out of the loop.
if (seen.Add(hCtl) == false)
break;
GetClassName(hCtl, sb, sb.Capacity);
SendMessage(hCtl, WM_GETTEXT, sb.Capacity, sb)
//Close the dialog by sending WM_CLOSE to the window
SendMessage(hWnd, WM_CLOSE, IntPtr.Zero, IntPtr.Zero);
}
//Snip...
}
return true;
}
//Snip...
// P/Invoke declarations
const int WM_CLOSE = 0x0010;
private delegate bool EnumThreadWndProc(IntPtr hWnd, IntPtr lp);
[DllImport("user32.dll")]
private static extern bool EnumThreadWindows(int tid, EnumThreadWndProc callback, IntPtr lp);
[DllImport("user32.dll")]
private static extern int GetClassName(IntPtr hWnd, StringBuilder buffer, int buflen);
[DllImport("user32.dll")]
private static extern IntPtr SendMessage(IntPtr hWnd, int msg, IntPtr wp, IntPtr lp);
[DllImport("kernel32.dll")]
private static extern int GetCurrentThreadId();
Я думал, что, возможно, я прервал диалог, прежде чем он добавит текст к нему (он еще не полностью окрашен, когда я разбиваю код выше). Однако, ставя Application.DoEvents
внутри StartWindowListener до того, как он запустится, перечисление позволяет полностью рисовать диалоговое окно, но я все равно получаю те же результаты, что и я, с указанным выше кодом.
Выполнение Ctrl-C работает корректно в диалоговом окне, поэтому я мог бы использовать это в крайнем случае, но, будучи тем, что я должен повторять этот 9923 раз, я хотел бы избежать использования этого программного обеспечения.
Есть ли какие-либо другие методы, которые я могу попытаться получить в текстовом поле?