Du kannst aber auch ein Prog schreiben, des mit nem TFileStream auf die Datei zugreift und nicht durch Free freigibt.
z.B.:
Delphi-Quellcode:
Var datei: TFileStream; //Globale Variable
procedure TForm1.Create(...)
Begin
TFileStream.Create(Dateiadresse,fmOpenRead); //Hier wird die Datei am Anfang des Progs aufgerufen...
end;
procedure TForm1.Destroy(...)
Begin
TFileStream.Free; //...und dann mit dem Schließen wieder freigegeben
end;
Des dürfte die Datei solange kopiergeschützt halten wie des Prog läuft, schätz ich mal.
Für die einen ist Windows nur ein Betriebssystem, für die anderen ist es der größte Virus der Welt.