SaveDialog 만들기

작성자원이아빠|작성시간06.11.23|조회수1,139 목록 댓글 0

procedure TForm1.Button1Click(Sender: TObject);
var
SaveDlg : TSaveDialog;

begin
SaveDlg := TSaveDialog.Create(Application);
with SaveDlg do
begin
    InitialDir := ExtractFilePath(ParamStr(0));
    FileName   := ParamStr(1);
    Title   := '[' + ParamStr(1) + ']-Save File As';
    Filter := 'Valid Files|*.DBF;*.CSV;*.WKS;*.XLS';
    Options := [ofFileMustExist, ofOverwritePrompt, ofPathMustExist];
    Execute;
    Free;
end;
end;