Процедура форматирования диска :: Статьи по Delphi - Iguana Soft

Поиск по базе статей [/articles/?PHPSESSID=2a7b302bfa52d913268d490f3358dbc2] : 18.08.2006 Изменено разрешение сайта Изменено минимальное разрешение сайта на 1024x768 Подробнее... 02.08.2006 Выгружена игра "Digger Remastered" Вспоминаем старый добрый DOS и времена 80-х! ;) Подробнее... Рекомендуем книгу! Delphi. Учимся правильно программировать Данная книга - учебное пособие по программированию в среде Delphi. Вначале книги в сжатом виде, но достаточно полно изложены синтаксис классического языка Pascal и основы объектно-ориентированного программирования на базе синтаксиса Object Pascal. Основна ... Процедура форматирования диска :: Статьи по Delphi В Shell32.dll спрятана WinAPI функция SHFormatDrive, вызывающая стандартный диалог форматирования сменного накопителя. Я уже встречал этот вопрос в конференции borland.public.delphi.winapi. {раздел реализации} .. .. const SHFMT_ID_DEFAULT = $FFFF ; // Опции форматирования SHFMT_OPT_QUICKFORMAT = $0000 ; SHFMT_OPT_FULL = $0001 ; SHFMT_OPT_SYSONLY = $0002 ; // Коды ошибок SHFMT_ERROR = $FFFFFFFF ; SHFMT_CANCEL = $FFFFFFFE ; SHFMT_NOFORMAT = $FFFFFFFD ; function SHFormatDrive(Handle: HWND; Drive, ID, Options: Word): LongInt; stdcall ; external 'shell32.dll' name 'SHFormatDrive' procedure TForm1.btnFormatDiskClick(Sender: TObject); var retCode: LongInt; begin retCode:=SHFormatDrive(Handle, 0 , SHFMT_ID_DEFAULT, SHFMT_OPT_QUICKFORMAT); if retCode < 0 then ShowMessage( 'Не могу отформатировать накопитель' ); end ; end . Copyright 2001-2007 © "Iguana Software" . О компании | Продукты | Усуги | Заявление о приватности | Правила использования | Обратная связь IGP Delphi Forum | Библиотека VCL | Увлекательные знакомства, Украина