Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

Курс видеоуроков КРЭКЕРСТВО + ПРОГРАММИРОВАНИЕ 2017
(актуальность: апрель 2017)
Свежие инструменты, новые видеоуроки!

  • 400+ видеоуроков
  • 800 инструментов
  • 100+ свежих книг и статей

УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Форматирование диска в Win32


Начинается демонстрация нового компьютера, управляемого голосом. Изобретатель просит зал соблюдать тишину. Только он открывает рот - из зала крик:
- FORMAT C:!!! ENTER!!!


 const SHFMT_DRV_A = 0;
 const SHFMT_DRV_B = 1;
 const SHFMT_ID_DEFAULT = $FFFF;
 const SHFMT_OPT_QUICKFORMAT = 0;
 const SHFMT_OPT_FULLFORMAT = 1;
 const SHFMT_OPT_SYSONLY = 2;
 const SHFMT_ERROR = -1;
 const SHFMT_CANCEL = -2;
 const SHFMT_NOFORMAT = -3;
 function SHFormatDrive(hWnd : HWND;
   Drive : Word;
   fmtID : Word;
   Options : Word) : Longint
   stdcall; external 'Shell32.dll' name 'SHFormatDrive';
 
 ...
 implementation
 ...
 
 procedure TForm1.Button1Click(Sender: TObject);
 var
   FmtRes: longint;
 begin
   try
     FmtRes:= ShFormatDrive(Handle,
       SHFMT_DRV_A,
       SHFMT_ID_DEFAULT,
       SHFMT_OPT_QUICKFORMAT);
     case FmtRes of
       SHFMT_ERROR :
         ShowMessage('Error formatting the drive');
       SHFMT_CANCEL :
         ShowMessage('User canceled formatting the drive');
       SHFMT_NOFORMAT :
         ShowMessage('No Format')
     else
       ShowMessage('Disk has been formatted');
     end;
   except
   end;
 end;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS