我加分，请把1953122和1953175的问题答清楚

Question

vb能做到，delphi却不能？

Answer 1

我已经去给你回答了
function CreateNullFile(AFileName: String): Boolean;  //建立空的文件
var
  HFILE: THandle;
begin
  HFILE := CreateFile(PChar(AFileName), GENERIC_READ, FILE_SHARE_READ, nil, CREATE_NEW, FILE_ATTRIBUTE_NORMAL, 0);
  if HFILE <> INVALID_HANDLE_VALUE then
  begin
    CloseHandle(HFILE);
    Result := True;
  end
  else
    Result := False;
end;