So.. vielleicht ist das dumm von mir, aber mir reichts
Wenn du mir jetzt sagst dass du nur 32-Bit unterstützen willst versuche ich dir dafür schnell was zusammen zu kloppen was auch halbwegs kommentiert ist. Einfach nur, um ein WriteFile() zu verhindern...
Edit: Ich konnte mich nicht zurückhalten, Anhang ist jetzt dabei, für Delphi 7 mit CreateFile() - leider schmiert es direkt ab, wenn man die Original-Funktion aufruft. Ein simples Result := ERROR_ACCESS_DENIED klappt. Wenn jetzt ein schöner Mensch kommt, der sich damit besser auskennt, kann er die Sache vielleicht zum laufen bringen. Ich habe auch mal was mit der uallCollection gebaut, was funktioniert hat, leider kein CreateFile() ... vielleicht kann da jemand weiter helfen?