Отправляет 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
31
Автор
Сергей

Статистика

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

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


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

DELPHI.mastak.ru

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

Обновился дайджест по FAQ. Скачать можно здесь
Вышел очередной дайджест форумов. Скачать можно здесь
Кое-что из нашей кладовки   |x|
  • БАЗА™ K_O_T K_O_T@TUT.BY   (06.12.02 12:38)
    У всех программистов, я уверен, накопилось на винте огромное кол-во статей, исходников, книг в электронном варианте. Но всего не упомнишь и часто приходится к ним обращаться. Как я уже сказал материалов обычно очень много и тежело быстро найти то, что нужно. Для этого я написал  БАЗА™.
    Можно вносить любые файлы - странички, программы, архивы, музыку, все что угодно. Так же можно заносить в БАЗА™ ссылки налюбимые сайты.
    »»» Скачать: исходные тексты демонстрационный EXE файл
Лучшее из нашего FAQ   |x|
Как определить свободное дисковое пространство на дисках размером больше 2 ГБ?
Вызовите функцию GetDiskFreeSpaceEx(). Возвращаемый функцией результат типа integers конвертируйте в doubles.
Пример:

     function GetDiskFreeSpaceEx(lpDirectoryName: PAnsiChar;
       var lpFreeBytesAvailableToCaller : Integer;
       var lpTotalNumberOfBytes: Integer;
       var lpTotalNumberOfFreeBytes: Integer) : bool;
       stdcall;
       external kernel32
       name 'GetDiskFreeSpaceExA';

     procedure GetDiskSizeAvail(TheDrive : PChar;
                var TotalBytes : double;
                var TotalFree : double);
     var
       AvailToCall : integer;
       TheSize : integer;
       FreeAvail : integer;
     begin
       GetDiskFreeSpaceEx(TheDrive,
      
       AvailToCall,
              !
TheSize,
              FreeAvail);
     {$IFOPT Q+}
      {$DEFINE TURNOVERFLOWON}
      {$Q-}
     {$ENDIF}
       if TheSize >= 0 then
     TotalBytes := TheSize else
       if TheSize = -1 then begin
     TotalBytes := $7FFFFFFF;
     TotalBytes := TotalBytes * 2;
     TotalBytes := TotalBytes + 1;
       end else
       begin
     TotalBytes := $7FFFFFFF;
     TotalBytes := TotalBytes + abs($7FFFFFFF - TheSize);
       end;

       if AvailToCall >= 0 then
     TotalFree := AvailToCall else
       if AvailToCall = -1 then begin
     TotalFree := $7FFFFFFF;
     TotalFree := TotalFree * 2;

    TotalFree := TotalFree + 1;
       end else
       begin
     TotalFree := $7FFFFFFF;
     TotalFree := TotalFree + abs($7FFFFFFF - AvailToCall);
       end;
     end;

     procedure TForm1.Button1Click(Sender: TObject);
     var
       TotalBytes : double;
       TotalFree : double;
     begin
       GetDiskSizeAvail('C:\',
            TotalBytes,
            TotalFree);
       ShowMessage(FloatToStr(TotalBytes));
       ShowMessage(FloatToStr(TotalFree));
     end;


Источник: Дельфи. Вокруг да около.

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

Обсуждается в конференциях   |x|
  • Быстрая очистка StringGrid
    Здравствуй и процветай всезнающий All. Подскажите: Как быстро очистить StringGrid, чтоб не очищать каждую ячейку?
  • UPS
    Уважаемые мастера! скажите пожалуйста, как можно реализовать мониторинг блока бесперебойного питания, к примеру, когда ...
  • Сетевая программа
    Мне нужно написать сетевую программу. Сервер на 1 машине и 5 клиентских. Для библиотеки. У кого есть подробная инфа как ...
  • Запуск программы из моей программы...
    никто не подскажет можно ли вообще запустить программу из под "пользователя" (не администратора:)) которая для работы ...
  • Опрос модема USB
    Ну если по COM порту, советов много, даже в реестр пытались загнать(только зачем ???), то как опросить USB модем?
  • встроенный ассемблер
    У меня есть несколько вопросов: 1. Когда я использую ассемблерную вставку в коде самой программы (не в функции), как ...
  • Как узнать выдвинут-ли лоток CD-ROMa или задвинут
    Как узнать выдвинут-ли лоток CD-ROMa или задвинут?
У нас большой выбор статей   |x|
ЛЯПЫ. Немного об пользовательских интерфейсах. Часть 2.
Как правило, тех, кто указывает на ошибки, не любят. Зачастую, в ответ они могут услышать - "Раз такой умный, то делай сам". В этом, есть доля истины, но согласитесь, кто-то же должен на эти самые ошибки (если они существуют) указать...
Новинки книжного рынка   |x|
Delphi 5: учебный курс
В книге рассмотрены возможности системы программирования Delphi 5, описан язык программирования Object Pascal, рассмотрены визуальные компоненты системы и методы их создания. Особое внимание уделено принципам и практическим приемам создания сетевых приложений для разных архитектур и разработке программ, поддерживающих основные протоколы Интернета.Не требует специальной подготовки, может быть использована как пособие для изучающих основы программирования и сетевые технологии, а также как справочник по компонентам Delphi и пособие для самообразования.
Автор: С. Бобровский
Другие сайты о DELPHI   |x|
DELPHI, MS SQL, MS OFFICE, ...
Разработка информационных систем на базе DELPHI и MS SQL.
Создание отчетов в EXCEL и Word
» Оценка сайта: 2
Опрос населения :)
Как вы нашли наш сайт?
»»» Поисковая система
»»» Рассылка
»»» Ссылка с другого сайта
»»» Через каталог сайтов
»»» Друг посоветовал
»»» Случайно
Журнал "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=654

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

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