WinApi
Код:
Program MessageBoxDemo;
const
MB_OK = 0;
MB_OKCANCEL = 1;
MB_STOPRETRYIGNORE = 2;
MB_YESNOCANCEL = 3;
MB_YESNO = 4;
MB_RETRYCANCEL = 5;
IDOK = 1;
IDCANCEL = 2;
IDSTOP = 3;
IDRETRY = 4;
IDIGNORE = 5;
IDYES = 6;
IDNO = 7;
MB_ICONERROR = 16;
MB_ICONQUESTION = 32;
MB_ICONWARNING = 48;
MB_ICONINFORMATION = 64;
var
DialogResult: LongInt;
function MessageBox(HWND: LongInt; aText: PChar; Caption: PChar; uType: Word): Longint; external 'MessageBoxA@user32.dll stdcall';
begin
DialogResult:=MessageBox(0, 'Что выбираем?', 'Вопрос', MB_ICONQUESTION + MB_YESNOCANCEL);
Case DialogResult of
IDYES: MessageBox(0, 'Вы нажали "Да"', 'Результат', MB_ICONINFORMATION);
IDNO: MessageBox(0, 'Вы нажали "Нет"', 'Результат', MB_ICONINFORMATION);
IDCANCEL: MessageBox(0, 'Вы нажали "Отмена"', 'Результат', MB_ICONINFORMATION);
end;
end.