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

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

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

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

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

←   Февраль 2002   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
10.02.2002
19:26:05
20:13:27
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Автор
Сергей

Статистика

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

Мастера DELPHI. Новости мира компонент, FAQ, статьи...


Служба Рассылок Subscribe.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHI.mastak.ru

Выпуск от 13.02.02 09:04

Новые компоненты   |x|
  • MiTeC System Information Component v.7.0 (1891kb) (12.02.02 17:47)
    Компонент предоставляет детальную информацию о системе:
    -зарегистрированная организация,пользователь;
    -часовой пояс;
    -имя машины, IP адрес, MAC адрес;
    -дата и время последней загрузки системы;
    -тип процессора, количество, ID, частота;
    -версия ОС, платформа, имя пользователя, серийный номер;
    -тип графического адаптера, объем видеопамяти, разрешение экрана, глубина цвета;
    -тип звуковой карты;
    -принтеры;
    -мониторы;
    -информация о памяти, минимальные и максимальные адреса приложений;
    -информация о дисках, файловой системе;
    -данные о BIOS'е: дата, производитель, доп. информация;
    -версия и дата видеобиоса;
    -сетевой адаптер, протоколы, клиенты, информация о Winsock;
    -версия BDE, ODBC;
    -информация о DirectX;
    -список запущеных процессов;
    -список установленых программ;
    -автозагружаемые программы;
    Компонент отображает загрузку процессора. Включен апплет для панели управления.
    Новая версия компоненты
    Компонента из раздела: System: System Info
    Источник: www.torry.net   Автор: Michal Mutl
    -= · VCL · =- [Перевел: Сергей Касаткин]
  • TIniList v.1.00 (20kb) (12.02.02 09:19)
    Компонент подобен TIniFile, но в отличии от него кэширует все значения в памяти, не обращаясь каждый раз к файлу. Это позволяет получать быстрый доступ к значению параметров методами, подобными ReadInteger, WriteInteger. При этом методы SaveToFile и LoadFromFile реально записывают и считывают значения в/из файла.

    С исходными текстами
    Компонента из раздела: System: Registry
    Источник: www.torry.net   Автор: Simon Reinhardt http://www.picsoft.de
    -= · VCL · Samples · =- [Перевел: Сергей Касаткин]
  • Для уменьшения объема писем здесь публикуется не весь список новых компонент, потому заглядывайте и на сайт!
Кое-что из нашей кладовки   |x|
  • ScanDrive Dimos surind@yandex.ru   (12.02.02 21:48)
    Простенький компонент поиска файлов на диске (дисках).
    Используется рекурсивный метод, не очень красиво, но работает. Использует под информацию о каждом файле выделенную область памяти, не забудте освободить ее в конце программы. ;-)
    »»» Скачать: исходные тексты (2кб) демонстрационный EXE файл (314кб)
  • Отключение от интернета Ghost.   (12.02.02 17:49)
    Постоянно в форуме задается вопрос о возможности отключения от интерента. Здесь нахдится исходник призваный разрывать все существующие соединения (естественно может действовать не во всех случаях)
    »»» Скачать: исходные тексты (22кб) демонстрационный EXE файл (196кб)
Лучшее из нашего FAQ   |x|
Копирование экрана 

unit ScrnCap;
interface
uses WinTypes, WinProcs, Forms, Classes, Graphics, Controls;

 { Копирует прямоугольную область экрана }
function CaptureScreenRect(ARect : TRect) : TBitmap;
 { Копирование всего экрана }
function CaptureScreen : TBitmap;
 { Копирование клиентской области формы или элемента }
function CaptureClientImage(Control : TControl) : TBitmap;
 { Копирование всей формы элемента }
function CaptureControlImage(Control : TControl) : TBitmap;

{===============================================================}
implementation
function GetSystemPalette : HPalette;
var
 PaletteSize  : integer;
 LogSize      : integer;
 LogPalette   : PLogPalette;
 DC           : HDC;
 Focus        : HWND;
begin
 result:=0;
 Focus:=GetFocus;
 DC:=GetDC(Focus);

try
   PaletteSize:=GetDeviceCaps(DC, SIZEPALETTE);
   LogSize:=SizeOf(TLogPalette)+(PaletteSize-1)*SizeOf(TPaletteEntry);
   GetMem(LogPalette, LogSize);
   try
     with LogPalette^ do
     begin
       palVersion:=$0300;
       palNumEntries:=PaletteSize;
       GetSystemPaletteEntries(DC, 0, PaletteSize, palPalEntry);
     end;
     result:=CreatePalette(LogPalette^);
   finally
     FreeMem(LogPalette, LogSize);
   end;
 finally
   ReleaseDC(Focus, DC);
 end;
end;


function CaptureScreenRect(ARect : TRect) : TBitmap;
var
 ScreenDC : HDC;
begin
 Result:=TBitmap.Create;
 with result, ARect do begin
  Width:=Right-Left;
  Height:=Bottom-Top;
  ScreenDC:=GetDC(0);
  try
    BitBlt(Canvas.Handle, 0,0,Width,Height,ScreenDC,
Left, Top, SRCCOPY    );
  finally
    ReleaseDC(0, ScreenDC);
  end;
  Palette:=GetSystemPalette;
 end;
