Отправляет 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

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

Вышел очередной дайджест форумов. Скачать можно здесь
Кое-что из нашей кладовки   |x|
  • Работа через BDE без установки BDE asdf   (24.04.02 13:53)
    Позволяет работать через BDE без его установки.
    Добавляет на вкладку Data Access компонент BDE. Достаточно поместить на форму (конечно файлы BDE должны присутствовать в отдельном каталоге, порядка 1,3Мб для dBase). Дополнительных доработок раннего ПО с BDE не требуется.
    Распространяется бесплатно и с исходниками для 3,4,5 версий.
    http://www.kestrelsoftware.co.uk
    »»» Скачать: исходные тексты (6кб)
  • DirectX2000_for Delphi 6.0 thinker_2226666 al28@mail.ru   (24.04.02 12:58)
    Это известный компонент DelphiX для работы с DirectX под Делфи.  Мне досталась версия для Д. 5.0, и, естесственно, она под Делфи 6.0 ставится не захотела. После небольших трудов.... Короче пользуйтесь. Загрузите проект из папочки DelphiX_forD6
    »»» Скачать: исходные тексты (575кб)
  • Minesweeper robot короед alexey-go@yandex.ru   (24.04.02 16:50)
    Автомат для игрушки Minesweeper. Вполне реально открыть все мины на эксперте за 10 сек. Сканирует поверхность окна Minesweeper'а и посылает ему соответствующие сообщения. Довольно умная получилась программа (впрочем, смотрите сами). Интересна тем, кто играет в Minesweeper на деньги....
    »»» Скачать: исходные тексты (106кб) демонстрационный EXE файл (275кб)
Лучшее из нашего FAQ   |x|
Регистрация программ в меню "Пуск" Windows 95.
Подобная проблема возникает при создании инсталляторов и деинсталляторов. Наиболее простой и гибкий путь - использование DDE. При этом посылаются запросы к PROGMAN. Для этого необходимо поместить на форму компонент для посылки DDE запросов - объект типа TDdeClientConv. Для определенности назовем его DDEClient. Затем добавим метод для запросов к PROGMAN:

Function TForm2.ProgmanCommand(Command:string):boolean;
var
 macrocmd:array[0..88] of char;
begin
 DDEClient.SetLink('PROGMAN','PROGMAN');
 DDEClient.OpenLink; { Устанавливаем связь по DDE }
 strPCopy(macrocmd,'['+Command+']'); { Подготавливаем ASCIIZ строку }
 ProgmanCommand :=DDEClient.ExecuteMacro(MacroCmd,false);
 DDEClient.CloseLink; { Закрываем связь по DDE }
end;


При вызове ProgmanCommand возвращает true, если посылка макроса была успешна. Система команд (основных) приведена ниже:
Create(Имя группы, путь к GRP файлу) Создать группу с именем "Имя группы", причем в нем могут быть пробелы и знаки препинания. Путь к GRP файлу можно не указывать, тогда он создастся в каталоге Windows.
Delete(Имя группы) Удалить группу с именем "Имя группы"
ShowGroup(Имя группы, состояние) Показать группу в окне, причем состояние - число, определяющее параметры окна:
1-нормальное состояние + активация
2-миним.+ активация
3-макс. + активация
4-нормальное состояние
5-Активация
AddItem(командная строка, имя раздела, путь к иконке, индекс иконки (с 0), Xpos,Ypos, рабочий каталог, HotKey, Mimimize) Добавить раздел к активной группе. В командной строке, имени размера и путях допустимы пробелы,
Xpos и Ypos - координаты иконки в окне, лучше их не задавать, тогда PROGMAN использует значения по умолчанию для свободного места.
HotKey - виртуальный код горячей клавиши.
Mimimize - тип запуска, 0-в обычном окне, <>0 - в минимизированном.
DeleteItem(имя раздела) Удалить раздел с указанным именем в акт! ивной группе

