работа с дискетой

[Alar]

перенесено со старого форума. сообщение от Noor.

Подскажите пожалуйста как можно записать программно информацию на дискету (Папки,файлы - находятся в каталоге с прогой) и также очистить дискету ПРОГРАММНО (без указания имен файлов и папок) чтоб очистило дискету напрочь

перенесено со старого форума. сообщение от Virtson.

Очистить диск напрочь в win32:

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

...
implementation
...

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;

перенесено со старого форума. сообщение от zetrix.

А в чём проблема копирования? Просто копировать файл из *** в A:\...

перенесено со старого форума. сообщение от Alar.

солидарен. нечего заморачиваться.

перенесено со старого форума. сообщение от Noor.

Ребята я же и прошу помогите, я не знаю как скопировать на Драйв А,дайте примерчик чтоли.....

перенесено со старого форума. сообщение от zetrix.

Держи примерчик:

copyfile('C:ATT.doc','H:ATT.doc',tr ue);

ну наверно понятно: откуда, куда, а последний параметр если true, значит если на H: уже есть ATT.doc , то он будет перезаписан, а если будет FALSE - то копирования не будет. Подробную инфу по этой функции найдёшь в справочнике по WinAPI (на сайте есть!).

P.S.: Я проверял для копирования с одного харда на другой, т.к. дискет нет, и уже года 2 ими не пользуюсь, но надеюсь всё будет ОК.

перенесено со старого форума. сообщение от Alar.

с дискетой, нужно работать, как с обычным диском. если с диском работало, то и с дискетой будет работать.

перенесено со старого форума. сообщение от execom.

Копирование на дискету точно так же как на диск.
Очистить дискету мжно командной строкой rmdid /s /q a:\
Форматнуть дискету можно командной строкой
(быстро) format a: /q /x /y
(полностью) format a: /x /y

перенесено со старого форума. сообщение от zetrix.

(быстро) format a: /q /x /y
(полностью) format a: /x /y

хм... как давноя не пользовался этими командами...
Нашёл дискету (это стоило некоторых трудов!). Всё ок , работает.

перенесено со старого форума. сообщение от Noor.

Спасибо всем буду пробывать....