|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
30.10.2006, 11:16 | #1 |
Александр
Администратор
Регистрация: 28.10.2006
Сообщений: 17,597
|
работа с дискетой
перенесено со старого форума. сообщение от 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. Спасибо всем буду пробывать.... |