writefile

[alpenrose]

Ich möchte in WIN7 auf einer FAT32-Partition beliebige Sektoren mit writefile schreiben. readfile funktioniert problemlos, writefile liefert Error 5 (access denied).

Code:

...
...
c:='\\.\PhysicalDrive'+dtnr+chr(0);
a:=createfile(pchar(c),GENERIC_READ+GENERIC_WRITE, FILE_SHARE_READ+FILE_SHARE_WRITE,nil,OPEN_EXISTING ,FILE_FLAG_WRITE_THROUGH+FILE_FLAG_NO_BUFFERING,0) ;
x:=DeviceIoControl(a,$90020,NIL,0,NIL,0,br,NIL); //FSCTL_DISMOUNT_VOLUME=$90020
x:=DeviceIoControl(a,$90018,NIL,0,NIL,0,br,NIL); //FSCTL_LOCK_VOLUME=$90018
...
...
procedure sektorlesenuv(var bufferuv:array of byte);
var ps,psh,psl,pslh,psll:comp;
vsh,vsl,b:long;
x:boolean;
br,bp:dword;
begin
bp:=512*spc;
ps:=sektorakt*512;
psh:=int(ps/zweih32);
psl:=ps-psh*zweih32;
vsh.highword:=0;
vsh.lowword:=trunc(psh);
pslh:=int(psl/zweih16);
psll:=psl-pslh*zweih16;
vsl.highword:=trunc(pslh);
vsl.lowword:=trunc(psll);
b:=setfilepointer(a,vsl,@vsh,FILE_BEGIN);
x:=readfile(a,bufferuv[0],bp,br,nil);
end;
...
...
procedure sektorschreibenuv(bufferuv:array of byte);
var ps,psh,psl,pslh,psll:comp;
vsh,vsl,b:long;
x:boolean;
le:word;
br,bp:dword;
begin
bp:=512*spc;
ps:=sektorakt*512;
psh:=int(ps/zweih32);
psl:=ps-psh*zweih32;
vsh.highword:=0;
vsh.lowword:=trunc(psh);
pslh:=int(psl/zweih16);
psll:=psl-pslh*zweih16;
vsl.highword:=trunc(pslh);
vsl.lowword:=trunc(psll);
b:=setfilepointer(a,vsl,@vsh,FILE_BEGIN);
x:=writefile(a,bufferuv[0],bp,br,nil);
end;
...
...
closehandle(a)
...
...


Erklärungen:dtnr ist ein Integerwert
spc sind die Sektoren pro Cluster
sektorakt ist ein beliebiger physischer Sektor
Prozedur sektorlesenuv funktioniert einwandfrei
Prozedur sektorschreibenuv liefert für x den Wert false und für br den Wert 0
getlasterror liefert für writefile den Wert 5

[Andreas13]

Es hängt sicherlich mit den Zugriffsrechten zusammen, daß Du nicht schreiben darfst. Versuch mal Dein Programm mit der Option "Als Administrator ausführen" zu starten. Aber das ist noch keine Garantie dafür...
Gruß, Andreas
PS:
Du solltest künftig Deinen Delphi-Code wegen der besseren Lesbarkeit über das entsprechende Symbol der Menüleiste des Editors formatiert
einfügen.

[alpenrose]

Hallo Andreas13!

Das Programm hab ich natürlich mit Administratorrechten gestartet - ändert nichts!

Die Formatierbarkeit des Codes über den Editor war mir unbekannt, da ich neu bin in diesem Forum.

Tschüss

[Luckie]

Die Frage bei CreateFile zum Beispiel werden mit or verknüpft und nicht mit einem Plus.

[alpenrose]

Hallo Lucky!

Or und Plus sind in diesem Fall identisch, da die einzelnen 1er-Bits der Konstaten an verschiedenen Stellen stehen.
Hast aber Recht, dass Or sicherer (und allgemeiner) wäre!

Tschüss

[Luckie]

Guck mal hier http://michael-puff.de/Programmierung/Delphi/Programme/ nach DiskImageNT. Ich weiß aber nicht, ob ich damals auch das Schreiben umgesetzt habe.

[p80286]

Welches Laufwerk willst Du denn beschreiben?
C: wird von Windows als der eigene Hinterhof betrachtet, da geht ohne Systemtreiber nichts soweit ich weiß.

Gruß
K-H

[alpenrose]

Hallo K-H!

Meine interne HD beherbergt die 1.Partition C: mit WIN7 formatiert mit NTFS und die 2.Partition G: als Datenpartition formatiert mit FAT32. Diese 2.Partition will ich beschreiben.

Das Programm funktioniert aber auch dann nicht, wenn ich eine externe HD (angebunden über USB) und formatiert mit FAT32 beschreiben will.

Dass auf C: nix geht, ist mir schon bekannt!

Tschüss

[Andreas13]

Versuch's mal mit dem Attribut FILE_WRITE_ATTRIBUTES.
Gruß, Andreas

[alpenrose]

Hallo Andreas13!

In der Dokumentation von createfile ( https://docs.microsoft.com/en-us/win...pi-createfilea ) gibts dieses Attribut nicht. Auch meine Delphi-Version kennt diese Konstante nicht. Wo hast du dieses Attribut her?

Tschüss