savedialog1.FileName:=copy(Application.ExeName,1,length(application.ExeName)-3);
if savedialog1.execute then
begin
//do your things
end;
//上边是exe文件路径
至于你说的第二点,你把这次的路径写到ini文件里.下次作的时候将
copy(Application.ExeName,1,length(application.ExeName)-3);
换成ini中读出来的就可以了