Kopieren einer Laufenden Datei verhindern?!?!

[Speedmaster]

Ok, habe das nun Gefunden, aber wie genau setze ich es ein??

Delphi-Quellcode:

LPVOID lpvBase = VirtualAlloc( 
                       NULL,  // System wählt Adresse 
                       dwSize,   // Größe der Zuordnung 
                       MEM_RESERVE, // reservierte Seiten zuordnen 
                       PAGE_EXECUTE_READWRITE); // Zugriffsrechte Execute, Read, Write  
 
 
/* Seitenschutz auf 'schreibgeschützt' ändern. */ 
VirtualProtect (lpStack, 
                dwSize, 
                PAGE_READONLY, 
                lpdwOldProt);

DwSize ist vermutlich die größe des Speichers den ich haben möchte(Wusste nur das es ab SP2 nicht mehr geht, wie es geht weiss ich nicht)!

In der Delphi Hilfe stand dazu nicht viel!