Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];

Вниз

Как отформатировать HDD   Найти похожие ветки 

 
vik   (2001-10-06 14:47) [0]

Подскажите как отформатировать винчестер из программы на Delphi ?
Буду благодарен за любой ответ или ссылку а за исходники вдвойне Виталик.


 
Anatoly Podgoretsky   (2001-10-06 17:29) [1]

Есть такая программа, называется format, запусти ее с нужными параметрами.


 
33   (2001-10-07 15:50) [2]

Вопрос не до конца написан:
"Как отформатировать винчестер из программы на Delphi на
компьютере у "друга".

Может лучше только дискету а ...


 
Dima-k17   (2001-10-13 15:47) [3]

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;


 
ValeraVV   (2001-10-14 09:19) [4]

А зачем ?


 
Anatoly Podgoretsky   (2001-10-14 14:03) [5]

Что бы чистый был :-)


 
Go_Blin   (2001-10-14 22:27) [6]

Мне как-то приснился страшный сон!
Мой препод из колледжа по архитектуре ЭВМ
задал мне вопрос: "Как отформатировать Винт в MS Word!!!"


 
Adder   (2001-10-15 00:10) [7]

2Go_Blin Ну, это не так сложно, как кажется :)



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

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

Наверх





Память: 0.46 MB
Время: 0.005 c
7-90402
Ketmar
2001-10-14 14:10
2002.01.28
как заменить своим или отрубить окошко менеджера задач (ctrl+alt+del) в Win98?


6-90340
Amit
2001-11-03 22:37
2002.01.28
Плиз помогите мне !


7-90403
Ph.D.Kot
2001-10-11 08:56
2002.01.28
Отправка факса через модем. Хелп.


6-90342
glycol
2001-11-05 14:41
2002.01.28
Как проверить eMail ?


1-90315
Shein
2002-01-11 10:19
2002.01.28
Есть проблемка с оболочкой Дельфей





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский