Добавил:
f24
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Архив1 / КУРСОВОЙ ПРОЭКТ ШЕВЧЕНКО / КУРСОВОЙ ПРОЭКТ ШЕВЧЕНКО / Курсовой проэкт Шевченко / Текстовый документ
.txt r:=SystemMessageBox(WindowHandle; "Вы действительно хотите выйти?"; " "; 564)
-- 6=Yes, 7=No
if r=6 then
Quit(0)
else if r=7 then
GoTo(IconID@"Navigate")
end if
-- 6=Yes, 7=No
if r=6 then
Quit(0)
else if r=7 then
GoTo(IconID@"Navigate")
end if
Соседние файлы в папке Курсовой проэкт Шевченко