Programmierung

var bufferp:array[0..511] of byte;
.
.
.
c:='\\.\PhysicalDrive1'+chr(0);
a:=createfile(pchar(c),GENERIC_READ+GENERIC_WRITE,FILE_SHARE_READ+FILE_SHARE_WRITE,nil,OPEN_EXISTING,0,0);
for i := 0 to 511 do bufferp:=0;
b:=setfilepointer(a,bootsectorpos,nil,FILE_BEGIN); //Bootsektor einer FAT32-Partition auf einer externen USB-HDD
bp:=512;
x:=writefile(a,bufferp[0],bp,b,nil); //Bootsektor schreiben - das funktioniert

b:=setfilepointer(a,bootsectorposbkup,nil,FILE_BEGIN); //Backup-Bootsektor (nur 6 Sektoren weiter) von obiger Partition
bp:=512;
x:=writefile(a,bufferp[0],bp,b,nil); //Backup-Bootsektor schreiben - das funktioniert nicht (access denied)
closehandle(a);
.
.
.

Dieses Programmfragment (in Delphi) soll den Bootsektor und den Backup-Bootsektor einer FAT32-Partition auf einer externen USB-HDD löschen. Das Löschen des Bootsektors funktioniert, beim Löschen des Backup-Bootsektors erhalte ich den Fehler: Zugriff verweigert. Woran könnte das liegen?