function ExtractFilePath(const FileName: string): string;procedure TForm1.Save1Click(Sender: TObject);var
NewFileName: string;
Msg: string;
NewFile: TFileStream;
OldFile: TFileStream;
begin
NewFileName := ExtractFilePath(Application.ExeName) + ExtractFileName(Edit1.Text);
Msg := Format('Copy %s to %s?', [Edit1.Text, NewFileName]);
if MessageDlg(Msg, mtConfirmation, 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;end;
NewFileName: string;
Msg: string;
NewFile: TFileStream;
OldFile: TFileStream;
begin
NewFileName := ExtractFilePath(Application.ExeName) + ExtractFileName(Edit1.Text);
Msg := Format('Copy %s to %s?', [Edit1.Text, NewFileName]);
if MessageDlg(Msg, mtConfirmation, 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;end;
解决方案 »
- 如何将dbgrideh 选中的多行,插入到一张临时表中?
- RAV E设置打印机
- getwindowrect不能正确使用,请指教
- QQ使用的功能类似pagecontrol的是什么控件?
- 如何建立一个access数据库。
- 如何将binary file转化为text file,谢谢!
- 如何把EXCEL听的数据导入到ORACLE数据库中,分可不少,在线求助!!,高手赐教!!!
- Excel导入Access 在delphi里怎样从第几行第几列开始导入
- 我想做一个像office小助手, 是怎么做的。 高分!!!!!!!!!!!!
- 看看这里,为您省¥500……
- 问一条Access里面Sql语句的写法,急!!!
- 如何能调过?(在线等你)
selectDirectory();