Einzelnen Beitrag anzeigen

ichbins

Registriert seit: 9. Jul 2005
Ort: Hohenaltheim
1.001 Beiträge
 
Delphi 2005 Personal
 
#2

Re: Geöffnete bzw. gesperrte Datei kopieren

  Alt 4. Nov 2005, 10:44
erstmal: garnicht. du könntest irgendwie ermitteln, welches Programm die Datei verwendet, das abwürgen und es dann nochmal versuchen... nicht besonders elegant. Dann kannst du die Datei beim nächsten Hochfahren (reboot) von Windows kopieren. Es kann allerdings auch sein dass die Datei nur für den Schreibzugriff gesperrt ist (wie z.B. EXE-Datei). Dann machst du das so:
Delphi-Quellcode:
var
  f,t:file of byte;
  buf:array[1..4096] of byte;
  copied:integer;
begin
  assignfile(f,fromfilename);
  filemode:=0; //nur für readaccess öffnen
  reset(f);
  filemode:=1;
  assignfile(g,tofilename);
  rewrite(g);
  while copied>0 do begin
    blockread(f,buf,4096,copied);
    blockwrite(g,buf,copied);
  end;
  closefile(g);
  closefile(f);
  filemode:=2;
end;
Michael Enßlin
  Mit Zitat antworten Zitat