Ну смотря вообще, что там у тебя.. а так например мона так...
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
Buf: Byte;
F : TFileStream;
M : TFileStream;
begin
m := TFileStream.Create('E:\xlam.exe',fmOpenRead);
F := TFileStream.create('C:\xlam.exe',fmCreate or fmSharedenyWrite);
while M.position < M.size do
begin
M.readbuffer(buf,Sizeof(buf));
F.Writebuffer(buf,SizeOf(buf));
progressbar1.position := trunc(100*M.position/M.Size);
application.processmessages;
end;
F.free;
M.free;
end;
Я как-то раз таким способом файлы копировал, незнаю.. зачем даж так делал...
==========
всегда играю в flash игры бесплатно на
www.nogame.ru