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




Вниз

Есть ли у кого - готовая прога ФОРМАТИРОВАНИЕ ДИСКЕТ? 


LORN   (2001-12-19 22:13) [0]

Надо в обяз скоро сдать лабу.. Сам не напишу!
Нигде в инете прог не найду.. ищу 4 день!
Одни компоненты.. плз.. если есть у кого то с графическим интерфейсом или хотя-бы дос версия, ВЫШЛИТЕ исходники! (чёрт с ним, накрайняк любой язык подойдёт)



masha   (2001-12-22 02:02) [1]

Форматирование диска в 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;




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




Наверх





Память: 0.72 MB
Время: 0.021 c
4-66704           masha                 2001-12-22 02:00  2002.02.21  
WIN API


6-66635           SemFLY                2001-12-03 23:08  2002.02.21  
Мастера, подскажите, как шифровать траффик между Клиент Сервер


1-66561           maks_f                2002-02-05 14:40  2002.02.21  
Как получить процедуру из DLL


1-66550           Sergey13              2002-02-05 10:43  2002.02.21  
Алгоритм перевода даты из LINUX в DOS формат


1-66625           Олег Лаукарт          2002-02-06 11:14  2002.02.21  
Показать немодальную форму из потока