Thema: Delphi Datei ist in Benutzung

Einzelnen Beitrag anzeigen

Benutzerbild von VirusXP
VirusXP

Registriert seit: 29. Dez 2003
Ort: Ingolstadt
33 Beiträge
 
Delphi 2007 Professional
 
#5

Re: Datei ist in Benutzung

  Alt 8. Jun 2005, 20:53
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.
  Mit Zitat antworten Zitat