不需要檔案配置表來存取檔案API |
尚未結案
|
lukyshu
中階會員 ![]() ![]() ![]() 發表:16 回覆:120 積分:93 註冊:2002-04-19 發送簡訊給我 |
|
Zard
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:24 回覆:396 積分:539 註冊:2003-11-26 發送簡訊給我 |
|
syntax
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:26 回覆:1139 積分:1258 註冊:2002-04-23 發送簡訊給我 |
|
暗黑破壞神
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:9 回覆:2301 積分:1627 註冊:2004-10-04 發送簡訊給我 |
|
alanktop
一般會員 ![]() ![]() 發表:7 回覆:21 積分:5 註冊:2005-03-01 發送簡訊給我 |
暗黑大大说得很对,标记为BAD是可以躲过操作系统的读写的,于是你自己的程序可以放心的直接进行读写了。 还有一个简单方法,你可以单独分一个小的NTFS格式磁盘分区,将这个分区的安全所属帐号全部拿掉,包括Administrator,于是任何程序都对该分区没有读写能力。但是剩下的工作是,你必须清楚地计算该分区的磁道、扇区范围。 下面这个例子是对磁盘直接底层读写的方式,仅供参考: unit Unit1; interface uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls; type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; var
Form1: TForm1;
hDeviceHandle: Thandle; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject);
const
BytesPerSector=512;
SectorCount=1;
SectorStart=0;
drive='\\.\C:';
var
str:string;
p:pchar;
i:Cardinal;
begin
hDeviceHandle := CreateFile(drive, GENERIC_ALL, //如果只是读扇区,可以用GENERIC_READ
FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING,0, 0);
if (hDeviceHandle <> INVALID_HANDLE_VALUE) then
begin
p:=allocmem(SectorCount*BytesPerSector); FileSeek(hDevicehandle,SectorStart*BytesPerSector,0);
if FileRead(hDevicehandle,p[0],SectorCount*BytesPerSector)<>SectorCount*BytesPerSector then
raise exception.create('Read错误'); str:='';
for i:=0 to 512-1 do
begin
str:=str+format('%.2x',[integer(p[i])]);
if i mod 16=15 then str:=str+#13;
end;
showmessage(str); FileSeek(hDevicehandle,SectorStart*BytesPerSector,0);
if FileWrite(hDevicehandle,p[0],SectorCount*BytesPerSector)<>SectorCount*BytesPerSector then
raise exception.create('Write错误%d'); freemem(p,SectorCount*BytesPerSector);
closehandle(hDeviceHandle);
end;
end; procedure TForm1.Button2Click(Sender: TObject);
const
BytesPerSector=512;
SectorCount=1;
SectorStart=0;
drive='\\.\PHYSICALDRIVE0';
var
str:string;
p:pchar;
i:Cardinal;
begin
hDeviceHandle := CreateFile(drive, GENERIC_ALL, //如果只是读扇区,可以用GENERIC_READ
FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING,0, 0);
if (hDeviceHandle <> INVALID_HANDLE_VALUE) then
begin
p:=allocmem(SectorCount*BytesPerSector); FileSeek(hDevicehandle,SectorStart*BytesPerSector,0);
if FileRead(hDevicehandle,p[0],SectorCount*BytesPerSector)<>SectorCount*BytesPerSector then
raise exception.create('Read错误'); str:='';
for i:=0 to 512-1 do
begin
str:=str+format('%.2x',[integer(p[i])]);
if i mod 16=15 then str:=str+#13;
end;
showmessage(str); FileSeek(hDevicehandle,SectorStart*BytesPerSector,0);
if FileWrite(hDevicehandle,p[0],SectorCount*BytesPerSector)<>SectorCount*BytesPerSector then
raise exception.create('Write错误%d'); freemem(p,SectorCount*BytesPerSector);
closehandle(hDeviceHandle);
end;
end; end.
|
alanktop
一般會員 ![]() ![]() 發表:7 回覆:21 積分:5 註冊:2005-03-01 發送簡訊給我 |
|
syntax
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:26 回覆:1139 積分:1258 註冊:2002-04-23 發送簡訊給我 |
|
alanktop
一般會員 ![]() ![]() 發表:7 回覆:21 積分:5 註冊:2005-03-01 發送簡訊給我 |
|
timhuang
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:78 回覆:1815 積分:1608 註冊:2002-07-15 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |