Допуск ценных бумаг на биржу

... изменяется десять раз каждые 0,2 секунды (листинг 1.2)....Листинг 1.2.Десятикратная инверсия заголовка окнаprocedure TForm1 ... окна в течение заданного промежутка времени (листинг 1.3)....Листинг 1.3.Инверсия заголовка окна в течение определенного ...

Первая из этих функций позволяет один раз изменить состояние заголовка окна и кнопки на Панели задач (листинг 1.1)....Листинг 1.1.Простая инверсия заголовка окнаprocedure TForm1.cmbFlashOnceClick(Sender: TObject);beginFlashWindow(Handle, True);end;Как видите, функция принимает дескриптор нужного окна и параметр (тип BOOL) инверсии.

Функция возвращает нулевое значение, если не удалось сделать окно активным.В приведенном ниже примере окно активизируется при каждом срабатывании таймера (листинг 1.4)....Листинг 1.4.Активизация окнаprocedure TForm1.Timer1Timer(Sender: TObject);beginSetForegroundWindow(Handle);end;В операционных системах старше Windows 95 и Windows NT 4.0 введен ряд ограничений на действие функции SetForegroundWindow.

Дескриптор главного окна приложения можно получить при помощи свойства Handle объекта Application.Главное окно приложения делается невидимым (ему задается нулевая высота и ширина), чтобы создавалась иллюзия его отсутствия и можно было считать, что главной является именно создаваемая первой форма.Для подтверждения вышесказанного можно отобразить главное окно приложения, используя следующий код (листинг 1.5)....Листинг 1.5.

Недостаток этот можно легко устранить, например, следующим образом (листинг 1.6)....Листинг 1.6.Мигание кнопки приложения на Панели задачprocedure TForm1.Button2Click(Sender: TObject);varfl: FLASHWINFO;beginfl.cbSize:= SizeOf(fl);fl.hwnd:= Application.Handle;fl.dwFlags:= FLASHW_ALL;fl.uCount:= 10;fl.dwTimeout:= 200;FlashWindowEx(fl);end;В данном случае будет одновременно инвертироваться заголовок окна приложения.

Наконец, чтобы добиться одновременного мигания кнопки приложения на Панели задач и заголовка формы (произвольной, а не только главной), можно применить листинг 1.7....Листинг 1.7.Мигание кнопки приложения и инверсия заголовка формыprocedure TForm1.Button3Click(Sender: TObject);varfl: FLASHWINFO;begin//Мигание кнопкиfl.cbSize:= SizeOf(fl);fl.hwnd:= Application.Handle;fl.dwFlags:= FLASHW_TRAY;fl.uCount:= 10;fl.dwTimeout:= 200;FlashWindowEx(fl);//Инверсия заголовкаfl.cbSize:= SizeOf(fl);fl.hwnd:= Handle;fl.dwFlags:= FLASHW_CAPTION;fl.uCount:= 10;fl.dwTimeout:= 200;FlashWindowEx(fl);end;В данном случае инвертируется заголовок формы Forml.

Среди наиболее важных событий в этой области следует отметить вступление России в Международную организацию комиссий по ценным бумагам (IOSCO), получение одновременно кредитного рейтинга Мооdy's, Standard&Роог's и IВСА, успешные выпуски "еврооблигаций", публикация индекса IFC Global Russia, выпуски ADR/GDR рядом компаний, включение одной из российских компаний в листинг Нью-Йоркской фондовой биржи, признание американской SЕС некоторых российских банков "надежным иностранным депозитарием" и др.

Первые ее признаки обнаружились совершенно неожиданно в отделе Уточненного Трудового Стажа первооткрывателей Гномолии (или Земли-114) за 245 дней до праздника, один из сотрудников этого отдела, некто Макс Улыбаха, просматривая ночной листинг самых важных новостей Подготовки Празднования, вдруг обратил внимание на один любопытный нюанс.

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