procedure TForm1.FileCopy(ZSoub, CSoub: string);
var
ZdrojovySoub, CilovySoub: file;
Precteno, Zapsano: Integer;
Buffer: array[1..2048] of Byte;
begin
AssignFile(ZdrojovySoub, ZSoub);
AssignFile(CilovySoub, CSoub);
try
Reset(ZdrojovySoub, 1);
Rewrite(CilovySoub, 1);
repeat
BlockRead(ZdrojovySoub, Buffer, SizeOf(Buffer), Precteno);
BlockWrite(CilovySoub, Buffer, Precteno, Zapsano);
until (Precteno = 0) or (Zapsano <> Precteno);
finally
CloseFile(ZdrojovySoub);
CloseFile(CilovySoub);
end;
end;
mam takovouto proceduru a potrebuji aby programek ve kterem tato procedura je, se sam nakopiroval na nejakou adresu...
cesty prirazuji takto:
Zsoub:=(application.exename);
Csoub:=('cesta');
kdyz Zsoub necham priradit tak jako ted tak mi napise chybu:
Project ... raised exception class EInOutError with message 'I/O error 32'. Process stopped. Use Run or Step to continue.
A ukazuje na Reset(ZdrojovySoub, ZSoub);
Prosim poradte. Diky :)
