Delphi中可以直接访问任何文件啊?!
解决方案 »
- 急啊--自动在线更新模块-----大家给给思路和一些具体性的方法。.
- 如何根据'ID号、父ID号、类别'的情况下生成TreeView?
- delphi怎样去实现位或运算。
- 这个if怎么不起作用??
- 请问如何屏蔽DBGrid单元格中的复制(Ctrl-C)和粘贴(Ctrl-V)?
- 怎么用delphi7做控件?
- 怎样让我的程序在没有Delphi的电脑上运行?
- 一个急死人的怪问题,给分
- 请问如何用树来控制用户的权限?
- 怎样做压缩文件的程序(给68分)?
- 请问在Delphi中如何将一个extended型强制转换为integer型。请哪位大侠给出所出强制转换的函数?
- 有没办法让delphi生成比较小的可执行文件
'判断文件是否存在, 存在返回True (strFileName为绝对路径,含扩展名)
Public Function FileExist(strFileName As String) As Boolean
Dim FileSystem As Object
Set FileSystem = CreateObject("Scripting.FileSystemObject")
FileExist = FileSystem.FileExists(strFileName)
Set FileSystem = Nothing
End Function
function FileExists(const FileName: string): Boolean;
//Ex:FileExists(opendialog1.Filename);
对于Opendialog的用法可以这样啊,就不必用到这个函数了:
if opendialog1.Execute then
showmessage(opendialog1.filename);