Delphi dlgOpen的使用
来源:互联网 发布:电脑cmd打开编程 编辑:程序博客网 时间:2024/05/18 01:48
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;
- Delphi dlgOpen的使用
- Delphi的使用
- delphi ListView 的使用
- delphi 注册表的使用
- Delphi Timer的使用
- delphi TListView的使用
- delphi 快捷键的使用
- DELPHI的BPL使用
- SQLite Delphi的使用
- delphi TListView的使用
- Delphi TClientDataSet的使用
- delphi IdTelnet的使用
- delphi TIdFTP的使用
- DELPHI的BPL使用
- Delphi 中流的使用
- Delphi包的使用
- DELPHI的BPL使用
- Delphi TRzCheckTree的使用
- LoadLibrary "xxxx" 找不到指定的模块
- 工作记录
- linux下程序设计-获取本机MAC地址
- 初识 Map/Reduce
- 修改用户密码方法总结
- Delphi dlgOpen的使用
- 数据库范式
- Facebook和聊天
- Hello ,这是从Windows Live的客户端发博客
- 通过OCP考试,留念
- C#开发指导--类型(类型、变量、值)
- commons—fileupload和输出流下载
- Oracle 查看连接数
- NVIDIA GPU AI - Technology Preview!