این روتین رو من تو Win9x استفاده کردهام (اون قدیما). اصولا باید تو NT Based هم کار کنه، اما تست نکردهام:
<div dir="ltr">
unit WinFormatFloppy;
interface
uses
windows;
type
NumBytes = (b128, b256, b512, b1024);
TSecFormat = packed record
TrackNum : byte;
SideNum : byte;
LogSecNum : byte;
NumBytesInSec : NumBytes;
end;
TSectorsFormat = array[0..0] of TSecFormat;
PSectorsFormat = ^TSectorsFormat;
function FormatTrack(DriveNum, NumSectors : byte;
SectorsFormat : PSectorsFormat) : integer;
function SetMediaTypeForFormat(DriveNum, NumTracks,
SecPrTrack : integer) : integer;
implementation
const
VWIN32_DIOC_DOS_INT13 = 4; // Performs BIOS Interrupt 13h commands
type
PDIOC_REGS = ^TDIOC_REGS;
TDIOC_REGS = packed record
case byte of
0 : ( EBX : dword;
EDX : dword;
ECX : dword;
EAX : dword;
EDI : dword;
ESI : dword;
Flags : dword);
1 : ( BX : word; unused1 : word;
DX : word; unused2 : word;
CX : word; unused3 : word;
AX : word; unused4 : word;
DI : word; unused5 : word;
SI : word);
2 : ( BL,BH : byte; unused6 : word;
DL,DH : byte; unused7 : word;
CL,CH : byte; unused8 : word;
AL,AH : byte);
end;
function DoIOCTL(Regs : PDIOC_REGS; IoControlCode : DWORD) : boolean;
var
hDevice : THANDLE;
cb : DWORD;
begin
hDevice := CreateFile('\\.\vwin32',0,0,nil,0,
FILE_FLAG_DELETE_ON_CLOSE,0);
if hDevice = INVALID_HANDLE_VALUE then
begin
result := false;
exit;
end;
Regs.Flags := $0001; // assume error (carry flag set)
result := DeviceIoControl( hDevice, IoControlCode,
Regs, sizeof(TDIOC_REGS),
Regs, sizeof(TDIOC_REGS),
cb, nil);
CloseHandle(hDevice);
end;
{
INT 13 FUNCTION 1 - Disk Status
AH = 01
on return:
AL = 00 no error
01 bad command passed to driver
02 address mark not found or bad sector
03 diskette write protect error
04 sector not found
05 fixed disk reset failed
06 diskette changed or removed
07 bad fixed disk parameter table
08 DMA overrun
09 DMA access across 64k boundary
0A bad fixed disk sector flag
0B bad fixed disk cylinder
0C unsupported track/invalid media
0D invalid number of sectors on fixed disk format
0E fixed disk controlled data address mark detected
0F fixed disk DMA arbitration level out of range
10 ECC/CRC error on disk read
11 recoverable fixed disk data error, data fixed by ECC
20 controller error (NEC for floppies)
40 seek failure
80 time out, drive not ready
AA fixed disk drive not ready
BB fixed disk undefined error
CC fixed disk write fault on selected drive
E0 fixed disk status error/Error reg = 0
FF sense operation failed
- codes represent controller status after last disk operation
- returns the status byte located at 40:41 in the ~BIOS Data Area~
INT 13 FUNCTION 18 - Set Media Type for Format (BIOS date specific)
AH = 18h
CH = lower 8 bits of number of tracks (0-1023 dec., see below)
CL = sectors per track (1-17 dec., see below)
DL = drive number (0=A:, 1=2nd floppy, 80h=drive 0, 81h=drive 1)
on return:
ES:DI = pointer to 11-byte ~Disk Base Table~ (DBT)
AH = 00h if requested combination supported
= 01h if function not available
= 0Ch if not supported or drive type unknown
= 80h if there is no media in the drive
CF = 0 if successful
= 1 if error
- valid only for XT BIOS dated after 1/10/86, AT after 11/15/86,
XT 286 and the PS/2 line
- only disk number is checked for validity
- track number is a 10 bit value taken from the 2 high order
bits of CL and the 8 bits in CH (low order 8 bits of track):
¦F¦E¦D¦C¦B¦A¦9¦8¦7¦6¦5¦4¦3¦2¦1¦0¦ CX
¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ +-------------- sectors per track count
¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ +-------------- high order 2 bits track/cyl count
+-------------------------- low order 8 bits of track/cyl count
}
function SetMediaTypeForFormat(DriveNum, NumTracks,
SecPrTrack : integer) : integer;
var
regs : TDIOC_REGS;
begin
fillchar(regs,sizeof(TDIOC_REGS),0);
regs.DL := DriveNum;
regs.CH := NumTracks;
regs.CL := SecPrTrack;
regs.AH := $18;
if DoIOCTL(@regs, VWIN32_DIOC_DOS_INT13) then
result := regs.AH
else
result := -1;
end;
{
INT 13 FUNCTION 5 - Format Disk Track
AH = 05
AL = Number of sectors to create on this track
CX = track/cylinder number (see below for format)
DH = head number (0-15 dec.)
DL = drive number (0=A:, 1=2nd floppy, 80h=drive 0, 81h=drive 1)
ES:BX = pointer to block of "track address fields" containing four
byte fields for each sector to be formatted of the form:
1 byte track number
1 byte head number Size #
1 byte sector number Codes Bytes
1 byte sector size code
0 128
1 256
2 512
3 1024
on return:
AH = status (see ~INT 13,STATUS~)
CF = 0 if successful
= 1 if error
- BIOS disk write attempts should reset the controller on error
- ~INT 13,17~ should be called to set the DASD type
- this function is capable of doing great damage if the parameters
are incorrectly specified; only the drive number is checked
- initializes disk address fields and data sectors
- after INT 13 disk format, if the disk is to be used with DOS the
DOS data structure must be written
- only the disk number is checked for validity
- the parameters in CX change depending on the number of cylinders;
the track/cylinder number is a 10 bit value taken from the 2 high
order bits of CL and the 8 bits in CH (low order 8 bits of track):
¦F¦E¦D¦C¦B¦A¦9¦8¦7¦6¦5-0¦ CX (cylinder value 0-1023 dec.)
¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ +----- unused
¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ +--------- high order 2 bits of track/cylinder
+------------------------ low order 8 bits of track/cyl number
}
function FormatTrack(DriveNum,NumSectors : byte;
SectorsFormat : PSectorsFormat) : integer;
var
regs : TDIOC_REGS;
begin
fillchar(regs,sizeof(TDIOC_REGS),0);
regs.EBX := DWORD(SectorsFormat);
regs.DL := DriveNum;
regs.DH := SectorsFormat[0].SideNum;
regs.CH := SectorsFormat[0].TrackNum;
regs.AL := NumSectors;
regs.AH := $05;
if DoIOCTL(@regs, VWIN32_DIOC_DOS_INT13) then
result := regs.AH
else
result := -1;
end;
end.
</div>
موفق باشید.