Здравствуйте уважаемые подписчики рассылки "Интернет для Delphi программиста". Данная рассылка предназначена для всех кого интересует Delphi, здесь будут выкладываться ссылки на различные ресурсы интернета так или иначе связанные с Delphi: книги, исходники, программы... Изучайте Delphi один из лучших языков программирования!!!

ЗАДАТЬ ВОПРОС :

Правила рассылки: 
1. Не присылайте ответов на вопросы типа "да, нет".  
2. Если отвечаешь на вопрос - то отвечай подробно с примерами (желательно с исходником примера).
3. Тема вопросов - программирование на Delphi.
Внимание авторам: - Я не указываю ваши адреса из-за спама, но кто хочет, чтобы его email был - пишите, иначе только имя.
Отправить вопрос

Новые вопросы.

				  //чтение из реестра, занесение в массив
  if reg.OpenKey(regpath+'\rm', true) then
   begin
    for i:=0 to 255 do data[i].TOff:=-2; //это понадобится в дальнейшем
    for i:=0 to 255 do
     begin
      if reg.ValueExists('TOffTime_'+IntToStr(i))=false then
        begin //если НЕсуществует значение, то
         last:=i-1; //переменой last присваивается номер последнего существующего знач.
         break; //выход из цикла
        end;
     end;
   end;
  for i:=0 to last do
   begin //заносим все значения в массивы
    data[i].TurnOffTime:=reg.ReadDateTime('TurnOffTime_'+IntToStr(i));
    data[i].TurnOff:=reg.ReadInteger('TurnOff_'+IntToStr(i));
    data[i].TurnOffAt:=reg.ReadBool('TurnOffAt_'+IntToStr(i));
   end;
  reg.CloseKey;
 end;
//при сохранении в реестр:
if reg.OpenKey(regpath+'\Rm', true) then
 begin
  for i:=0 to 255 do
   begin
    if data[i].TurnOff<>-2 then //пока не достигнуто посл. значение
    // (-2 = последнее, т.к. весь цикл сначала заполнился -2, а
    // затем заполяется нормальными значениями. То, что не заполнилось
    // осталось "-2" - значит оно следует за последним значением)
     begin
      reg.WriteDateTime('TurnOffTime_'+IntToStr(i), data[i].TurnOffTime);
      reg.WriteInteger('TurnOff_'+IntToStr(i), data[i].TurnOff);
      reg.WriteBool('TurnOffAt_'+InttoStr(i), data[i].TurnoffAt);
      //...сохраняем...
     end;
   end;
//А теперь код изменения значений в массиве (после чего следует сохранение (см. выше))
for i:=0 to 255 do
 begin
  if data[i].TurnOff=-2 then //если это пустой элемент...
   begin
    //..сохраняем в него новые изменения
    data[i].TurnтOff:=ToffComboBox.ItemIndex;
    data[i].TurnOffTime:=StrToTime(tm);
    data[i].TurnoffAt:=TOffAtRadioButton.Checked;
   end;
 end;

Ответы.

Есть функция WinExec. Найдёшь её в справке Windows SDK:
UINT WinExec(

    LPCSTR lpCmdLine,   // address of command line 
    UINT uCmdShow       // window style for new application 
   );
Например, можно вот так:
  WinExec('D:\Files\Borland Studio Projects\CD_opn\CD.exe',SW_SHOW)
Также есть функция CreateProcess. Но она посложнее.

			

Запуск приложения из Дельфи:
Надо подключить модуль ShellAPI (добавить в uses)
    
Res:=ShellExecute(0,'open','postav.exe','','',SW_SHOW);
    if (Res < 32) then
       Writeln('Error execute postav.exe - error: '+IntToStr(Res));

procedure TFormDemo.ButtonInstallClick(Sender: TObject);
var
  sCapt, sMes, FileName: String;
