导读:
这是一个全功能的例程,可打开和创建文件、管道、邮槽、通信服务、设备以及控制台
返回值
Long,如执行成功,则返回文件句柄。INVALID_HANDLE_VALUE表示出错,会设置GetLastError。即使函数成功,但若文件存在,且指定了CREATE_ALWAYS 或 OPEN_ALWAYS,GetLastError也会设为ERROR_ALREADY_EXISTS
参数表
参数 类型及说明
lpFileName String,要打开的文件的名字
dwDesiredAccess Long,如果为 GENERIC_READ 表示允许对设备进行读访问;如果为 GENERIC_WRITE 表示允许对设备进行写访问(可组合使用);如果为零,表示只允许获取与一个设备有关的信息
dwShareMode Long,零表示不共享; FILE_SHARE_READ 和/或 FILE_SHARE_WRITE 表示允许对文件进行共享访问
lpSecurityAttributes SECURITY_ATTRIBUTES,指向一个SECURITY_ATTRIBUTES结构的指针,定义了文件的安全特性(如果操作系统支持的话)
dwCreationDisposition Long,下述常数之一:
CREATE_NEW 创建文件;如文件存在则会出错
CREATE_ALWAYS 创建文件,会改写前一个文件
OPEN_EXISTING 文件必须已经存在。由设备提出要求
OPEN_ALWAYS 如文件不存在则创建它
TRUNCATE_EXISTING 讲现有文件缩短为零长度
dwFlagsAndAttributes Long,一个或多个下述常数
FILE_ATTRIBUTE_ARCHIVE 标记归档属性
FILE_ATTRIBUTE_COMPRESSED 将文件标记为已压缩,或者标记为文件在目录中的默认压缩方式
FILE_ATTRIBUTE_NORMAL 默认属性
FILE_ATTRIBUTE_HIDDEN 隐藏文件或目录
FILE_ATTRIBUTE_READONLY 文件为只读
FILE_ATTRIBUTE_SYSTEM 文件为系统文件
FILE_FLAG_WRITE_THROUGH 操作系统不得推迟对文件的写操作
FILE_FLAG_OVERLAPPED 允许对文件进行重叠操作
FILE_FLAG_NO_BUFFERING 禁止对文件进行缓冲处理。文件只能写入磁盘卷的扇区块
FILE_FLAG_RANDOM_ACCESS 针对随机访问对文件缓冲进行优化
FILE_FLAG_SEQUENTIAL_SCAN 针对连续访问对文件缓冲进行优化
FILE_FLAG_DELETE_ON_CLOSE 关闭了上一次打开的句柄后,将文件删除。特别适合临时文件
也可在Windows NT下组合使用下述常数标记:
SECURITY_ANONYMOUS, SECURITY_IDENTIFICATION, SECURITY_IMPERSONATION, SECURITY_DELEGATION, SECURITY_CONTEXT_TRACKING, SECURITY_EFFECTIVE_ONLY
hTemplateFile Long,如果不为零,则指定一个文件句柄。新文件将从这个文件中复制扩展属性
注解
打开一个通信端口时(如COM1),无论如何都要设置成 OPEN_EXISTING
Top
3 楼lxpbuaa(桂枝香在故国晚秋)回复于 2001-11-25 11:32:07 得分 0 你问的及时,我前几天刚刚用这个函数作了一个监视modem端口的程序。关键源代码如下:
void __fastcall TFmain::Timer1Timer(TObject *Sender)
{
HANDLE hCom =CreateFile(PortName.c_str(),0,0,NULL,OPEN_EXISTING,FILE_FLAG_OVERLAPPED,NULL);
if (hCom == INVALID_HANDLE_VALUE) Num_OnTimer++;
int tp_Hour = (Num_OnTimer * Timer1->Interval)/(1000*3600);
if (tp_Hour > Num_hour)
{
Num_hour++;
TrayIcon1->Restore();
ShowMessage("你已经在网上奋战" + IntToStr(tp_Hour) +"小时了,要注意休息啊!");
}
if ((!ActiveLink) && (hCom == INVALID_HANDLE_VALUE))
{
ActiveLink = true; //连接现在开始
FM_NET->T_TimeData->Append();
FM_NET->T_TimeData->FieldByName("StartTime")->AsString = Now();
FM_NET->T_TimeData->Post();
FM_NET->T_TimeData->Refresh();
}
if (ActiveLink && (hCom != INVALID_HANDLE_VALUE))
{
CloseHandle(hCom);
AnsiString EndTime,StartTime,EndTemp,StartTemp;
int End_h,End_m,Start_h,Start_m,tempPos,AllTimeM = 0;
ActiveLink = false; //现在断开了连接
FM_NET->T_TimeData->Last();
StartTime = FM_NET->T_TimeData->FieldByName("StartTime")->AsString;
EndTime = Now();
FM_NET->T_TimeData->Edit();
FM_NET->T_TimeData->FieldByName("EndTime")->AsString = EndTime;
tempPos = EndTime.Pos(" ");
EndTemp = EndTime.SubString(tempPos+1,EndTime.Length()-tempPos); //hh:mm
tempPos = EndTemp.Pos(":");
End_h = EndTemp.SubString(1,tempPos-1).ToInt(); //hh
End_m = EndTemp.SubString(tempPos+1,EndTemp.Length()-tempPos-3).ToInt(); //mm
tempPos = StartTime.Pos(" ");
StartTemp = StartTime.SubString(tempPos+1,StartTime.Length()-tempPos); //hh:mm
tempPos = StartTemp.Pos(":");
Start_h = StartTemp.SubString(1,tempPos-1).ToInt(); //hh
Start_m = StartTemp.SubString(tempPos+1,StartTemp.Length()-tempPos-3).ToInt(); //mm
if (End_h < Start_h) AllTimeM += (End_h + 24 - Start_h)*60;
else AllTimeM += (End_h - Start_h)*60;
AllTimeM += End_m - Start_m;
FM_NET->T_TimeData->FieldByName("TimeMinites")->AsString = IntToStr(AllTimeM/60) + "小时" + IntToStr(AllTimeM%60) + "分钟";
FM_NET->T_TimeData->Post();
FM_NET->T_TimeData->Refresh();
}
try{
CloseHandle(hCom);}
catch(...){}
}
本文转自
http://hi.baidu.com/qejcool/blog/item/6fb716a8348665b1ca130c55.html
CreateFile函数
最新推荐文章于 2020-04-30 11:50:29 发布