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