begin
  //TODO: Инсталяция AcrobatReader5 (ar500enu.exe)
  FileName:='E:\Install\Viewers\ar500enu.exe';
  //
  if not FileExists(FileName)
     then begin
            sCapt:='Ошибка';
            sMes:='  Не найден файл '+FileName+' ';
            Application.MessageBox(PChar(sMes),PChar(sCapt), MB_OK + MB_DEFBUTTON1);
            exit;
          end;
  winexec(PChar(FileName), SW_NORMAL);
end;

procedure TFormMain.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
//TODO: Анализируем клавишу VK_UP (или код 38)
 IF key=VK_UP
 then begin
        Timer1.Enable:=False;
        bUpKey:=True;
        exit;
      end;
end;
				

Система

Assign files
Исходник программы, которая сохраняет в файл содержимое данной папки либо нескольких папок с подкаталогами. Очень удобно для сравнения одинаковых данных, находящихся на разных компьютерах.
Смотреть скриншот.

Files Catalogs Colors
Исходник программы, предназначенной для начинающих программистов (примеры работы с файлами и каталогами (создание, удаление, переименование), создание ярлыка программы, определение пути к программе, определение размеров логических дисков, работа с TCanvas и многое другое).
Смотреть скриншот.

Exe in exe
Исходник программы, которая сохранят в *.exe два любых файла с возможностью их последующего извлечения
смотреть скриншот.

Windows commands
Исходник программы, показывающей примеры работы со стандартными функциями Windows API (выключение компьютера, перезагрузка, отключение/включение мыши, клавиатуры, свернуть все окна и т.д.)
Смотреть скриншот.

Reestr Tweak XP
Исходник программы, с помощью которой пользователь может быстро изменять скрытые настройки Windows XP, не прибегая к редактированию реестра и прочих опций системы вручную (в примере описаны не все скрытые настройки Windows, остальные содержатся в архиве в виде *.htm файлов)
Смотреть скриншот.

Clipboard
Исходник программы, показывающей работу с буфером обмена, содержащим текстовую или графическую информацию.
Смотреть скриншот

Мультимедиа

Mp3-плеер
Постоеный на стандартных компонентах мп3 плеер обладает всеми основными ф-иями обычного плеера.
Автор Алексей Смыщляев
Смотреть скриншот.

Просто исходники

ListBox ComboBox
Исходник программы, предназначенной для начинающих программистов (примеры работы с ListBox, ComboBox, TabSheet, Font, Cursors, Label и т.д.).
Смотреть cкриншот.

Memo Edit Errors Messages
Исходник программы, предназначенной для начинающих программистов (примеры работы с Button, Memo, Edit, InputBox, MessageDlg, Drag and Drop, перетаскивание формы за ее поле и т.д.)
Смотреть скриншот.

Длинная арифметика
Модуль для работы с "длинной арифметикой".
В архиве находиться пример работы с модулем.
Автор: Kerk

Стеганография
Модуль для записи и чтения любых файлов из 24-разрядных Bitmap'ов.
Автор Hint

Работа с разделами жесткого диска
Модуль для получения информации о разделах (дисках). Получение списка FDD, HDD, CD-ROM и проч. в системе.
Автор: cyborg

Работа с оперативной памятью
Класс, реализующий проецирование файлов в память. Возможность чтения/записи/вставки данных.
Автор: R D I

Динамические массивы 
Модуль, который организует динамический масив. Причём можно его при создании легко организовать как в памяти, так и на диске. Можно циплять под него и свои типы данных, только не к базовому класу, а к TPointerArray.
Автор: moonter

На настоящий момент присутствуют изображения из одиннадцати разных категорий, мало это или много решать вам.
Коллекция иконок, для оформления приложений очень хорошего качества
Полный список всех доступных изображений находиться по адресу:
http://www.noil.pri.ee/?mod=down/catd&id=15

БД - хранилище объектов. Анатолий Тенцер. 43 Kb
Здесь описываются принципы создания базы данных, ее базовые тезисы, объекты, свойства, строковые и численные атрибуты, исторические и перечислимые атрибуты, связи, расширение БД. Описывается как налаживать учет, проблемы и пути их решения, ослабленный контроль за целостностью данных, понижение быстродействие при выборке данных, сложность в понимании структуры и выборке данных и построение клиентской части.

