喫茶XRAY [Mr.XRAY掲示板]

まとめ
(1) SaveDialog1.FileName の最後の文字が \ で終わる
    または、 / | < : " が文字列内に含まれていると
    CommDlgExtendedErrorが発生し、Dialog は表示されない。

(2) Delphi 2005は、update2まで当てていないと
    マルチバイト文字が正常に処理さずシングルバイト処理される可能性があり
    内部でファイル名を破壊したあとにGetSaveFileName関数を呼び出す可能性がある。

  with SaveDialog1 do
  begin
//  InitialDir := 'フォルダ名';
    FileName := Edit1.Text;
    //ファイル選択のオープンダイアログを表示
    if (Execute = True) then
  　     ShowMessage('File : '+ FileName)
    else
    begin
      case CommDlgExtendedError of // CommDlg.CommDlgExtendedError
        0 : ShowMessage('Save file was cancelled');
        $3002 : ShowMessage('ファイル名が無効です。');
      else
        ShowMessageFmt('Error : CommDlgExtendedError 0x%X',[CommDlgExtendedError]);
      end;
    end;
  end;