Выкинуть MsgBox, не "замораживая" при этом программу

[Rody66]

Собственно цель - создать независимый msgbox, который никак не будет влиять на работу программы. То есть при вызове мсгбокса, чтобы программа не останавливалась, а продолжала дальше свою работу. Пробовал кидать месагу в новом потоке, но все счетчики на форме точно так же останавливаются, а в скомпилированном виде, вообще ошибка "память не может быть..", ну в общем как всегда трабла с этими потоками. Так вот, у меня есть парочка вариантов, хоть и не слишком оптимальны, но, тем не менее, озвучу:
Первый вариант запускать себя саму же (программу) с определенными параметрами. Например soft.exe /title "Заголовок собщения" /text "Текст сообщения" /type 48
В инициализации формы сделать проверку на наличие параметров, и если оные имеются, хайдить форму, и каким то образом провести парсинг, загнать все параметры в переменные, после чего кинуть мессагу с этими переменными.
Так же имеется несколько более извращенный способ - это создать маленькую программу, функция которой - только выводить мессагу, сделать подгрузку ресурсов и подгружать тайтл, текст и тип сообщения, после чего точно так же загонять все в переменные и выводить месагу. Эту программу кинуть в ресурсы основной программы, которая при необходимости вывести независимую месагу, будет загружать ресурс, задавать необходимые данные, писать получившееся в msg.exe и запускать.
Но имхо, все это как то мудрено. Может быть есть способ проще? Спасибо.

[Хакер]

Обоснуй, зачем нужен немодальный MsgBox.

[Qwertiy]

Просто изпользовать WinApi с нулевым дескриптором:

Код: Выделить всё

Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long

Private Sub Command1_Click()
  MessageBox 0, "Текст сообщения", "Заголовок сообщения", vbYesNoCancel Or vbDefaultButton2
End Sub

Private Sub Timer1_Timer()
  Form1.Caption = Format(Now(), "dd.MM.yyyy HH:mm:ss")
End Sub

Недостаток этого кода в неюникодном варианте MessageBox'а.

[Хакер]

Qwertiy, ты чувствуешь разницу между немодальным и неблокирующем MsgBox-ом?

[Rody66]

Qwertiy, все гениально просто, большое спасибо.

[Хакер]

А ты, Rody66, осознаёшь, что предложенный вариант не отвечает требованиям, описанным тобою в первом сообщении?

[Rody66]

Хакер, в таком случае, я извиняюсь, что ввел тебя тем самым в заблуждение, но имел ввиду я как раз то, что предложил Qwertiy, глупо было не подумать об api, ведь там имеется альтернатива большинству дефолтных функций вб.
ps Кстати, с фтп мы так и не закончили, по поводу колбеков то, кроме тебя помочь некому.

[Qwertiy]

Qwertiy, ты чувствуешь разницу между немодальным и неблокирующем MsgBox-ом?

После этой фразы - да. Но вот из предложенных в первом же сообщении альтернативных способов очевидно, что это по крайней мере годится, а то и является тем, что требуется, как кстати и оказалось.

Я вообще редко слежу за нюансами формулировок, а общий смысл я понял правильно.

UPDATE:

Обоснуй, зачем нужен немодальный MsgBox.

Собственно цель - создать независимый msgbox, который никак не будет влиять на работу программы.

[Rody66]

Обоснуй, зачем нужен немодальный MsgBox.

Дак нечего обосновывать, просто так вышло, что таким образом делать удобнее, вот и все. Вопрос исчерпан, всем спасибо.
UP:

Собственно цель - создать независимый msgbox, который никак не будет влиять на работу программы.

Все верно, вариант с апи почти никак на работу программы и не влияет, все нужные таймеры работают.

[Хакер]

Давайте так.
Что нужно.
а) Чтобы функция вернулся управление не тогда, когда юзер закроет бокс, а сразу же.
б) Чтобы окно бокса было не модально основному окну.
в) Просто чтобы таймеры работали.

ps Кстати, с фтп мы так и не закончили, по поводу колбеков то, кроме тебя помочь некому

Последний ответ в теме — за мной. Никаких вопросов от тебя больше не было.

[Rody66]

Давайте так.
Что нужно.
а) Чтобы функция вернулся управление не тогда, когда юзер закроет бокс, а сразу же.
б) Чтобы окно бокса было не модально основному окну.
в) Просто чтобы таймеры работали.

Признаю ошибку в формулировке с моей стороны. В данном случае, мне был необходим вариант в. Теперь же появилась еще одна задача, которую желательно выполнить - это по всей видимости как раз вариант а. То есть, чтобы код не останавливался на мсгбоксе (как это происходит с апи в том числе), в общем то неплохой вариант, перед выводом месаги, запустить таймер с интервалом 1, который при завершении своих операций будет выключаться, но как то это не эстетично Создавать свой мсгбокс из формы тоже не хочется. Тут уже как раз твой немодальный мсг потребуется, по всей видимости.

[Хакер]

Для «в» нужен SetTimer.
«а» возможен, но бесполезен, потому что потребность в чём-то таком может быть вызвана только неправильной архитектурой.
«б» идеологически вреден и за его использование нужно расстреливать.

[Rody66]

Кстати если перенести мессагу в таймер, и из кода этот таймер включить, то мсг станет полностью независимой и код продолжит выполняться дальше, как будто ничего не произошло. В общем, вопрос окончательно решен, всем спасибо.

[arthur2]

Недостаток этого кода в неюникодном варианте MessageBox'а.

А что мешает в объявлении апишки вместо А написать W? (плюс некоторые несложные тонкости, чтобы избежать неявной конвертации)

[Qwertiy]

А что мешает в объявлении апишки вместо А написать W? (плюс некоторые несложные тонкости, чтобы избежать неявной конвертации)

Лично я эти тонкости не помню. В .NET достаточно поставить слово Unicode в Declare, а в VB6?

[arthur2]

А здесь достаточно вместо А написать W. Строки нужно объявить byval as long и передавать не сами строки, а указатели на них - strptr(s) Ещё лучше - объявить нужную W-функцию в тлб, тогда не нужно будет ухищрений - можо будет передавать саму строку. Поищи статью тёмыча - там есть подробные объяснения про уникодные строки в апи.