Электронная книга .: Иллюстрированный самоучитель по Kylix 1,2 Mb

http://www.noil.pri.ee/ - Здесь вы можете почитать статьи, скачать исходники и компоненты, пообщаться на форуме.

Программер женился. Первая брачная ночь:
- Дорогой, у тебя что в столе мыши!!!????
- Мышь на столе... В столе - старый винчестер.

---

OS/2 - полуось
PS/2 - ???

---

некие гении изобрели вирус который устанавливает на комп. Windows95.

---

Реальность - это интерфейс для доступа к компьютеру.

---

Нет повести печальнее на свете, чем повесть о дымящемся чипсете.

---

Программер познакомился с девушкой. Она ему: 
- Можно я буду называть тебя Адамом? 
- А почему? 
- Ты у меня первый. 
- Ладно, но тогда я буду называть тебя Виндой. 
- А почему? 
- А ты у меня двухтысячная... 

---

Два программиста пытаются завести автомобиль. 
Все бесполезно. Один другому говорит: 
- Может выйдем и еще раз зайдем?

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

Все кто хочет изучить Delphi и реально научиться писать свои программы, ЦПИ "Эверест" поможет Вам.
Всё, что Вам нужно это компьютер и доступ к интернету - для получения уроков.

10 причин в пользу платного обучения в ЦПИ "Эверест"…

1. Когда Вы платите деньги- появляется дополнительный стимул против лени: надо учиться, ведь деньги уже уплачены….
2. Учась платно, получаете удобный для Вас график работы.
3. Весь необходимый справочный материал Вы получите в свое время и на русском языке.
4. Используя интернет в качестве бесплатной библиотеки, Вы получаете все ее минусы:

• трата времени на поиск необходимого материала (а это потерянные деньги и время). А у Вас есть лишние время и деньги?;
• отсутствие гарантии, что Вы "осилите" данный материал, ведь пишут его, в основном, не педагоги- профессионалы, а программисты- профессионалы, а они пишут для таких же, как они. А Вы программист- профессионал?
• отсутствие системности в скачиваемом материале (ведь человек, писавший для Вас материал, не знает, чем Вы владеете). А Вы обладаете системой знаний по Delphi?;

5. Стоимость обучения одного месяца в ЦПИ "Эверест" сравнима с ценой хорошей книги. Но часто ли Вам попадались книги, рассчитанные именно на Вас. Мы же работаем индивидуально.
6. Автор книги или магазин не несет никакой ответственности за то, поняли ли Вы материал или нет, мы же закрепляем за каждым курсантом преподавателя, курирующего Вас.
7. Освоив программирование в Delphi - Вы освоите:

• основы настоящего программирования- структурного и процедурного программирования ;
• систему работы с базами данных и SQL- запросами, а это одно из самых перспективных направлений в программировании;
• язык программирования ObjectPascal, что позволит Вам легко перейти, при желании, на С или Паскаль;
• работу с компьютерной графикой;
• при желании - основы низкоуровневого программирования ( Ассемблер).

8. А это значит, что …Мы предлагаем получить "высшее образование" - профессию программиста всего за 1 год и 144 доллара, любой ВУЗ попросит в 3 раза больше за один только семестр.
9. Вы получаете самый практический курс в сети, поскольку теория дается только тогда, когда она действительно необходима…
10. Учиться у нас легко и просто. Весь материал доступен и простым людям, не имеющим никогда дел с программированием….

По всем вопросам обращайтесь ко мне.

Если вы встретили в интернете интересный сайт или статью, да и вообще, что угодно связанное с Delphi, поделитесь ссылкой.
Если можете написать статью связанную с Delphi - присылайте с радостью выложу.
Давайте поможем друг другу!  Архив рассылки.

Предложения, критику и пожелания пишите на e-mail.