VPF::Форматирование дисков - Форум программистов

DELPHI MASTER

Дата 23.9.2004, 16:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник...
Сообщений: 26
Регистрация: 14.9.2004
Где: Санкт-Петербург

Репутация: -3
Всего: -7

Подскажите пожалуйста, как лучшем способом отформатировать диски или жёсткий диск сразу?

Pakshin A. S.

Дата 23.9.2004, 18:44 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

Простой примерчик:

Код


function SHFormatDrive(hWnd: HWND; Drive: Word; fmtID: word; Options: word): longint; stdcall, external 'Shell32.dll' name 'SHFormatDrive';

procedure FormatDrive(Drive: char);
begin
 try
  case SHFormatDrive(Application.Handle, ord(Drive) - ord('A'), $FFFF, 1 {1- Full, 0 - Quick, 2 - SysOnly}) of
    -1: ShowMessage('Error formatting the drive');
    -2: ShowMessage('User canceled formatting the drive');
    -3: ShowMessage('No format');
   end;
 except
  ShowMessage('Error formatting the drive');
 end;
end;

The MASTER

Дата 28.9.2004, 19:21 (ссылка)

(нет голосов)

Загрузка ...

Old master)

Профиль
Группа: Участник
Сообщений: 862
Регистрация: 19.7.2004
Где: Санкт-Петербург

Репутация: 2
Всего: 5

Спасибо!

--------------------

http://linkinparkfans.ru
http://innovatedesign.ru
http://forum.linkinparkfans.ru

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »