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

Вниз

Format a:   Найти похожие ветки 

 
Yanis   (2003-04-15 22:17) [0]

Как форматировать диск 3,5(A:).
Большое спосибо всем кто ответит.


 
neodiX ©   (2003-04-16 02:56) [1]

try this:
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;



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

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

Наверх




Память: 0.46 MB
Время: 0.023 c
1-60183
Newman
2003-06-04 23:47
2003.06.19
Размер MDIChild


3-60057
stkatch
2003-05-28 11:19
2003.06.19
Оператор BREAK в IB


1-60122
vlv
2003-06-06 13:02
2003.06.19
Есть ли готовые пакеты компонент по выводу отчетов в Excel, Word


14-60334
AlekAMD
2003-06-02 04:40
2003.06.19
Работа с Microsoft Oulook из Delphi


1-60265
AlexanderG
2003-06-05 19:57
2003.06.19
Список доступных принтеров