Отправляет email-рассылки с помощью сервиса Sendsay

ExCode.ru - программирование на высоком уровне

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Ваш интернет-бизнес" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Сентябрь 2005   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Автор
LedWorm

Статистика

1.422 подписчиков
-1 за неделю
←   Все выпуски   →

ExCode.ru - программирование на высоком уровне - выпуск 6


Информационный Канал Subscribe.Ru
ExCode.ru - программирование на высоком уровне
Выпуск №6 ( 2005.09.03 )
Здравствуйте, уважаемые подписчики!
Наконец-то нас перевели в более пристижную категорию, надеюсь, что теперь подписчиков будет больше.

Мы ждем Вас в гости к нам на сайт www.ExCode.ru

Новости копьютерного мира:
2005-08-26    В Windows Vista обнаружен очередной недостаток безопасности?
Бета-тестеры новой операционной системы от Microsoft обнаружили очередной недостаток безопасности.

2005-08-26    Лучшие программисты мира - из России
В ежегодно проводимом компанией Microsoft международном конкурсе по программированию Imagine Cup победу одержали четверо российских студентов, учащихся МГУ и Московского физико-технологического института.

2005-08-26    80% корпоративных компьютеров заражены spyware
Количество сайтов, распространяющих spyware, в прошлом году перевалило за 300 000. Похоже, spyware в скором времени имеет все шансы стать второй головной болью пользователей после вирусов.

2005-08-27    AMD вызывает Intel на дуэль двухъядерных процессоров
Следуя принципам честной и открытой конкуренции, компания AMD предложила Intel провести дуэль в реальном времени между серверами с двухъядерными процессорами x86.

2005-08-29    Новая фишка от ExCode.ru
Очередную фишку для своих посетителей реализовал ExCode.ru. Каждому зарегистрировавшемуся пользователю он подарил "Виртуальный Дневник". В котором каждый сам себе хозяин. Владелец дневника является его администратором, т.е. может удалять любые сообщения (даже оставленный админом). Регистрируйтесь, приглашайте своих друзей и общайтесь.

С вопросами обращайтесь к администратору.

2005-08-27    Полиция хочет разрешения на интернет-слежку
Канадское правительство рассмотрит этой осенью проект нового закона, согласно которому полиция и агенты безопасности должны получить более широкие полномочия в области ведения наблюдения за подозреваемыми. "Расширение полномочий" затрагивает и интернет-сферу.

2005-08-26    Google Desktop2 - менеджер рабочего стола
Компания Google представила свою панель для рабочего стола - Google Desktop2. Новый инструмент, будучи установлен на ПК обеспечит компании "присутствие" на миллионах настольных компьютеров пользователей.

2005-08-29    Милиция Белоруссии отлавливает мультипликаторов
Сторонники демократии по всему миру в очередной раз выразили возмущение действиями милиции в Белоруссии.

2005-08-29    Угроза для США приходит из Китая
Хакеры использовали несколько китайских сайтов для атаки компьютерных сетей в США. В частности среди атакованных оказалось не только Министерство Обороны, но и ряд других компьютерных сетей, включая Министерство энергетики.

2005-08-29    Panda Software представила онлайновый сервис для обнаружения spyware
Компания Panda Software, популярный производитель антивирусного программного обеспечения, анонсировала запуск сервиса, позволяющего произвести онлайновую проверку на предмет содержания spyware (шпионских программ) на компьютере.

Статья номера:

Пишем прогу мониторинга за памятью


Hi! Сегодня мы попытаемся написать программу, которая будет показывать состояние памяти компа. Для начала определим что она будет делать. Ну самое главное что нам нужно, это сотояние физической памяти и загруженность ее в %. А дальше, по своему вкусу, добавим еще состояние виртуальной и страничной памяти.

