|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#6
|
||||
|
||||
Код:
program Project1; {$APPTYPE CONSOLE} uses Windows, Messages, SysUtils; function GetConsoleWindow(): HWND; stdcall; external 'Kernel32.dll'; begin if MessageBox(GetConsoleWindow, 'Vista?', 'Квадратное уравнение', MB_YESNO or MB_ICONQUESTION)=IDYES then begin Writeln('Vista'); end else begin Writeln('!Vista'); end; Readln; end. Пишу программы за еду. __________________ Последний раз редактировалось NumLock, 18.09.2012 в 08:51. |