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

Вниз

кто знает как отформатировать дискету?   Найти похожие ветки 

 
Фукс   (2002-11-16 13:00) [0]

кто знает как из своей программы отформатировать дискету?


 
Eugen Honeker   (2002-11-16 14:44) [1]


procedure FormatDriveDialog;
begin
ShellExecute(Application.Handle,
"Open",
"Rundll32.exe",
"Shell32.dll,SHFormatDrive",
"C:\",
SW_SHOWNORMAL);
end;

function SHFormatDrive(hWnd : HWnd;
Drive, fmtID, Options : LongInt):longint;
stdcall; external "shell32.dll";

procedure QuietFormatDrive;
const
SHFMT_ID_DEFAULT = $FFFF;
SHFMT_OPT_QUICK = $0000;
SHFMT_OPT_FULL = $0001;
SHFMT_OPT_SYSONLY = $0002;
SHFMT_ERROR = $FFFFFFFF;
SHFMT_CANCEL = $FFFFFFFE;
SHFMT_NOFORMAT = $FFFFFFFD;
begin
case SHFormatDrive(Application.Handle, 0, SHFMT_ID_DEFAULT, SHFMT_OPT_FULL) of
SHFMT_ERROR : ShowMessage("Error on last format, drive may be formatable");
SHFMT_CANCEL : ShowMessage("Last format was canceled");
SHFMT_NOFORMAT : ShowMessage("Drive is not formatable");
end;
end;


 
Фукс   (2002-11-16 15:09) [2]

а винчестер можно так отформатировать?



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

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

Наверх




Память: 0.46 MB
Время: 0.008 c
14-1869
diww
2002-12-11 14:10
2003.01.02
возможно ли такое? чисто теоретически


1-1779
Julya
2002-12-18 11:53
2003.01.02
Как правильно коннектиться к ExcelApplication??


1-1778
arnold
2002-12-20 10:39
2003.01.02
Обмен между программами


3-1763
yaJohn
2002-12-11 13:13
2003.01.02
Как заставить TClientDataSet перефильтроваться


1-1832
SDS
2002-12-20 17:46
2003.01.02
Есть цвет RGB надо узнать какой цвет ему