SaveDioalog覆蓋檔案要注意到的事

檔執行開啟視窗後，有時候你用點擊的方式去想要覆蓋檔案，又或者是你想要自己打檔名而在檔名自己有加副檔名了，為了避免又多了一個副檔名，你可以用以下的方式，先將所有副檔名清除掉，然後再自己手動加上副檔名。
首先新增一個SaveDialog，並在filter設定好，及FileName可以預設一下檔案名稱
然後在按鈕事件下加入以下程式碼：

procedure TFmain.Button1Click(Sender: TObject);
var
  MsgRlt : integer;
  sFileName, sExeName : string;
begin
  if Savedialog1.Execute then
  begin
    sFileName := SaveDialog1.FileName;

    sExeName :=ExtractFileExt(sFileName);
    if (StrIComp(PChar(sExeName),'.exe' ) =0 ) then  //有的話要清掉
    begin
      sFileName := DeleteFileExt(sFileName);      // 匯出記錄程序
    end;
    sFileName := sFileName+ '.exe';               //最後再加上去


    //showmessage(sFileName);
    if (FileExists(sFileName)) then   //會自動再加exe判斷
    begin
      //showmessage(SaveDialog1.FileName);
      MsgRlt:=MessageBox(SaveDialog1.Handle,'檔案已存在，是否覆蓋？','MessageBox',MB_YESNO);

    end;
    if MsgRlt=IDNO then
    begin
      Button1.Click;
      exit;
    end;
  end;
end;