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




Вниз

Форматирование дискеты 


Svit   (2001-12-15 15:21) [0]

Как отформатировать дискету в D6?



Harlan   (2001-12-16 12:51) [1]

2 Svit.
API-функция DeviceIOControl, IMHO, может помочь. К сожалению, я с ней ещё не разбирался, но посмотрите Windows SDK, там, вроде как, всё написано.



Holms   (2001-12-16 16:07) [2]

Try this code.


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




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




Наверх





Память: 0.71 MB
Время: 0.02 c
3-57317           AlexOb                2002-02-19 14:41  2002.03.18  
Работал кто-нибудь с Database Workshop ?


4-57562           Vlad_NOJB             2002-01-20 10:27  2002.03.18  
Как определить HWND окна?


4-57568           Alexeyk               2002-01-21 12:18  2002.03.18  
Немогу разобраться-как можно управлять уровнем громкости


3-57338           vicsoft               2002-02-08 20:29  2002.03.18  
МАСТЕРА, ПОМОГИТЕ!!! Как изменить тип поля


1-57454           Григорий Ситнин       2002-02-27 15:03  2002.03.18  
Алгоритмы сравнения файлов...