end;

function CaptureScreen : TBitmap;
begin
!
 with Screen do
  Result:=CaptureScreenRect(Rect(0,0,Width,Height));
end;

function CaptureClientImage(Control : TControl) : TBitmap;
begin
 with Control, Control.ClientOrigin do
  result:=CaptureScreenRect(Bounds(X,Y,ClientWidth,ClientHeight));
end;

function CaptureControlImage(Control : TControl) : TBitmap;
begin
 with Control do
  if Parent=Nil then
    result:=CaptureScreenRect(Bounds(Left,Top,Width,Height))
  else
   with Parent.ClientToScreen(Point(Left, Top)) do
    result:=CaptureScreenRect(Bounds(X,Y,Width,Height));
end;
end.


»»» Прислать свои комментарии

Обсуждается в конференциях   |x|
  • Обновление поля PATH в иерархической таблице
    Дано: 1. таблица CATALOG1, поля ID,PARENT,CAPTION,PATH. 2. PARENT ссылается на ID этой же таблицы. 3. в PATH хранится ...
  • СУПЕР СРОЧНО!!!
    Я прочитал в FAQ'е рецепт, как сделать форму прозрачной - всё, вроде бы, хорошо, но если в Image поместить изображение ...
  • RichEdit
    Помогите, пожалуйста, разрешить следующую проблему: Вот у меня имеются две формы. На первой форме frm_main имеются ...
  • вопрос спецам по TMemo
    Подскажите пожалуйста, как получить координаты в пикселях положения курсора в TMemo?
  • пароль на файл в win
    как через delphi поставить пароль на файл в windows?
  • Работа с Win98
    Можно ли из программы целенаправленно вызвать ошибку Windows "Программа вызвала недопустимую операцию и будет закрыта"?
  • Конвертация времени секунды->дата
    API Функция выдает время некоторого события в секундах (смещение относительно 0:0:0 1 ЯНваря 1970 года). Как эти ...
У нас большой выбор статей   |x|
Функции Windows API для работы с посторонними окнами
Эта статья будет посвящена функциям для работы с окнами других программ. Для работы с окнами Windows предоставляет большое количество функций, которые описаны в модуле Windows.pas, и экспортируются из Windows'овских библиотек (DLL - Dynamic Link Library). Конечно, в рамках одной статьи нельзя рассмотреть ВСЕ функции API, поэтому здесь будут рассмотрены только некоторые из них. Вот они...
Новинки книжного рынка   |x|
Delphi 5: учебный курс
В книге рассмотрены возможности системы программирования Delphi 5, описан язык программирования Object Pascal, рассмотрены визуальные компоненты системы и методы их создания. Особое внимание уделено принципам и практическим приемам создания сетевых приложений для разных архитектур и разработке программ, поддерживающих основные протоколы Интернета.Не требует специальной подготовки, может быть использована как пособие для изучающих основы программирования и сетевые технологии, а также как справочник по компонентам Delphi и пособие для самообразования.
Автор: С. Бобровский
Другие сайты о DELPHI   |x|
Всё о Delphi от Чертёнка
Исходники, документация, книги по программированию, чат для программистов, форум, большой FAQ с поиском, обучающие статьи, анекдоты, лучшие афоризмы сети!
» Оценка сайта: 5
Опрос населения :)
Образование программиста?
»»» Высшее
»»» Незаконченное высшее
»»» Среднее специальное
»»» Среднее
Журнал "RSDN Magazine"  |x|

Дорогие друзья! Мы рады представить вам новый совместный проект сайтов www.rsdn.ru, delphi.mastak.ru и www.optim.ru - профессиональный журнал для программистов RSDN Magazine.
Несомненно, ваше мнение о необходимости такого журнала, содержании рубрик и темах отдельных статей поможет сделать журнал более полезным и интересным. Высказать свое мнение, проголосовать или же подписаться вы можете на сайте. Без вашего участия, нам будет трудно сделать правильный журнал!

Для души

Хокку дня
Наша жизнь - росинка.
Пусть лишь капелька росы
Наша жизнь - и все же...

Афоризмы
Шарлатанство эксплуатирует невежество... (Ж.Сэй)

Фраза дня
Носорог плохо видит, но при его весе, это не беда.

И на закуску коротенький анекдот
- Чем юзер отличается от программиста?
- Если попросить их перезагрузить комп пользуясь только мышкой, юзер жмет на "завершение работы" в Виндовсе.
- А что сделает программист?
- Он поднимет мышку со стола и нажмет ею на Reset.

Фотоприколы.
Начните день с хорошего настроения!
http://delphi.mastak.ru/cgi-bin/prikol.pl?id=1302

На этом позвольте откланяться и пожелать вам удачного дня.
Искренне ваш, Алексей (delphi@mastak.com)

Добро пожаловать на сайт -= Мастера DELPHI =- 
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное