- 博客(1)
- 收藏
- 关注
原创 Delphi dlgOpen的使用
procedure TForm1.btn1Click(Sender: TObject);<br />var strFileName,strFilePath:string;<br />begin<br /> ForceDirectories('D:/Temp' ) ; //新建一个目录 如果存在就不要创建<br /> dlgOpen1.InitialDir:=('D:/Temp'); //设置打开默认的目录<br /> dlgOpen1.Title:='DELPHI打开
2010-06-18 15:54:00
1625
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人