CreateFile函数

导读：
　　这是一个全功能的例程，可打开和创建文件、管道、邮槽、通信服务、设备以及控制台
　　返回值
　　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