#include
#include

int?PASCAL?Wcard（LPSTR?inbLPSTR?istr）;
int?PASCAL?Rcard（LPSTR?inbLPSTR?instr）;


int?PASCAL?Wcard（LPSTR?inbLPSTR?istr）
{
??DCB?dcb;
??COMSTAT?comstat;
??HANDLE?hd;

??DWORD?dwError;
??DWORD?dwBytes;
??int?retv=0;
??int?i=0stl=0;
??long?t1t2;
??unsigned?char?bcc=0instr[300]nb[]=“COM2:?baud=9600?“str[300];
??char?setting[]=“COM2:?baud=9600?parity=O?data=7?stop=1“comn[]=“COM2“;
??char?*ps;

??lstrcpy（nbinb）;
??AnsiUpper（istr）;
??lstrcpy（str+1istr）;
??comn[3]=nb[3];
??lstrcpy（settingnb）;
??lstrcat（setting“?parity=O?data=7?stop=1“）;
??str[0]=2;

??while（1）
??{
???i++;
???bcc=str[i]^bcc;
???if（str[i]==0）
????{
?????str[i]=3;
?????bcc=3^bcc???;
?????str[i+1]=bcc??;
?????str[i+2]=0?;
?????stl=i+2?;
?????break?;
????}
??}

??hd=CreateFile（?comn?GENERIC_READ?|?GENERIC_WRITE
??????????????????0????????????????????//?exclusive?access
??????????????????NULL?????????????????//?no?security?attrs
??????????????????OPEN_EXISTING
??????????????????FILE_ATTRIBUTE_NORMAL?//|FILE_FLAG_OVERLAPPED?//?overlapped?I/O
??????????????????NULL?）;

??if（hd!=INVALID_HANDLE_VALUE）
????????retv=1;???
??else
???{????retv=-1;????goto?end;???}
??
??if（GetCommState（hd&dcb）==TRUE）
???????retv=1;
??else
???{????retv=-3;????goto?end;???}

??if（BuildCommDCB（setting&dcb）==TRUE）
????????retv=1;???
??else
???{????retv=-2;????goto?end;???}

??dcb.fRtsControl=RTS_CONTROL_ENABLE;
??if（SetCommState（hd&dcb）==TRUE）
???????retv=1;
??else
???{????retv=-3;????goto?end;???}
????
??WriteFile（hdstrstl&dwBytesNULL）;
??ps=instr;
??t1=GetTickCount（）;
??t2=0;
??GetAsyncKeyState（VK_ESCAPE）;		//clear?the?ESC?pressed?events
??while（t2<=100）
??{??
???if（GetAsyncKeyState（VK_ESCAPE）!=0）
????{
?????retv=-5;
?????goto?end;
????}
???ClearCommError（hd&dwError&comstat）;
???if（comstat.cbInQue!=0）
????{
?????ReadFile（hdpscomstat.cbInQue&dwBytesNULL）;
?????ps=ps+comstat.cbInQue;
?????t1=GetTickCount（）;
????}
???if（ps!=instr）?t2=GetTickCount（）-t1;
??}

??*ps=0;
??if（lstrcmp（strinstr）==0）?retv=1;
??else?retv=-4;

??dcb.fRtsControl=RTS_CONTROL_DISABLE;
??SetCommState（hd&dcb）;
end:
??FlushFileBuffers（hd）;
??EscapeCommFunction（hdCLRRTS）;
??CloseHandle（hd）;
??return?retv;
}


int?PASCAL?Rcard（LPSTR?inbLPSTR?instr）
{
??DCB?dcb;
??COMSTAT?comstat;
??HANDLE?hd;
??DWORD?dwError;
??DWORD?dwBytes;
??int?i=0retv=0;
??long?t1t2;
??unsigned?char?nb[]=“COM2:?baud=9600“;
??char?setting[]=“COM2:?baud=9600?parity=O?data=7?stop=1“comn[]=“COM2“;
??unsigned?char?*ps;

??lstrcpy（nbinb）;
??comn[3]=nb[3];
??lstrcpy（settingnb）;
??lstrcat（setting“?parity=O?data=7?stop=1“）;

??hd=CreateFile（?comn?GENERIC_READ?|?GENERIC_WRITE
??????????????????0????????????????????//?exclusive?access
??????????????????NULL?????????????????//?no?security?attrs
??????????????????OPEN_EXISTING
??????????????????FILE_ATTRIBUTE_NORMAL?//|FILE_FLAG_OVERL

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件????????194??1999-07-05?17:02??高麗LK607驅動\delphi\LK607CP1.dpr

?????文件???????1421??1999-07-05?10:17??高麗LK607驅動\delphi\lk607cp2.dfm

?????文件??????10848??2002-08-21?09:38??高麗LK607驅動\delphi\lk607cp2.pas

????..A..H.?????????9??2006-09-15?08:59??高麗LK607驅動\delphi\_desktop.ini

?????文件?????????12??1998-02-20?16:23??高麗LK607驅動\dos\ELK607\BAS\4334

?????文件?????????12??1992-07-17?02:41??高麗LK607驅動\dos\ELK607\BAS\COLOR.FIL

?????文件??????40314??1997-06-04?10:42??高麗LK607驅動\dos\ELK607\BAS\LK607A.BAS

?????文件??????81268??1997-06-04?10:55??高麗LK607驅動\dos\ELK607\BAS\LK607A.EXE

?????文件??????75185??1997-06-02?16:02??高麗LK607驅動\dos\ELK607\BAS\LK607A.OBJ

?????文件?????????32??1997-10-14?17:07??高麗LK607驅動\dos\ELK607\BAS\MRW600.FIL

????..A..H.?????????9??2006-09-15?08:59??高麗LK607驅動\dos\ELK607\BAS\_desktop.ini

?????文件???????3680??1997-10-09?14:36??高麗LK607驅動\dos\ELK607\C\DEMO607.C

?????文件??????14238??1997-10-09?14:39??高麗LK607驅動\dos\ELK607\C\DEMO607.EXE

????..A..H.?????????9??2006-09-15?08:59??高麗LK607驅動\dos\ELK607\C\_desktop.ini

?????文件?????????12??1992-07-17?02:41??高麗LK607驅動\dos\ELK607\COLOR.FIL

?????文件??????60254??1997-11-28?16:34??高麗LK607驅動\dos\ELK607\DLL16\LK607W.BSC

?????文件???????3642??1997-10-16?16:37??高麗LK607驅動\dos\ELK607\DLL16\LK607W.C

?????文件????????518??1997-08-29?11:25??高麗LK607驅動\dos\ELK607\DLL16\LK607W.DEF

?????文件???????4096??1997-11-28?16:34??高麗LK607驅動\dos\ELK607\DLL16\LK607W.DLL

?????文件???????1536??1997-11-28?16:34??高麗LK607驅動\dos\ELK607\DLL16\LK607W.LIB

?????文件???????1898??1997-11-28?16:19??高麗LK607驅動\dos\ELK607\DLL16\LK607W.MAK

?????文件??????15437??1997-11-28?16:34??高麗LK607驅動\dos\ELK607\DLL16\LK607W.MAP

?????文件???????2018??1997-11-28?16:34??高麗LK607驅動\dos\ELK607\DLL16\LK607W.OBJ

?????文件??????????0??1997-11-28?16:34??高麗LK607驅動\dos\ELK607\DLL16\LK607W.SBR

?????文件???????1459??1997-12-15?16:17??高麗LK607驅動\dos\ELK607\DLL16\LK607W.TXT

?????文件????????107??1997-11-28?16:37??高麗LK607驅動\dos\ELK607\DLL16\LK607W.VCW

?????文件????????170??1997-11-28?16:37??高麗LK607驅動\dos\ELK607\DLL16\LK607W.WSP

????..A..H.?????????9??2006-09-15?08:59??高麗LK607驅動\dos\ELK607\DLL16\_desktop.ini

?????文件???????4330??1997-12-15?14:42??高麗LK607驅動\dos\ELK607\DLL95\LK607W32.C

?????文件???????4298??1997-12-10?09:59??高麗LK607驅動\dos\ELK607\DLL95\LK607W32.C1

............此處省略73個文件信息