Начнем. Создай новый проект на Делфи ( File->New->Application). Теперь подумай, как тебе удобней отображать состояние памяти. Для меня лучше в Label, но можно и Edit. Ну это на твое усмотрение. Кидай на форму 7 компонентов Label (в них будет отображаться значение) и еще 7 (это будут пояснения: загруженность, всего физической, использовано физической, всего страничной, использовано страничной, всего виртуальной, использовано виртуальной). Какие не нужны, те отбрось ;) . Теперь кинь таймер (из вкладки System). Это будет наш главный элемент., поэтому поставь интервал по своему усмотрению (у меня он 400). Этот интервал будет отвечать за частоту обновления полей. Ну и для красоты брось ProgressBar ( из вкладки Win32).

Теперь приступим непосредственно к кодингу. Весь код мы будем писать в процедуру запуска таймера. А вот и код:


procedure TForm1.Timer1Timer(Sender: TObject);
var
m: TMemoryStatus;
temp: integer;
begin
m.dwLength:=sizeof(m);
GlobalMemoryStatus(m);
with m do
begin
//Загруженность памяти
label1.caption:=IntToStr (dwMemoryLoad)+' %';
// Всего физической
label2.caption:=IntToStr (dwTotalPhys)+' байт';
// Свободно физической
label3.caption:=IntToStr (dwAvailPhys)+' байт';
// Всего страничной
label4.caption:=IntToStr (dwTotalPageFile)+' байт';
// Свободно страничной
label5.caption:=IntToStr (dwAvailPageFile)+' байт';
// Всего выиртуальной
label6.caption:=IntToStr (dwTotalVirtual)+' байт';
//Свободно виртуальной
label7.caption:=IntToStr (dwAvailVirtual)+' байт';
//Загруженность на ProgressBar1
progressbar1.Max:= dwTotalPhys;
progressbar1.Position:=dwTotalPhys-dwAvailPhys;
end;
end;


Вот в принципе и все. Если ты используешь Edit, то вместо labelX.caption пиши EditX.text , где х-номер компонента. И последнее, чтобы pogressBar выглядела лучше, измени свойство Smooth равным True.

Если у тебя возникнут какие-либо вопросы, предложения, пожелания, прошу отправлять их мне по адресу: crazy_script@mail.ru

Copyright: Crazy_Script


