Новые книги

В этой книге представлены 50 реальных, законных и быстрых способов заработать, имея под рукой только компьютер и доступ в Интернет. Вам не понадобятся вложения и специальные знания. Все советы даны в сжатом виде – только самое ценное, что действительно работает, без «воды».

По каждому из способов дана подробная пошаговая инструкция: что и как делать, в какой последовательности.

Вы сможете заработать деньги буквально в течение нескольких дней, вам надо лишь взять и сделать то, о чем написано в этой книге.
Не так давно от столь популярного в наше время прилагательного «креативный»1 образовалось новое существительное. Если вы — один из нас, миллионов людей, зарабатывающих на жизнь своим умом, вас можно смело назвать представителем «креативного класса», или попросту — креативщиком. Каждый день вы решаете проблемы, предлагаете нововведения, разрабатываете системы, создаете дизайнерские решения, пишете, занимаетесь стратегическим планированием и работаете головой. Именно благодаря вам рождаются новые концепции и формируются целые рабочие системы, закладывающие основу будущего экономического роста, — создается принципиально новый продукт, которого не было и в помине, пока на сцену не вышли вы.

Может быть, вы вовсе и не собирались становиться творческой личностью. Более того, возможно, вы даже содрогаетесь всякий раз, когда вас называют «креативным». И это вполне понятно, ведь ярлык «креативщик» обычно вызывает в воображении этакого рекламного гуру из Сохо2, мельтешащего туда-сюда в своих фирменных джинсах за 500 долларов. Скорее всего, вам приятнее называть себя стратегом или менеджером, что звучит более определенно, более реально. Называйте себя как пожелаете, но если вы отвечаете за решение проблем, разработку стратегий или напряженно трудитесь над генерированием новых идей, я буду называть вас креативщиком, даже если выходит, что вы стали им случайно.

Вопрос и Ответ 43

Вопросы и Ответы


      43. Как в приложении узнать версии Windows и DOS?

      Для этого, можно воспользоваться следующей функцией:

      function GetVersion: LongInt;

      она возвращает в старшем слове версию DOS, а в младшем - версию Windows.

      Пример:

      ............

      procedure TForm1.FormCreate(Sender: TObject);
      VAR

        WinV: Word;
        DosV: Word;

      begin

        WinV := GetVersion AND $0000FFFF;
        DosV := GetVersion SHR 16;
        Label1.Caption := IntToStr(Hi(DosV))+'.'+IntToStr(Lo(DosV));
        Label2.Caption := IntToStr(Lo(WinV))+'.'+IntToStr(Hi(WinV));

      end;

      ............


...предыдущая страница следующая...
оглавление



"Вопрос и Ответ 43"
Copyright © "В помощь Веб-Мастеру" (Alexander D. Belyaev) 2005-2024 .
При перепечатке любого материала видимая ссылка на источник "В помощь Веб-Мастеру" и все имена, ссылки авторов обязательны!
Время генерации страницы: 0.012