Fórum backup delphi fechar #410198

Boa tarde caros,

Peguei esse código na internet, e modifiquei de modo que me interessa-se, funciona quase que perfeitamente. O problema ocorre quando clico no botão com o evento para fazer backup, mas então decido cancelar, e clico no botão X(fechar), após clicar no X ele ainda envia mensagem salvo com exitô.



DateSeparator:=.;
nome:=Proculture-+datetostr(date);
SaveDialog1.FileName:= nome;
//showmessage(nome);
if SaveDialog1.Execute then
nome:=extractFileName(SaveDialog1.FileName);
ShellExecute(handle,open, cmd.exe,Pchar(/c c:\xampp\mysql\bin\mysqldump.exe bdproculture -u root -h localhost --opt -v> +nome+.sql),nil, SW_HIDE);
ShowMessage(Backup +nome+ gerado com sucesso!);