Bir Exe Dosyasını String Değişken içersine Saklayan ve
Tekrar String Den Okuyarak Exe Dosyasını Kaydeden Program.
Forma;
2 Adet Button.
1 Adet Label Nesnesi Yerleştirin.
var
  Form1: TForm1;
  Veri:String;
  DosyaUzunluk:Longint=0;
implementation
{$R *.DFM}
{ Dosyaı Oku ve Veri Stringinin içine kaydet }
procedure TForm1.Button1Click(Sender: TObject);
var
  FromF:File;
  NumRead:Integer;
  Buf: array[1..1] of Char;
begin
AssignFile(FromF,'E:\Documents and Settings\GeNiUS\Desktop\a.exe');
Reset(FromF, 1); Veri:=''; DosyaUzunluk:=0;
repeat
BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
Veri:=Veri+Buf[1]; DosyaUzunluk:=DosyaUzunluk+1;
Application.ProcessMessages;
label1.Caption:=inttostr(DosyaUzunluk);
until (NumRead = 0);
CloseFile(FromF);
end;
{ Veri stringini dosyaya yaz }
procedure TForm1.Button2Click(Sender: TObject);
var
 Dosya:TextFile;
 I:Longint;
begin
AssignFile(Dosya,'E:\Documents and Settings\GeNiUS\Desktop\b.exe');
Rewrite(Dosya);
For I:=1 To DosyaUzunluk Do
Begin
Write(Dosya,Veri);
label1.caption:=inttostr(I);
application.ProcessMessages;
End;
CloseFile(Dosya);
End;