Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];




Вниз

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


dr0Ne64   (2002-01-24 14:05) [0]

!ВНИМАНИЕ ВОПРОС! Как отформатировать дискету с помощью Delphi 5?



VuDZ   (2002-01-24 14:21) [1]

объясняю:
Есть FormatEx функция в FMIFS.DLL:

VOID FormatEx( PWCHAR DriveRoot,>
DWORD MediaFlag,
PWCHAR Format,
PWCHAR Label,
BOOL QuickFormat,
DWORD ClusterSize,
PFMIFSCALLBACK Callback );

Есть callback функция, которая используется для связи с тем, хто её вызвал.

typedef BOOLEAN (__stdcall *PFMIFSCALLBACK)(
CALLBACKCOMMAND Command,
DWORD SubAction,
PVOID ActionInfo );

Первый аргУмент - что в данный момент делается: есть 16 вариантов ответа, разбирайся с этим сам, если есть желание
ActionInfo - указатель на DWORD - процент завершения работы
В общем разбирайся - наше дело направить на путь истинный - если не получиться - пришлю исходник на Сях, только переводить его бушь сам...



-OGR-   (2002-01-24 14:25) [2]

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;



VuDZ   (2002-01-24 14:47) [3]

как то слишком просто и не интересно :(



Pat   (2002-01-24 16:50) [4]

А чтобы винт форматнуть?



Anatoly Podgoretsky   (2002-01-27 16:51) [5]

Пойдем сложным путем "format A:"




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.024 c
3-90811           Анатолий              2002-03-04 12:04  2002.03.28  
Как использовать метод Refresh в компоненте IBDataSet


1-91003           Novichok2             2002-03-15 11:46  2002.03.28  
фильтрация в SQL


1-90827           IronHawk              2002-03-15 17:09  2002.03.28  
Как обнулить переменную ?


14-91049          McSimm                2002-02-13 15:31  2002.03.28  
Скучно тут как-то...


1-90861           ZORRO                 2002-03-16 21:52  2002.03.28  
Как сделать эфект затемнённого стекла на форме? Тоесть фома будет прозразной но и в то же время затенённой.