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

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


Служба Рассылок Subscribe.Ru проекта Citycat.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHI.mastak.ru

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

Новые компоненты   |x|
Лучшее из нашего FAQ   |x|
Как проверить готовность диска без появления окна ошибки Windows?
Вы можете использовать функцию Windows API SetErrorMode() для отключения диалога Window's critical Error.

function IsDriveReady(DriveLetter : char) : bool;
var
  OldErrorMode : Word;
  OldDirectory : string;
begin
  OldErrorMode := SetErrorMode(SEM_NOOPENFILEERRORBOX);
  GetDir(0, OldDirectory);
  {$I-}
    ChDir(DriveLetter + ':\');
  {$I+}
   if IoResult <> 0 then
    Result := False  
   else
    Result := True;

  ChDir(OldDirectory);
  SetErrorMode(OldErrorMode);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not IsDriveReady('A') then
    ShowMessage('Drive Not Ready') else
    ShowMessage('Drive is Ready');
end;

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

Обсуждается в конференциях   |x|
У нас большой выбор статей   |x|
Создание хранителя экрана (ScreenSaver)
Основные правила написания программ "хранителей экрана" (ScreeSaver). Как сделать его минимального объема. Пример, создания полноценного хранителя объемом всего 20кб!!!
Другие сайты о DELPHI   |x|
Delphiнарий
В этом разделе я собираюсь разместить некоторые полезные советы и примеры программ программистам, которые разрабатывают базы данных на Delphi. Этот опыт накоплен при самостоятельном создании программ,...
Опрос населения :)
Как часто вы заглядываете на наш сайт?
»»» Регулярно
»»» Раз в неделю
»»» Когда нужна помощь
»»» По почтовой рассылке
»»» Сделал стартовой страницей
Для души

Хокку дня
Кузнечик зеленый,
О чем ты кузнечишь? -
О зеленой, должно быть, тоске...

Афоризмы
Знаток флиртует на пляже с самой бледно-кожей девушкой - у нее весь отпуск еще впереди (Марчелло Мастроянни)

Фраза дня
Спасибо в кровать не положишь.

И на закуску коротенький анекдот
- Как ты думаешь, мне выдадут патент на изобретение?
- А в чем суть изобретения?
- Помогает проходить сквозь стены.
- А как называется?
- Двери.

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


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

Добро пожаловать на сайт -= Мастера DELPHI =- 


http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу
Рейтингуется SpyLog

В избранное