stavi dva edit boxa edit1 i edit2 i jedno dugme. Unesi ovaj dole dio coda u on click proceduru i u edit boxove putanje i naziv filova . Trebalo bi biti to ja sam ovo napisao za backup i radi odlicno. nadam se da ce ti pomoci
var
NewFileName: string;
Msg: string;
NewFile: TFileStream;
OldFile: TFileStream;
begin
NewFileName := ExtractFilePath(edit2.text) + ExtractFileName(Edit1.Text);
Msg := Format('Ubacite disketu u disketni pogon a: i kliknite na OK', [Edit1.Text, NewFileName]);
if MessageDlg(Msg, mtCustom, mbOKCancel, 0) = mrOK then
begin
OldFile := TFileStream.Create(Edit1.Text, fmOpenRead or fmShareDenyWrite);
try
NewFile := TFileStream.Create(NewFileName, fmCreate or fmShareDenyRead);
try
NewFile.CopyFrom(OldFile, OldFile.Size);
finally
FreeAndNil(NewFile);
end;
finally
FreeAndNil(OldFile);
end;
end;
Potpis
Ako neznas pitaj... ako mozes pomozi..