openfile函数的使用

[yufly]

openfile函数，是怎样用的，能举几个例子吗？

[luke5678]

1． 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;