Question

一段delphi程序的解释

function ComPortAvailable(Port: PChar) : boolean;
Var
DeviceName: Array[0..80] of Char;
ComFile: THandle;
begin
StrPCopy(DeviceName, Port);
ComFile := CreateFile(DeviceName, GENERIC_READ or GENERIC_WRITE, 0, Nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL, 0);
Result := ComFile <> INVALID_HANDLE_VALUE;
CloseHandle(ComFile);
end;
其中confile的作用，每一句的具体解释，谢谢

Answer 1

comfile是创建文件后的文件句柄用于进一步操作这个文件，
StrPCopy可能是个自定义函数用于返回设备名称（DeviceName）然后尝试打开这个设备（设备可能就是个文件）最后返回结果为文件句柄不等于无效句柄，然后关闭这个文件