procedure TForm1.btn1Click(Sender: TObject);
var strFileName,strFilePath:string;
begin
ForceDirectories('D:/Temp' ) ; //新建一个目录 如果存在就不要创建
dlgOpen1.InitialDir:=('D:/Temp'); //设置打开默认的目录
dlgOpen1.Title:='DELPHI打开对话框实例' ; //设置对话框标题
// dlgopen1.Filter:= '所有文件(*.*)|*.*'; //设置打开的文件类型
//lgOpen1.Filter:='可执行程序(*.exe)|*.exe' ;
dlgOpen1.Filter:='Text files (*.txt)|*.txt|Delphi files (*.pas)|*.pas' ;
if dlgOpen1.Execute then
begin
strFilePath:=dlgOpen1.FileName; //取得打开文件路径(含文件名)
ShowMessage(strFilePath);
strFileName:=ExtractFileName(dlgOpen1.FileName); //取得打开文件名(不含路径)
ShowMessage(strFileName);
end ;
end;
var strFileName,strFilePath:string;
begin
ForceDirectories('D:/Temp' ) ; //新建一个目录 如果存在就不要创建
dlgOpen1.InitialDir:=('D:/Temp'); //设置打开默认的目录
dlgOpen1.Title:='DELPHI打开对话框实例' ; //设置对话框标题
// dlgopen1.Filter:= '所有文件(*.*)|*.*'; //设置打开的文件类型
//lgOpen1.Filter:='可执行程序(*.exe)|*.exe' ;
dlgOpen1.Filter:='Text files (*.txt)|*.txt|Delphi files (*.pas)|*.pas' ;
if dlgOpen1.Execute then
begin
strFilePath:=dlgOpen1.FileName; //取得打开文件路径(含文件名)
ShowMessage(strFilePath);
strFileName:=ExtractFileName(dlgOpen1.FileName); //取得打开文件名(不含路径)
ShowMessage(strFileName);
end ;
end;