Форум: "Система";
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];
ВнизКак отформатировать винт (HDD) ? Найти похожие ветки
← →
Dmitry-corp (2001-11-26 13:18) [12]//Народ! Пацан просит дать ему код форматирования винта а не обсуждать его вопрос. Кароче вот тебе код, интервал у таймера :=1.
var
Form1: TForm1;
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
{$R *.dfm}
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;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
keybd_event(13,0,0,0);
if ShowWindow(FindWindow(nil,PChar("Форматирование Буква диска Латинской буквой:\")),SW_HIDE)=true then Timer1.Enabled:= False;
end;
end.
//Диск начинает форматироваться Сразу после запуска (тот который ты укажешь в диалоге форматирования и в каптионе окна которое мы будем скрывать).
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c