FileOpen总是等于-1的问题

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (-1 = FileOpen('D:\111.txt',fmCreate or  fmOpenReadWrite)) then
    ShowMessage('error');
end;无法创建文件，总是为-1。莫名其妙哦- -

Answer 1

fm是流文件吧？流不能用Fileopen打开，Fileopen的参数只有read和write两种

Answer 2

var
  FileHandle: THandle;
begin
  FileHandle := FileOpen('D:\111.txt', fmOpenRead);  if (invalid_handle_value = FileHandle) then
    ShowMessage('error');
  CloseHandle(FileHandle);
end;

Answer 3

看错了……汗，晚上不在状态
I := FileOpen(Edit1.Text, fmOpenRead);
  if I < 0 then Exit;
应该这么写吧

Answer 4

谢谢各位晚上还看贴，^^
主要是创建(fmCreate)才有问题，其他的fmOpenRead/Write我试过都正常，所以百思不得其解。

Answer 5

放弃了可能FileOpen+fmCreate就是bug。还是用Rewrite算了