Уроки - My world of avd

Программный поиск файлов на Delphi

В этом уроке мы с вами ознакомимся с основными принципами программной организации поиска файлов. Для начала определимся, зачем нам это может быть нужно. Например, вам нужно при запуске программы на выполнение просканировать определенный каталог на присутствие DOC файлов, и при наличии таковых открыть их на редактирование или напечатать. А как вам такая идея: фоновый поиск EXE файла в сети, и при обнаружении новой версии, автоматическое обновление.

Многим известны программы, где можно искать файлы, правила поиска файла. Файлы можно искать как с файловых командирах (нортон, волков, дос навигатор, фар), так в любой операционной системе. В операционной системе windows диалоговое окно поиска файла вызывается "Пуск" - "Поиск" - "Файлы и папки". В от ... Читать дальше »

Категория: Уроки | Просмотров: 1521 | Добавил: SysAdmin | Дата: 01.03.2009 | Комментарии (2)

Автозапуск программ

Данный программный код внедряет Ваше приложение в автозагрузку windows, занося его в реестр. Тем самым Ваше приложение всегда будет загружаться у пользователя при загрузке системы.

//
Private Sub Command1_Click() 'Запись в реестр
Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Имя твоей проги", "Путь к твоей проге"
End Sub

//

Private Sub Command2_Click() 'Удаление из реестра
Set Reg = CreateObject("WScript.Shell")
Reg.RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Имя твоей проги"
End Sub
//

Категория: Уроки | Просмотров: 764 | Добавил: SysAdmin | Дата: 28.02.2009 | Комментарии (0)

Пример...Среды разработки Delphi (а точнее библиотеками VCL)

Итак... Как вам известно (первый закон философии) "Ничто не постоянно" и наш портал не исключение. Все движется и развивается. И новая ступенька в этом развитии - язык программирования Delphi которому я и хочу вас научить. Давайте приступим.

Нижеприведенный пример является стандартным само создающимся первоначальным модулем среды разработки Delphi (а точнее библиотеками VCL). Моя задача - наиболее подробно пояснить все те моменты которые нам приподносят составляющие VCL.

unit MainModule; //Имя модуля

interface //Инициализация интерфейса

uses //Перечисление всех используемых компонентов интерфейса
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type //Обьявление типов
  TMainForm = class(TForm) //Описание нового обьекта (в данном случае формы)
    procedure FormCreate(Sender: TObject); //Описание создания формы классом
  private //Тут описываем закрытые данные обьекта
  {Описываем данные доступные только данному обьекту}
    { Private declarations }
  public // Тут описываем открытые данные обьекта
  {Данные и методы данного обьекта могут быть использованы другим модулем}
    { Public declaratio ... Читать дальше »

Категория: Уроки | Просмотров: 804 | Добавил: SysAdmin | Дата: 28.02.2009 | Комментарии (0)