Новые статьи на сайте ExCode.ru:
НазваниеРаздел
Пишем прогу мониторинга за памятьюDelphi/Pascal » Примеры
Теория сетевого кодинга на VBVB / VBA » Общие
Убывающий индексFAQ » Delphi » Базы данных » Индексы
Создание уникального индексаFAQ » Delphi » Базы данных » Индексы
Создание индексного файла в DelphiFAQ » Delphi » Базы данных » Индексы
Программное создание индексаFAQ » Delphi » Базы данных » Индексы
Проблема с AddIndexFAQ » Delphi » Базы данных » Индексы
Глюк AddIndexFAQ » Delphi » Базы данных » Индексы
Почему иногда неверно обновляются IndexDefs по UpdateFAQ » Delphi » Базы данных » Индексы
Как программно проиндексировать базу данныхFAQ » Delphi » Базы данных » Индексы
Как открыть проиндексированную таблицу dBase, при отсутствии файла индексаFAQ » Delphi » Базы данных » Индексы
Извлечение индекса таблицы БДFAQ » Delphi » Базы данных » Индексы
Создание поля для ввода текста на WinAPIDelphi/Pascal » WinAPI
Что я получаю от наличия ConstraintBroker FAQ » Delphi » Базы данных » Компоненты и Базы данных
Сохранение компонента полностью со всеми свойствами в БДFAQ » Delphi » Базы данных » Компоненты и Базы данных
Принцип и порядок работы с TUpdateSQL для работы с неживыми запросамиFAQ » Delphi » Базы данных » Компоненты и Базы данных
Как по имени Базы Данных получить ссылку на компоненет TDataBaseFAQ » Delphi » Базы данных » Компоненты и Базы данных
Активация компонентов доступа к данным связанных с определенным TDatabaseFAQ » Delphi » Базы данных » Компоненты и Базы данных
Абстрактный набор данныхFAQ » Delphi » Базы данных » Компоненты и Базы данных
Модуль данных для каждого MDIChildFAQ » Delphi » Базы данных » Модуль данных
Одно соединение при большом количестве модулей данныхFAQ » Delphi » Базы данных » Модуль данных
Как передать UserName и Password в удаленный модуль данныхFAQ » Delphi » Базы данных » Модуль данных
Access to table disabled because of previous error - Read failureFAQ » Delphi » Базы данных » Ошибки БД
TClientDataSet. Некорректное формирование XMLFAQ » Delphi » Базы данных » Ошибки БД
TClientDataSet. Утечка памяти при загрузке XMLFAQ » Delphi » Базы данных » Ошибки БД
TDBLookupComboBox. Реакция на нажатие ESCFAQ » Delphi » Базы данных » Ошибки БД
Как поймать свой RAISEERROR в DelphiFAQ » Delphi » Базы данных » Ошибки БД
Нарушение уникальности записиFAQ » Delphi » Базы данных » Ошибки БД
Ошибка BDE32 2104FAQ » Delphi » Базы данных » Ошибки БД
Ошибка создания дескриптора курсора FAQ » Delphi » Базы данных » Ошибки БД
Ошибка чтения потокаFAQ » Delphi » Базы данных » Ошибки БД
Перехват ошибок DBEngineFAQ » Delphi » Базы данных » Ошибки БД
При выполнении некоторых живых запросов, возвращающих единственную запись, BDE ругаетсяFAQ » Delphi » Базы данных » Ошибки БД
При обращении к memo-полю из BDE возникает ошибка Memo too largeFAQ » Delphi » Базы данных » Ошибки БД
Проблема Lock File Has Grown Too LargeFAQ » Delphi » Базы данных » Ошибки БД
Проблемы использования компонента TStoredProcFAQ » Delphi » Базы данных » Ошибки БД
Решение проблемы BDE Index out of DateFAQ » Delphi » Базы данных » Ошибки БД
Тpансляция ошибокFAQ » Delphi » Базы данных » Ошибки БД
Список ошибок BDEFAQ » Delphi » Базы данных » Ошибки БД
Функция LocateFAQ » Delphi » Базы данных » Поиск
Ускорить поиск по базе данныхFAQ » Delphi » Базы данных » Поиск
Поочередный поиск заданного значенияFAQ » Delphi » Базы данных » Поиск
Поиск фраз и записей переменной длиныFAQ » Delphi » Базы данных » Поиск
Поиск существующей записи перед тем, как она будет вставленаFAQ » Delphi » Базы данных » Поиск
Поиск по нескольким полямFAQ » Delphi » Базы данных » Поиск
Поиск значения при вводе 2FAQ » Delphi » Базы данных » Поиск
Поиск значения при вводеFAQ » Delphi » Базы данных » Поиск
Поиск записи с помощью TQuery 2FAQ » Delphi » Базы данных » Поиск
Поиск записи с помощью TQueryFAQ » Delphi » Базы данных » Поиск
Поиск записи в больших таблицахFAQ » Delphi » Базы данных » Поиск
Поиск в непроиндексированном поле таблицыFAQ » Delphi » Базы данных » Поиск
Поиск в базе данныхFAQ » Delphi » Базы данных » Поиск
Быстрый поиск в базе данныхFAQ » Delphi » Базы данных » Поиск
FindKey для нескольких полейFAQ » Delphi » Базы данных » Поиск

Новые файлы на сайте ExCode.ru:
НазваниеРазделРазмерСсылки
Многомерное представление данных
В примере показано использование Decision Cube...		Исходники » Delphi2 kb  Скачать
Анекдоты о программистах:
Сенсационное известие! Windows спасает мир! Как сообщил режиссер "День независимости": главный герой установил на компьютер инопланетян...WINDOWS-98 SE!


- Как зовут собаку Гейтса?
- Собаку Гейтса зовут БИЛЛ!!!


