createfile函数的使用。

procedure TForm1.Button1Click(Sender: TObject);
var
  F: Integer;
  FileName:pchar;
begin
  FileName:='c:\lzj.txt';
  F:= CreateFile(FileName,
    GENERIC_READ,
    FILE_SHARE_READ,
    nil,
    OPEN_EXISTING,
    FILE_ATTRIBUTE_ARCHIVE or FILE_ATTRIBUTE_HIDDEN or FILE_ATTRIBUTE_NORMAL or FILE_ATTRIBUTE_READONLY,
    0);
  if F > 0 then ShowMessage('Open SucessFul'); end;