Delphi-PRAXiS - Delphi writefile

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)

- - Delphi writefile (https://www.delphipraxis.net/201647-writefile.html)

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

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.

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

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

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

Guck mal hier

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

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

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

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

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

Hallo Alpenrose,
ich benutze Delphi XE5 Professional.FILE_WRITE_ATTRIBUTES ist dort zu finden in der Online-Hilfe unter ms-help://embarcadero.rs_xe5/FileIO/fs/file_security_and_access_rights.htm. Ich befürchte jedoch, daß es Dir doch nicht weiter helfen wird, denn dort steht:

"File Security and Access Rights
...
FILE_WRITE_ATTRIBUTES: The right to write file attributes."
d.h. das ist nur die Berechtigung, die File-Attribute zu ändern.

Sorry, Gruß, Andreas
PS:
Du solltest Deine Delphi-Version in Deinem Profil eintragen.

Schau Dir mal dieses Listing zum Patchen von Dateien an:

https://www.delphi-treff.de/tipps-tr...teien-patchen/ .
Vielleicht hilft es Dir weiter oder liefert Dir einige Ideen.
Gruß, Andreas

Mein Programm hast du dir mal angeguckt?

Zitat:

Zitat von Luckie (Beitrag 1440868)

Mein Programm hast du dir mal angeguckt?

Kann man damit unter Windows 10 ein Diskcopy von einer virtuellen Diskette auf eine reale Diskette machen?
Wir müssen immer noch mit Disketten arbeiten und ein Kopieren aller Dateien (virtuelles Laufwerk)auf eine Diskette dauert ewig. Mit Diskcopy ging das früher viel schneller.

Das kann ich dir nicht sagen. 32 Bit unter Windows 2000/XP geschrieben. Aber die Sourcen liegen bei und können verwendet werden. Man könnte es also als Grundgerüst nehmen, denke ich.

Hallo Luckie!

Dein Programm DiskImageNT hab ich mir angeschaut.
Du verwendest als Pfad für createfile \\.\+Buchstabe -->Das öffnet einen Datenträger logisch.
Ich muss den Datenträger aber physisch öffnen mit: \\.\PhysicalDrive+Nummer (ich brauche den Partitionssektor und den Bootsektor).
Das Verhalten von writefile scheint sich dadurch wesentlich zu ändern.

Tschüss

Oh. Ok. Ich habe den Code gute 10 Jahre nicht mehr gesehen. :oops:

Problem gelöst

Hallo Luckie!

Hab das Problem jetzt selbst gelöst.
Und zwar habe ich den Datenträger nur für writefile logisch geöffnet und die physischen Sektornummern durch die logischen erseetzt. Jetzt läuft das Programm fein!
Denkanstoss kam von deinem Programmcode.

Danke und Tschüss

Super. Das freut mich.