Пример использования:
ProgmanCommand('CreateGroup(Комплекс программ для каталогизации литературы,)');
ProgmanCommand('AddItem('+path+'vbase.hlp,Справка по VBase,'+ path +' vbase.hlp,
0, , , '+ path + ',,)');
где path - строка типа String, содержащая полный путь к каталогу ('C:\Catalog\');

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

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

Совет 23. Удаление директории, содержащей файлы.

Предлагаю вашему вниманию одну интересную функцию, автора ее я не знаю, но функция работает! Привожу ее исходный код.
Function MyRemoveDir(sDir : String) : Boolean;
var
 iIndex : Integer;
 SearchRec : TSearchRec;
 sFileName : String;
begin
 Result := False;
 sDir := sDir + '\*.*';
 iIndex := FindFirst(sDir, faAnyFile, SearchRec);

 while iIndex = 0 do begin
  sFileName := ExtractFileDir(sDir)+'\'+SearchRec.Name;
  if SearchRec.Attr = faDirectory then begin
   if (SearchRec.Name <> '' ) and
   (SearchRec.Name <> '.') and
   (SearchRec.Name <> '..') then
    MyRemoveDir(sFileName);
  end else begin
   if SearchRec.Attr <> faArchive then
    FileSetAttr(sFileName, faArchive);
   if NOT DeleteFile(sFileName) then
    ShowMessage('Could NOT delete ' + sFileName);
  end;
  iIndex := FindNext(SearchRec);
 end;

 FindClose(SearchRec);

 RemoveDir(ExtractFileDir(sDir));
 Result := True;
end;

Для тех кто не очень дружит с функциями приведу пример ее использования. Например, в обработчике нажатия на кнопку напишите (где-нибудь повыше конечно же должна быть написана сама функция):
if NOT MyRemoveDir('C:\myDir') then
ShowMessage('Can NOT delete dir');

Если все пройдет нормально, то каталог будет удален, если нет, то появится сообщение. Данная функция удаляет также и скрытые и системные файлы.

Автор: Михаил Христосенко
Сайт о программировании в Дельфи http://MihanDelphi.narod.ru
(c) при публикации этого материала ссылка на автора обязательна

Обсуждается в конференциях   |x|
  • DBE Administrator
    Привет всем!!! где взять отдельную инстоляху DBE Administrator, чтоб принести БД на другой комп не инсталя Delphi......
  • Как узнать, сколько записей выбрал SELECT в Delphi?
    Привет. Может это и просто, тогда просветитеб плиз :) Как в ПЕРЕМЕННУЮ (integer) Delphi получить кол-во записей, ...
  • MIDAS!!!
    Есть пара вопросов связанных с MIDAS. 1. Почему иногда выдается ошибка: Database not Assigned. Не понятно в каких ...
  • Сортировка
    Вопрос собственно следующий: использую Мидасы + Access. Есть текстовое поле, но в котором содержатся только числовые ...
  • глюк Dbgrid
    Почему в Dbgrid с таблицей dbase некоректно работает полоса покрутки, это как нибудь лечится?
  • Серийный номер микросхемы BIOS..
    Привет всем.. Можно ли как то выцепить серийный номер микросхемы(FLASH) BIOS? С Уважением, Игорь.
  • Обновление данных в DBGridе
    Кто знает как обновить данные в DBGridе, отображающий поля из Query, если данные в самой базе поменялись в другой форме ...
У нас большой выбор статей   |x|
Создание хранителя экрана (ScreenSaver)
Основные правила написания программ "хранителей экрана" (ScreeSaver). Как сделать его минимального объема. Пример, создания полноценного хранителя объемом всего 20кб!!!
Новинки книжного рынка   |x|
Delphi: специальный справочник
В книге содержится обширный справочный материал по основным элементам языка, включающий в себя наиболее употребительные функции, классы и объекты. Последовательно и подробно изложен процесс создания баз данных, Windows-приложений и динамических библиотек. Приложения с описанием различных кодов ошибок выполнения программ делает книгу полезной не только начинающим программистам, но и пользователям, активно работающим с Delphi
Автор: Б. Карпов
Другие сайты о DELPHI   |x|
Python Soft
Абсолютно все для Delphi !!!
» Оценка сайта: 3
Опрос населения :)
К какой возрастной категории Вы принадлежите ?
»»» меньше 16
»»» от 17 до 20
»»» от 21 до 23
»»» от 24 до 26
»»» от 27 до 30
»»» от 30 до 35
»»» от 35 до 40
»»» от 40 до 44
»»» больше 45
Журнал "RSDN Magazine"  |x|

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

Для души

Хокку дня
Дверь открываю
В зной груди
И вижу там себя.

Афоризмы
Человек, добавляющий другим, уменьшая свое - праведник. Человек, уменьшающий другим, не добавляя себе - злодей....

Фраза дня
Страшно, что вечность состоит из отчетных периодов.

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

И на закуску коротенький анекдот
Дед Мазай подплывает на лодке к "Титанику", стучит веслом по борту и кричит:
- Зайцы на корабле есть?

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

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

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