- Сколько нужно сотрудников службы поддержки компании MicroSoft, чтобы заменить лампочку?
- Четыре.
1й - чтобы узнать регистрационный номер лампочки.
2й - чтобы спросить: "А вы перезагрузиться пробовали?"
(поясняю: выключатель включить/выключить)
3й - чтобы спросить: "А вы пробовали ее переустановить?"
и 4й, чтобы сказать: "Это у вас что-то с железом. У нас в офисе лампочка работает отлично!"


Новый русский пришел в компьютерную фирму - надо к Инету подключится. Ему продали компьютер, модем, и.т.д... и говорят, мол, как все установите - звоните провайдеру - и все... На следующий день в фирму влавливается НР и куча головорезов:
- Где тут провайдер???
- А в чем дело? (испуганно)
- Да мы с братвой все сделали, звоним этой падле, провайдеру, а он: - шшшшш-ссс-сщ-щщщщ....


Продам дешево монитор, клавиатуру, мышку, процессор.
Звонить с 15 до 20.
Если подойдет мужской голос, сказать, что ошиблись номером.


- Это у вас струйный принтер?
- Да.
- А сколько у него струй?


Идёт геймер мимо дома.
Сверху вдруг падает кирпич.
- Тетрис! - подумал он и пошел себе дальше.


Hаpодная пpимета: Если пpогpаммист в pабочее вpемя игpает, значит - либо y него мало pаботы и большая заpплата, либо y него много pаботы и маленькая заpплата.


Плох тот Error, который не мечтает стать General'ом.


Билл Гейтс, когда стал самым богатым человеком в мире, подумал: "Hа все воля Божья. Я никогда бы не разбогател, если бы Он этого не хотел. Hадо как-то отблагодарить." Билли построил огромный храм, зажег в нем миллион свечей, вошел и молится: - Господи, спасибо Тебе за все. Hе сочти за дерзость, Господи, но я хочу выразить Тебе свою признательность и приглашаю Тебя на игру в гольф в это воскресенье. Увидел Иисус это фейерверк, услышал молитву, понял, что уважают, и решил прийти. Играю они, значит, в гольф. Иисус бьет по мячу, мяч летит и зависает прямо над центром лунки. Иисус бьет по второму - тот летит и зависает прямо над центром лунки. Иисус бьет по третьему - тоже самое. Он оборачивается к Гейтсу и говорит: - Билли, а другого бета-тестера для своих глючных мячей ты подыскать не мог? - Как баги размножаются? - Hу программисты с ними по ночам тр@хаются. Компьютер - это электронное устройство, которое не заменит человека до тех пор, пока не научится смеяться над шутками босса и сваливать свои собственные ошибки на соседний компьютер.


- В чем заключается многозадачность Windows?
- Она может выполнять несколько ошибок одновременно.


- Исправил ли ты ошибку в программе?
- В разумных пределах...
Послесловие:
Предлагаем обменяться ссылками с сайтами компьютерной тематики.

Разместите нашу ссылку у себя на сайте и пришлите письмо с адресом страницы на которой размещена наша ссылка и кодом своей ссылки. После проверки модератором мы добавим Ваш код на свой сайт.

Код нашей ссылки: <a href="http://www.excode.ru" >ExCode.ru - программирование на высоком уровне: программы, статьи, исходники, компоненты</a>

Код нашего банера (88x31): <a href=http://www.excode.ru/><img src=http://www.excode.ru/excode.gif width=88 height=31 border=0 alt="ExCode.ru - программирование на высоком уровне: программы, статьи, исходники, компоненты"></a>

Спасибо за внимание!
Ведущий рассылки: LedWorm
ExCode.ru 2005
Subscribe.Ru
Поддержка подписчиков
Другие рассылки этой тематики
Другие рассылки этого автора 		Подписан адрес:
Код этой рассылки: comp.soft.prog.excode 		Отписаться
Вспомнить пароль
В избранное