Главная страница
    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.45 MB
Время: 0.003 c
1-90281
Leva
2002-01-10 12:36
2002.01.28
StayOnTop-форма исчезает


14-90381
Ежик
2001-12-02 18:31
2002.01.28
А кто-то обещал выпустить к 1 декабря......


4-90417
ogu
2001-11-25 22:23
2002.01.28
ProgressBar на API


1-90303
KingSize
2002-01-11 11:35
2002.01.28
Имя компьютера в сети


4-90429
Yuriy
2001-11-25 22:13
2002.01.28
ShellExecute ?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский