delphi savedialog保存文件覆盖提示_运用EasyRecovery,恢复丢失的音频文件

最常见的音频文件包括了音乐文件和录音文件,简单地来说都是指有声音的文件,一般都是保存在电脑硬盘或者其它存储设备里面的。

那硬盘里面的音频文件是真的就找不回来了吗?EasyRecovery数据恢复软件就可以恢复音频文件。

具体恢复步骤如下:

选择恢复内容。打开已经安装好的数据恢复软件,进入第一个操作界面,我们可以看到这里要选择恢复内容,这里我们选择恢复“音频”,点击右下角的“下一个”。

提示:在使用该软件之前需要将其激活,否则无法实现恢复操作,首先需要获取EasyRecovery激活码进行激活。

7678cc6e414c7836ae9d4e4d00e210f5.png

图1:恢复音频文件

确定好恢复的数据类型为音频后,就可以进一步选择恢复位置,然后进行扫描,扫描过程中不需要任何操作,等待软件自动扫描完成,就会弹出成功完成扫描的对话框,直接单击OK即可。

扫描完成后,就会显示出在扫描位置下的音频文件,要恢复的话,直接选中鼠标右键,选择恢复,这样就会弹出恢复窗口,选择保存的位置(注意不要保存在原路径下),就可以进行保存了。

be43e92277ee669fadb6d972bb50a8ad.png

图2:保存文档

注意:在音频文件被误删之后,一定要避免继续操作,防止原来的文件被覆盖。为了达到恢复的较好效果,可以是在删除音频文件的同时尽早使用EasyRecovery软件进行恢复。

一; delphi 快速导出excel uses ComObj,clipbrd; function ToExcel(sfilename:string; ADOQuery:TADOQuery):boolean; const xlNormal=-4143; var y : integer; tsList : TStringList; s,filename :string; aSheet :Variant; excel :OleVariant; savedialog :tsavedialog; begin Result := true; try excel:=CreateOleObject('Excel.Application'); excel.workbooks.add; except //screen.cursor:=crDefault; showmessage('无法调用Excel!'); exit; end; savedialog:=tsavedialog.Create(nil); savedialog.FileName:=sfilename; //存入文件 savedialog.Filter:='Excel文件(*.xls)|*.xls'; if savedialog.Execute then begin if FileExists(savedialog.FileName) then try if application.messagebox('该文件已经存在,要覆盖吗?','询问',mb_yesno+mb_iconquestion)=idyes then DeleteFile(PChar(savedialog.FileName)) else begin Excel.Quit; savedialog.free; //screen.cursor:=crDefault; Exit; end; except Excel.Quit; savedialog.free; screen.cursor:=crDefault; Exit; end; filename:=savedialog.FileName; end; savedialog.free; if filename='' then begin result:=true; Excel.Quit; //screen.cursor:=crDefault; exit; end; aSheet:=excel.Worksheets.Item[1]; tsList:=TStringList.Create; //tsList.Add('查询结果'); //加入标题 s:=''; //加入字段名 for y := 0 to adoquery.fieldCount - 1 do begin s:=s+adoQuery.Fields.Fields[y].FieldName+#9 ; Application.ProcessMessages; end; tsList.Add(s); try try ADOQuery.First; While Not ADOQuery.Eof do begin s:=''; for y:=0 to ADOQuery.FieldCount-1 do begin s:=s+ADOQuery.Fields[y].AsString+#9; Application.ProcessMessages; end; tsList.Add(s); ADOQuery.next; end; Clipboard.AsText:=tsList.Text; except result:=false; end; finally tsList.Free; end; aSheet.Paste; 。。。。。。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值
>