了解實模式程式設計的朋友都知道,可以利用BIOS的INT 13中斷來進行磁碟的絕對讀寫,但在NT環境下,卻不能使用INT 13中斷來直接讀寫硬碟.在這裡,我們可以利用CreateFile並將路徑名稱設為"//./X:"來開啟邏輯磁碟,並進行讀取和寫入.在進裡X為磁碟機.
CreateFile函式原型如下:
HANDLE CreateFile(LPCTSTR lpFileName, DWord dwDesiredaccess, DWORD dwShareMode,LPSECURITY_ATTRIBUTES lpSecurityAttributes, DWORD dwCreationDistribution, DWORD dwFlagsAndAttributes, HANDLE hTemplateFile);
lpFileName: 要開啟的檔案的名字
dwDesiredAccess: 若為GENERIC_READ 表示允許對設備進行讀取存取；如果為GENERIC_WRITE 表示允許對設備進行寫入存取（可組合使用）；如果為零，表示只允許獲取與一個設備相關的資訊.
dwShareMode: 零表示不共用；FILE_SHARE_READ 和/或FILE_SHARE_WRITE 表示允許對檔案進行共用存取
lpSecurityAttributes: 指向一個SECURITY_ATTRIBUTES結構的指針，定義了檔案的安全特性
dwCreationDistribution: 建立方式
dwFlagsAndAttributes: 其它屬性
hTemplateFile: 如果不為零，則指定一個檔案句柄。新檔案將從這個檔案複製擴充屬性
下面的例子在Windows xp下編譯通過, 其實現的功能為讀取C盤的引導扇區,並將讀出的數據顯示出來.
PRogram ReadDisk;
uses
SysUtils,
Windows;
var
Buf: array [0..511] of Byte; //資料緩衝區
ShowText, TmpStr: string;
FileHandle: THandle;
ReadCount, i: Cardinal;
begin
//開啟磁碟
FileHandle := CreateFile('//./C:', GENERIC_READ, FILE_SHARE_READ or FILE_SHARE_WRITE,
nil, OPEN_EXISTING, 0, 0);
if FileHandle = INVALID_HANDLE_VALUE then
begin
MessageBox(GetDesktopWindow, '開啟磁碟失敗', 'ERROR', MB_OK);
ExitProcess(0);
end;
//讀出開機磁區數據
if ReadFile(FileHandle, Buf, 512, ReadCount, nil) then
begin
SetLength(ShowText, Length(Buf) * 3);
//將資料轉為字符串
for i := Low(Buf) to High(Buf) do
begin
TmpStr := Format('%2.2x ', [Buf[i]]);
CopyMemory(@ShowText[i*3+1], @TmpStr[1], 3);
end;
end;
MessageBox(GetDesktopWindow, PChar(ShowText), '開機磁區', MB_OK);
CloseHandle(FileHandle);
ExitProcess(0);
end.