Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.29;
Скачать: CL | DM;

Вниз

Как из под Дельфи-программы отформатировать дискету?   Найти похожие ветки 

 
FLIZ_   (2002-08-19 15:49) [0]

прошу подсказать. спасибо!


 
AL2002 ©   (2002-08-19 15:55) [1]

function SHFormatDrive (Wnd: HWnd; Drive, Size, Options: Integer): Integer;


 
Yuri-7   (2002-08-19 16:06) [2]

Из FAQ Delphi Вокруг да около.
------------------------------
Вопрос:
Форматирование диска в Win32
Ответ:
ShellAPI функция ShFormatDrive().
Пример:

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";

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;


 
-= Like =-   (2002-08-19 18:42) [3]

Если не ошибаюсь, эта функция вызывает диалог "Форматирование диска", а он хочет из своей программы форматировать. Или нет?


 
FLIZ_   (2002-08-19 18:47) [4]

Да, хотелось бы поюзать некую ф-ию, которая
бы форматировала дискету, а мне возвращала
бы информацию о завершенном процессе.

т.е. никаких дополнительных диалогов и окон не надо.

на крайний случай конечно и с диалогами пойдет,
но я бы хотел без них.

сейчас попробую приведенный в ответе код,
посмотрю что он дает ...
спасибо!


 
FLIZ_   (2002-08-19 18:59) [5]

СПАСИБО за код примера! Мне это подходит!

маленький вопрос :
не пойму - из какого модуля эта ф-ия берется?
что надо в Uses указать ?

в файле ShellAPI.PAS нет такой ф-ии : "ShFormatDrive"

или я очень сильно торможу - и ее там быть не должно
и надо ее самому как внешнюю подключать (как я и сделал)?


 
FLIZ_   (2002-08-19 19:02) [6]

кстати - константы быстрого и полного форматирования
перепутаны местами :)



Страницы: 1 вся ветка

Текущий архив: 2002.08.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
1-95804
unfam
2002-08-20 02:47
2002.08.29
Про память


7-95997
Lizard
2002-06-13 21:27
2002.08.29
Как удалить файл без возможности его востановления ?


1-95847
просто панк
2002-08-17 01:50
2002.08.29
Rich Edit


14-95960
ACR
2002-08-04 21:04
2002.08.29
ЧАТ


1-95841
[BAD]Angel
2002-08-17 12:45
2002.08.29
Люди, спасайте!!! Уже который день мучаюсь...