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

Рассылка сайта Delphi coding

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

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

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

←   Ноябрь 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
Автор
NoilTeam

Статистика

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

Рассылка сайта Delphi coding Рассылка сайта Delphi coding


Информационный Канал Subscribe.Ru

Рассылка сайта Delphi Coding

Выпуск от 10 Ноября 2005 года. Noil.pri.ee

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

На сайте Delphi Coding собрано большое количество статей, книг и различной компьютерной документации. В рассылке вы сможете увидеть последнии поступления на сайте, а также более подробно ознакомиться с некоторыми материалами.

Желаем Вам приятного чтения.

Архивы статей по различным тематикам Delphi

Коллекции статей

Коллекция статей № 1Скачать (Статей: 20)
Коллекция статей № 2Скачать (Статей: 20)
Коллекция статей № 3Скачать (Статей: 20)
Коллекция статей № 4Скачать (Статей: 20)

Последнии файлы

Разработка баз данных в категории Электронные книги

Разработка приложений баз данных является одной из наиболее востребованных возможностей среды программирования Delphi. Эта среда программирования предоставляет разработчику поистине великолепный набор простых в использовании инструментов, позволяющих быстро разрабатывать сложные проекты. В этой книге подробно рассматриваются все наиболее распространенные серверы баз данных и приводятся примеры взаимодействия с каждым из них. Также уделено внимание вопросам проектирования эффективных баз данных, что позволит читателю, не обладающему необходимым опытом, незамедлительно приступить к работе. Книга в первую очередь ориентирована на начинающих программистов, работающих с Delphi, и на тех, кто хочет углубить свои знания в сфере разработки баз данных.

Автор: Сорокин А.В.
Формат: .djvu

Подробнее... Скачать

CardTable v.1.86 в категории Создание игр

CardTable это свободно распространяемый Delphi компонент, который облегчает создание карточных игр. Поддерживает плавное перемещение и опцию drag and drop. Также вы можете использовать несколько наборов карт.

Полная функциональность.
Исходный код.

Поддерживаемые версии: D5 D6 D7

Автор: David Mayne

Подробнее... Скачать

Библия для программиста в среде Dtlphi (Библия Delphi) в категории Электронные книги

Эта книга посвящена популярному в нашей стране и перспективному во всём мире языку программирования Delphi. Она направлена на всех программистов,
от начинающего, до профессионала. В любом случае, я советую всем прочитать её полностью. Как показывает практика, большинство людей научились программированию по книгам, но ни одна из книг, которые я видел, не объясняет принципиальных основ работы Windows и компьютера в целом. Без понимания этих вещей не возможно написать эффективный код.

Автор: Hprrific aka Фленов Михаил
Формат: .doc>

Подробнее... Скачать

Windows Messages and GlobalAtom demo в категории Система

Этот пример показывает как одно приложение (AP_1) может запустить другое (AP_2) и послать ему некоторые параметры. Также Вы не сможете запустить приложение AP_2 без AP_1, и если AP_2 уже выполняется, и Вы попробуете запустить AP_2 ещё раз, то окно AP_2 станет активным, но запуска второй копии приложения не произойдёт.

Полная функциональность.
Исходный код.

Поддерживаемые версии: В2 D3 D4

Автор: Alexey Novosselov

Подробнее... Скачать

System Investigation 2 v.2.3.1 в категории Система

Получает достаточно много информации об окружении Windows.

Полная функциональность.
Исходный код.

Поддерживаемые версии: D3 D4 D5

Автор: Riccardo Pareschi

Подробнее... Скачать

Registry Date/Time Demo v.1.0 в категории Система

Вы знаете, что при каждом создании или модификации каждого ключа в Реестре сохраняется дата и время этих изменений? Программа Registry Date/Time Demo была написана для того, что показать эту возможность, а также продемонстрировать, как одна программа может управлять другой посредством сообщений Windows.

Полная функциональность.
Исходный код.

Поддерживаемые версии: D5 D6

Автор: Object Vision Associates, Inc

Подробнее... Скачать

FreeDB reader v.1.1 в категории Pабота с Internet

Этот компонент позволит твоему приложению получить информацию о audioCD диске с бесплатных баз данных (таких как freedb.freedb.org). Пример приложения включён. Для того чтобы использовать у Вас должны быть установлены компоненты Indy.

В версии 1.1

  • Исправлены баги
  • Добавлена возможность получения года и стиля произведения.
Полная функциональность.
Исходный код.

Поддерживаемые версии: D5 D7 D2005

Автор: Benedikt Maettig

Подробнее... Скачать

Process, thread, module Lister v.1.0 в категории Система

Пример выводит список всех запушенных процессов, потоков и модулей. Есть возможность убить какой-либо процесс.

Полная функциональность.
Исходный код.

Поддерживаемые версии: D5 D6

Автор: 2p plus

Подробнее... Скачать

MIDAS Server in NT Service example v.1.0 в категории Система

Это демонстрационное приложение показывает как можно создать MIDAS сервер используя NT Service application. Пример включает подробную пошаговую инструкцию.

Полная функциональность.
Исходный код.
Пример приложения.

Поддерживаемые версии: D3 D4 D5 D6

Автор: ALDYN Software

Подробнее... Скачать

INI Example v.1.0 в категории Система

Это простой пример который показывает к читать и записывать данные в INI Файл.

Этот пример использует TINIFiles компонент Delphi/

Полная функциональность.
Исходный код.

Поддерживаемые версии: D5 D6 D7

Автор: David M. Gilbert

Подробнее... Скачать

Статья

Поиск файлов на винчестере

Хотя я и не очень хороший "Делфер", но я очень люблю программировать в Delphi, делать маленькие полезные программки для себя и своего компьютера. Недавно я узнал как производить поиск файлов на компьютере, причем поиск файлов производится не в отдельном каталоге, а на всем винчестере и в процессе поиска возможно следить за поиском. Процедуре поиска я нашел очень широкое применение, например, у меня на компьютере имеется папка с исходниками по Delphi и в этой папки очень много лишних файлов, которые занимают место на винчестере и при помощи процедуры поиска я удаляю ненужные файлы (*.cfg; *.~dfm; *.~pas и др.).

Начнем с описания процедуры FindResursive( Const path: String; Const mask: String) где переменная Path - каталог в котором будет производится поиск ('c:\'), а Mask - название файла или его часть ('*.exe' или '*.*' или 'project.dpr').

В самой процедуре будем использовать только одну (не считая вложенные функции)переменную, которая будет носить полное название найденного файла. А найденные файлы будем записывать в ListBox. Данную процедуру будем вызывать при нажатии кнопки. Процедура FindRecursive выглядит следующим образом:

Листинг 1. Процедура FindRecursive
Procedure FindRecursive( Const path: String; Const mask: String);
Var
fullpath: String;
Function Recurse( Var path: String; Const mask: String ): Boolean;
Var
SRec: TSearchRec;
retval: Integer;
oldlen: Integer;
Begin
Recurse := True;
oldlen := Length( path );
retval := FindFirst( path+mask, faAnyFile, SRec );
While retval = 0 Do Begin
If (SRec.Attr and (faDirectory or faVolumeID)) = 0 Then
form1.ListBox1.items.Add(path+srec.name);
retval := FindNext( SRec );
End;
FindClose( SRec );
If not Result Then Exit;
retval := FindFirst( path+'‌*.*'‌, faDirectory, SRec );
While retval = 0 Do Begin
If (SRec.Attr and faDirectory) <> 0 Then
If (SRec.Name <> '‌.'‌) and (SRec.Name <> '‌..'‌) Then Begin
path := path + SRec.Name + '‌'‌;
If not Recurse( path, mask ) Then Begin
Result := False;
Break;
End;
Delete( path, oldlen+1, 255 );
End;
retval := FindNext( SRec );
End;
FindClose( SRec );
End; { Recurse }
Begin
If path = '‌'‌ Then
GetDir(0, fullpath)
Else
fullpath := path;
If fullpath[Length(fullpath)] <> '‌'‌ Then
fullpath := fullpath + '‌'‌;
If mask = '‌'‌ Then
Recurse( fullpath, '‌*.*'‌ )
Else
Recurse( fullpath, mask );
End;

В целом же программа выглядит так:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
ListBox1: TListBox;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
Procedure FindRecursive( Const path: String; Const mask: String);
Var
fullpath: String;
Function Recurse( Var path: String; Const mask: String ): Boolean;
Var
SRec: TSearchRec;
retval: Integer;
oldlen: Integer;
Begin
Recurse := True;
oldlen := Length( path );
retval := FindFirst( path+mask, faAnyFile, SRec );
While retval = 0 Do Begin
If (SRec.Attr and (faDirectory or faVolumeID)) = 0 Then
form1.ListBox1.items.Add(path+srec.name); {добавление}
{очередного найденного файла в ListBox}
{-------------------------------------}
{здесь можно производить слежением за выполнение процедуры}
{например, поставить ProgressBar}
retval := FindNext( SRec );
End;
FindClose( SRec );
If not Result Then Exit;
retval := FindFirst( path+'‌*.*'‌, faDirectory, SRec );
While retval = 0 Do Begin
If (SRec.Attr and faDirectory) <> 0 Then
If (SRec.Name <> '‌.'‌) and (SRec.Name <> '‌..'‌) Then Begin
path := path + SRec.Name + '‌'‌;
If not Recurse( path, mask ) Then Begin
Result := False;
Break;
End;
Delete( path, oldlen+1, 255 );
End;
retval := FindNext( SRec );
End;
FindClose( SRec );
End; { Recurse }
Begin
If path = '‌'‌ Then
GetDir(0, fullpath)
Else
fullpath := path;
If fullpath[Length(fullpath)] <> '‌'‌ Then
fullpath := fullpath + '‌'‌;
If mask = '‌'‌ Then
Recurse( fullpath, '‌*.*'‌ )
Else
Recurse( fullpath, mask );
End;


procedure TForm1.Button1Click(Sender: TObject);
begin
FindRecursive('‌d:'‌,'‌*.*'‌); {вместо '‌d:'‌ можно написать лубой каталог}
end;

end.
Автор Зорин Юрий
Оригинал:http://delphid.dax.ru/

Посетите наши форумы:

Delphi, Kylix, Pascal
Delphi - общие вопросы | WinAPI | Работа с сетью | Delphi и Multimedia | Базы данных | Работа с oc Windows | Курилка | Паскаль | Delphi.Net | Kylix

Языки программирования
C++ | Java | .NET | Ассемблер

Web Технологии
Php | Perl | Asp | Html

Програмное обеспечение
Софт для Windows | Oc Windows | Linux | BSD

Разное
Железо | Взлом и защита | Периферия | Внекомпьютерная жизнь | Объявления

Дружественные рассылки

Рассылки Subscribe.Ru
Интернет для Delphi-программиста
На этом позвольте проститься с Вами и пожелать удачи. Свои замечания и предложения отправляйте на е-майл, указанный ниже. С уважением, Виталий (NoilTeam@gmail.com)
Subscribe.Ru
Поддержка подписчиков
Другие рассылки этой тематики
Другие рассылки этого автора 		Подписан адрес:
Код этой рассылки: comp.soft.prog.delphicoding
Архив рассылки 		Отписаться
Вспомнить пароль
В избранное