اجرای وقفه های سخت افزاری در دلفی

[MohsenTi]

سلام دوستان من می خوام وقفه های سخت افزاری مثل وقفه ی 13 از وقفه های بایوس که برای خواند و نوشتن رو دیسک سخت کار برد داره رو تو دلفی اجرا کنم ولی ارور میده کدم اینه

mov ah,02

mov al,01

mov ch,00

mov cl,01

mov dh,00

mov dl,00

mov bx,[x]

int 13h

لطفا برای دسترسی مستقیم به سخت افزار راهنماییم کنید این ویندوز گیر بدی داده

[vcldeveloper]

لطفا برای دسترسی مستقیم به سخت افزار راهنماییم کنید این ویندوز گیر بدی داده

در ویندوزهای برپایه NT، شما در سطح User Mode دسترسی مستقیم به سخت افزار ندارید، و همه کارها باید از طریق APIهای ویندوز انجام بشه. کد شما هم به همین دلیل کار نمیکنه.

برای دسترسی مستقیم به سخت افزار باید برای کرنل ویندوز درایور بنویسید. دلفی برای این کار طراحی نشده، و بطور عادی هم قابلیت کامپایل کد برای کرنل ویندوز را نداره. اگر واقعا قصد نوشتن درایور سطح کرنل را دارید، از یکی از کامپایلرهای C یا ++C استفاده کنید.

[MohsenTi]

درسته حق با شماست .
حالا راه ساده تری هست که من بتونم با دلفی رو سکتور 0 یه فلاپی چیزی بنویسم البته قالب چیزی که می نویسم هم نمی خوام توست ویندوز از قبل تعیین شده باشه.

[Mask]

دوست عزیز آقای کشاورز که فرمودند با دلفی هیچ کاری با سخت افزار نمی تونی انجام بدی چون تو سطح یوزره. باید با c کار کنی.

[joker]

درسته حق با شماست .
حالا راه ساده تری هست که من بتونم با دلفی رو سکتور 0 یه فلاپی چیزی بنویسم البته قالب چیزی که می نویسم هم نمی خوام توست ویندوز از قبل تعیین شده باشه.

توی دلفی هر کاری دلت بخواد میتونی بکنی

این یک مثال برای تغییر سریال نامبره درایوه مثلا ، من دیگه درستش نمیکنم ، خودت سورس را تغییر بده و هربایتی میخوای جایگزین کن ( فقط بپا به جای فلاپی ، بوت لودر ویندوزت را نپرونی :))
http://forum.clubedelphi.net/viewtop...500aa957ec2d81

type 

   TSector = array[0..511] of Byte; 



 procedure ChangeVolumeSerialNumber(Drive: Char; 

   SerialNumber: LongWord); 

   var 

     Boot: TSector; 

   begin 

   ReadBootNT(Drive, Boot); 

   Move(SerialNumber, Boot[39], SizeOf(SerialNumber)); 

   WriteBootNT(Drive, Boot) end; 



A complication occurs, however, because reading and writing the boot sector in NT requires completely different code from that used in reading and writing the boot sector in Win95/98. 



So here's the complete code, taking into account the differences between NT and Win95/98: 





