OpenFile函数使用说明

 
  函数原型:function   OpenFile(const   lpFileName:   LPCSTR;   var   lpReOpenBuff:   TOFStruct;    
  uStyle:   UINT):   HFILE;   stdcall;    
  函数功能:以不同方式打开文件的操作(为兼容16位Windows程序保留的函数)。建议    
  Windows下使用CreateFile函数。    
  参数说明:lpFileName:   要打开文件的名称    
  lpReOpenBuff:   变量指针,用于存储文件被首次打开时接收信息。    
  UStyle:   打开文件的常量类型。    
  常量名    
  意义    
   
  Of_Create    
  创建文件    
   
  Of_Delete    
  删除指定文件    
   
  Of_Exist    
  打开文件以验证其存在否?存在,返回一无效句柄;否则,返回负数    
   
  Of_Parse    
  填充lpReOpenBuff内容,但不进行任何操作    
   
  Of_Prompt    
  如存在不存在,则显示一有重试和取消按钮的消息框    
   
  Of_Read    
  只读方式打开    
   
  Of_ReadWrite    
  读写方式打开    
   
  Of_ReOpen    
  打开lpReOpenBuff内指定的文件,而不依据lpFileName    
   
  Of_Search    
  强迫Windows查找文件---即使指定了文件路径    
   
  Of_Share_Compat    
  文件可由多个程序多次打开    
   
  Of_Share_Deny_None    
  共享打开    
   
  Of_Share_Deny_Read    
  禁止其它程序读该文件    
   
  Of_Share_Deny_Write    
  禁止其它程序写该文件    
   
  Of_Share_Exclusive    
  独占方式打开文件,其它程序不得再打开该文件    
   
  Of_Write    
  只写方式打开    
       
  返回值:成功,返回值为文件句柄(但可能无效,如:Of_Exist);出错,返回HFile_Error。  
   
  //例子  
  procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
      iFileHandle:   HFILE;  
      Buffer:   TOFStruct;  
      filename:Pchar;  
  begin  
      if   OpenDialog1.execute   then  
          filename   :=   PCHAR(Opendialog1.FileName);  
      iFileHandle   :=   OpenFile(filename,Buffer,OF_READWRITE);  
      Caption   :=   Buffer.szPathName;  
  end; v

  • 0
    点赞
  • 4
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值