代码是: procedure Tform1.openserialport; var cc:TCommconfig; temp:string;
begin temp:='COM1'; hserialport:= Createfile(pchar(temp),generic_read or generic_write, file_share_write,nil,open_existing,0,0);
运行后出现这样的信息: Invalid typecast There is no overloaded version of 'CreateFile' that can be called with these arguments 望大家帮忙看看,谢谢
----------------------------------------------
-