type 

   TSector = array[0..511] of Byte; 



 procedure ReadBootNT(Drive: Char; var Boot: TSector); 

   var 

     BytesRead: Cardinal; 

     H: THandle; 

   begin 

   H := CreateFile(PChar(Format('\\.\%s:', [UpCase(Drive)])), 

     GENERIC_READ, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); 

   if H = INVALID_HANDLE_VALUE then 

     raise Exception.Create(SysErrorMessage(GetLastError)); 

   try 

     if not ReadFile(H, Boot, SizeOf(Boot), BytesRead, nil)then 

       raise Exception.Create(SysErrorMessage(GetLastError)); 

   finally 

     CloseHandle(H) end end; 



 procedure WriteBootNT(Drive: Char; var Boot: TSector); 

   var 

     BytesWritten: Cardinal; 

     H: THandle; 

   begin 

   H := CreateFile(PChar(Format('\\.\%s:', [UpCase(Drive)])), 

     GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); 

   if H = INVALID_HANDLE_VALUE then 

     raise Exception.Create(SysErrorMessage(GetLastError)); 

   try 

     if not WriteFile(H, Boot, SizeOf(Boot), BytesWritten, nil)then 

       raise Exception.Create(SysErrorMessage(GetLastError)); 

   finally 

     CloseHandle(H) end end; 



 type 

   TDiocRegisters = record 

     EBX, EDX, ECX, EAX, EDI, ESI, Flags: LongWord end; 



   TVWin32CtlCode = (ccNone, ccVWin32IntIoctl, ccVWin32Int25, 

     ccVWin32Int26, ccVWin32Int13); 



 function VWin32(CtlCode: TVWin32CtlCode; 

   var Regs: TDiocRegisters): Boolean; 

   var 

     Device: THandle; 

     Count: LongWord; 

   begin 

   Device := CreateFile('\\.\VWIN32', 0, 0, nil, 0, 

     FILE_FLAG_DELETE_ON_CLOSE, 0); 

   if Device = INVALID_HANDLE_VALUE then 

     raise Exception.Create(SysErrorMessage(GetLastError)); 

   try 

     Result := DeviceIoControl(Device, Ord(CtlCode), @Regs, 

       SizeOf(Regs), @Regs, SizeOf(Regs), Count, nil); 

   finally 

     CloseHandle(Device) end end; 



 procedure ReadBoot95(Drive: Char; var Boot: TSector); 

   var 

     Regs: TDiocRegisters; 

   begin 

   with Regs do begin 

     EAX := Ord(UpCase(Drive)) - Ord('A'); 

     EBX := LongWord(@Boot); 

     ECX := 1; 

     EDX := 0 end; 

   if not VWin32(ccVWin32Int25, Regs) then 

     raise Exception.Create(SysErrorMessage(GetLastError)) end; 



 procedure WriteBoot95(Drive: Char; var Boot: TSector); 

   var 

     Regs: TDiocRegisters; 

   begin 

   with Regs do begin 

     EAX := Ord(UpCase(Drive)) - Ord('A'); 

     EBX := LongWord(@Boot); 

     ECX := 1; 

     EDX := 0 end; 

   if not VWin32(ccVWin32Int26, Regs) then 

     raise Exception.Create(SysErrorMessage(GetLastError)) end; 



 procedure ChangeVolumeSerialNumber(Drive: Char; 

   SerialNumber: LongWord); 

   var 

     Boot: TSector; 

   begin 

   case Win32Platform of 

     VER_PLATFORM_WIN32_WINDOWS: 

       ReadBoot95(Drive, Boot); 

     VER_PLATFORM_WIN32_NT: 

       ReadBootNT(Drive, Boot) end; 

   Move(SerialNumber, Boot[39], SizeOf(SerialNumber)); 

   case Win32Platform of 

     VER_PLATFORM_WIN32_WINDOWS: 

       WriteBoot95(Drive, Boot); 

     VER_PLATFORM_WIN32_NT: 

       WriteBootNT(Drive, Boot) end end;

[vcldeveloper]

آقای کشاورز که فرمودند با دلفی هیچ کاری با سخت افزار نمی تونی انجام بدی چون تو سطح یوزره. باید با c کار کنی.

نگفتم کاری نمی تونید بکنید! گفتم هر کاری بخواید بکنید، باید از طریق توابع ویندوز باشه، و مستقیما دسترسی ندارید.
کدی هم که Joker گذاشته، از توابع موجود در User Mode ویندوز استفاده کرده.

[yalda_starry]

man hamino vase C++‎ mikham lotfan rahnamai konid

[یوسف زالی]

اشتباه اومدی..