Delphi FileCreate 建立新文件

本文整理自网络，侵删。

 //建立新文件 FileCreate
var
FileName: string;
i: Integer;
begin
FileName := 'c:\temp\test.dat';
i := FileCreate(FileName);

if i>0 then
ShowMessage('新文件的句柄是: ' + IntToStr(i))
else
ShowMessage('创建失败!');
end;

=================

function FileCreate(const FileName: string): Integer;
{$IFDEF MSWINDOWS}
begin
Result := Integer(CreateFile(PChar(FileName), GENERIC_READ or GENERIC_WRITE,
0, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0));
end;
{$ENDIF}
{$IFDEF LINUX}
begin
Result := FileCreate(FileName, FileAccessRights);
end;
{$ENDIF}
 

相关阅读 >>

Delphi 百万次重复调用字符分割函数，不耗内存用法

Delphi 如何使用findfirst搜索不同的文件类型？

8086 汇编指令手册查询

Delphi windows 编程[9] - wm_close 消息

Delphi 延迟时间函数

Delphi 辨析 field、fielddef、fields、fielddefs、fieldlist、fielddeflist

Delphi 解析json生成json

Delphi获取android上的imei

Delphi xe7android应用启用蓝牙

Delphi 锁住listview防止刷新

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi FileCreate 建立新文件