我是这样实现的
手动备份
var exec:string;
begin
exec:=format('exp %s/%s@%s owner=(%s) file=%s',[用户名,密码,服务名,要备份的用户名,文件名]);
winexec(pchar(exec),sw_hide);
end;
timer执行
begin
//这个是每天指定时间备份的
if formatdatetime('HH:MM',date)=formatdatetime('HH:MM',指定的时间) then
手动备份
end;