procedure TfrmInputBujo.Button1Click(Sender: TObject); begin SaveDialog1.FileName := '엑셀.xls'; if SaveDialog1.Execute then begin ExportGridToExcel(SaveDialog1.FileName, cxgrid1, true, true, false, 'xls'); Application.ProcessMessages; if MessageDlg(SaveDialog1.FileName + ' 파일을 실행하시겠습니까?', mtWarning, [mbYes, mbNo], 0) = mrYes then ShellExecute(self.Handle, PChar('OPEN'), PCha..