function MessageDLG

function MessageDlg(Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;

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

Параметры:

Msg - текст сообщения или вопроса, выводимого в диалоговом окне

DlgType - тип диалогового окна. Для задания типа диалогового окна предусмотрен набор констант:

•	mtWarning - предупреждение

•	mtError - ошибка

•	mtInformation - информация

•	mtConfirmation - запрос подтверждения

С технической точки зрения тип диалогового окна определяет заголовок окна и отображаемую в окне иконку.

Buttons - код, определяющий, какой набор кнопок необходимо отобразить в диалоговом окне. Для задания набора кнопок предусмотрен набор констант:

•	mbOk - "ОК"

•	mbCancel - "Отмена"

•	mbYes - "Да"

•	mbNo - "Нет"

•	mbAbort - "Прервать",

•	mbRetry - "Повторить",

•	mbIgnore - "Игнорировать"

•	Если требуется отобразить несколько кнопок, то код набора кнопок получается суммированием констант (например, mbYes+mbNo).

HelpCtx - код раздела справочной системы, в пользовательских скриптах должен быть равен нулю

Функция возвращает код нажатой кнопки:

•	mbOk - код 1

•	mbCancel - код 2

•	mbYes - код 6

•	mbNo - код 7

•	mbAbort - код 3,

•	mbRetry - код 4

•	mbIgnore - код 5

Примеры:

var

Res : integer;

begin

Res := MessageDLG('Выполнить операцию ?', mtConfirmation, mbYes+mbNo, 0);

AddToLog('Код результата = ' + Inttostr(Res));

end.

Пример анализа кода:

var

FileName : string;

begin

FileName := 'c:\trojan.exe';

if MessageDLG('Удалить файл "'+FileName+'" ?', mtConfirmation, mbYes+mbNo, 0) = 6 then

DeleteFile(FileName);

end.