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

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

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

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

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

←   Апрель 2002   →
 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
Автор
Сергей

Статистика

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

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


Информационный Канал Subscribe.Ru - www.lycos.ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHI.mastak.ru

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

Обновился дайджест по FAQ. Скачать можно здесь
Вышел очередной дайджест форумов. Скачать можно здесь
Кое-что из нашей кладовки   |x|
  • Хранение и изменение ресурсов в PE-файлах Vovchik damageinc@sbor.ru   (28.04.02 13:10)
    Пример загрузки и сохранения текстового файла в файлах PE формата.
    »»» Скачать: исходные тексты (4кб)
  • Служба для запуска с правами "SYSTEM" / для NT, Win2K Алексей Петров AKPetrov@pisem.net   (04.01.02 09:16)
    Интерактивная служба, которая выводит в Tray иконку и по щелчку на ней позволяет запустить Cmd или TaskManager с правами "SYSTEM", причем даже в том случаи, когда активный пользователь вообще гость :)
    »»» Скачать: исходные тексты (181кб)
Лучшее из нашего FAQ   |x|
Как можно проверить, запущена программа с локального диска или с сетевого окружения, то есть с сети.
Нужно сделать проверку, если программу запустили из сети, то выдать соответствующее сообщение и закрыть ее.

Вот пример:

var DriveType:TDriveType;
    DriveChar:string;
begin
 DriveChar:=ExtractFileDrive(ParamStr(0));
 DriveType:=TDriveType(GetDriveType(PChar(DriveChar+'\')));
 Case driveType of
    dtFixed : ShowMessage('Fixed '+DriveChar+'\');
    dtNetWork :ShowMessage('NetWork '+DriveChar+'\');
    end;
end;

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

Советы по программированию в Дельфи

1) Сохранение несколько объектов, обладающих методом SaveToStream, в один поток

uses ... jpeg;

procedure TForm1.SaveClick(Sender: TObject);
var
 j1,j2:TJpegImage;
 fs: TFileStream;
 ms: TMemoryStream;
 size: Integer;
begin
j1:= TJpegImage.Create;
j2:= TJpegImage.Create;
j1.LoadFromFile('e:\5.jpg');
j2.LoadFromFile('e:\4.jpg');
ms:= TMemoryStream.Create;
fs:= TFileStream.Create('e:\jpgs.dat',fmCreate);

j1.SaveToStream(ms);
ms.Position := 0;
size := ms.Size;
fs.WriteBuffer( size, Sizeof(size));
fs.CopyFrom(ms, size );
ms.Clear;

j2.SaveToStream(ms);
ms.position := 0;
size := ms.Size;
fs.WriteBuffer( size, Sizeof(size));
fs.CopyFrom(ms, size );

ms.Free;
fs.Free;
j1.Free;
j2.Free;
end;

procedure TForm1.LoadClick(Sender: TObject);
var
 j1,j2:TJpegImage;
 fs: TFileStream;
 ms: TMemoryStream;
 size: Integer;
begin
j1:= TJpegImage.Create;
j2:= TJpegImage.Create;
ms:= TMemoryStream.Create;
fs:= TFileStream.Create('e:\jpgs.dat',fmOpenRead);

fs.ReadBuffer( size, sizeof(integer));
ms.CopyFrom(fs, size );
ms.Position := 0;
j1.LoadFromStream(ms);
Image1.Picture.Assign(j1);

ms.Clear;
fs.ReadBuffer( size, sizeof(integer));
ms.CopyFrom(fs, size );
ms.Position := 0;
j2.LoadFromStream(ms);
Image2.Picture.Assign(j2);

ms.Free;
fs.Free;
j1.Free;
j2.Free;
end;

Автор: Б. Новгородов (MBo)

Обсуждается в конференциях   |x|
У нас большой выбор статей   |x|
Hooks - аспекты реализации
Что же происходит в системе когда мы "ставим" ловушку и что это вообще такое - ловушка ?
Ловушка (hook) - это механизм Windows, позволяющий перехватывать события, предназначенные некоторому приложению, до того как эти события до этого приложения дойдут.
Функции-фильтры - это функции, получающие уведомления о произошедшем событии от ловушки.
В зависимости от типа ловушки функции-фильтры могут изменять события, отменять их или просто реагировать на них...
Новинки книжного рынка   |x|
Shareware : профессиональная разработка и продвижение программ
Рассматриваются особенности создания условно-бесплатных программ, приводятся рекомендации по разработке интерфейса и оформлению документации, обсуждаются теоретические и практические вопросы проектирования, рекламы, маркетинга и технической поддержки создаваемого программного продукта. Книга содержит примеры удачной разработки и реализации программ из мировой и российской практики. Множество иллюстраций дает возможность более наглядно представить объем и качество работы, необходимой для создания программ на профессиональном уровне.
Автор: Жарков С.
Другие сайты о DELPHI   |x|
PROGRAMMIST.info - Портал программиста
Сайт содержит материалы по программированию. Затронуты вопросы web-программирования, работы с СУБД (mySQL, IB, Access) и общие вопросы прикладного программирования (Delphi, Pascal, C, Asm. VB)
» Оценка сайта: 5
Опрос населения :)
Какой сайт по Delphi лучший?
»»» Королевство Дельфи
»»» Этот сайт
»»» Дельфи. Вокруг да около
»»» Другой
»»» Чем больше, тем лучше!
Журнал "RSDN Magazine"  |x|

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

Для души

Хокку дня
Все тот же бренный мир,
Пьянея, плачу
В сумерках осенних.

Афоризмы
Перед тем, как начать поиск, спроси себя: действительно ли ты хочешь это найти и, найдя это, будешь ли знать, что с этим делать?....

Фраза дня
Когда обои клеишь, главное, чтобы пузырей не было. Вот взяли мы как-то 2 пузыря...

Дурацкие законы (информация предоставлена сайтом kurilka.com)
В Оклахоме (США) вам грозит тюрьма, если вы будете дразнить собак. В этом штате также женщинам запрещается самим стричь себе волосы, если они не имеют лицензии парикмахера.
В городе Найала в Неваде (США) в барах и ресторанах посетители не имеют права угощать напитками более, чем трех человек в день.

И на закуску коротенький анекдот
- Дорогая, я опять не могу найти свой галстук! Куда ты снова шкаф переставила?

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

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

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