Dosya Kopyalama

Yazan:
4 Ekim 2010
Reklam Alanı

procedure CopyFile(FromFileName, ToFileName: string);
var
FromFile, ToFile: File;
begin
AssignFile(FromFile, FromFileName); { Assign FromFile to FromFileName }
AssignFile(ToFile, ToFileName); { Assign ToFile to ToFileName }
Reset(FromFile); { Open file for input }
try
Rewrite(ToFile); { Create file for output }
try
if LZCopy(TFileRec(FromFile).Handle, TFileRec(ToFile).Handle) < 0
then
raise EInOutError.Create(‘Error using LZCopy’)
finally
CloseFile(ToFile); { Close ToFile }
end;
finally
CloseFile(FromFile); { Close FromFile }
end;
end;

Benzer Yazılar:

  1. Delphi ile Mp3 dosya çalmak çaldırmak
  2. Tüm Dosya ve Klasörlerin Listesini Almak
  3. 2009 Yılının Süper Hızlı Arabaları
  4. Geçmişten Bu güne Dünya Kupası Topları
 Etiketler:
Borland Delphi

Eğer yazıyı beğendiyseniz ya da ekleyecekleriniz varsa, lütfen yorumunuz yazın veya RSS aboneliği ile yeni yazılardan anında haberdar olun.

Yorum yapın

Güvenlik Kodunun Resmi
*

Gizlilik Politikası