请教各位:问个modem的问题:(0分)

以下这段程序是在一个帖子中发现的:
Var
hCommFile : THandle;

Procedure TForm1.Button1Click(Sender : TObject);
Var
PhoneNumber : String;
CommPort : String;
NumberWritten : LongInt;
Begin
PhoneNumber := 'ATDT 010-62988861' + #13 + #10;
CommPort := 'COM2';
{打开 comm port}
hCommFile := CreateFile(PChar(CommPort),
GENERIC_WRITE,
0,
Nil,
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
0);
If hCommFile = INVALID_HANDLE_VALUE Then
Begin
ShowMessage('不能打开 ' + CommPort);
exit;
End;

{拨号}
NumberWritten := 0;
If WriteFile(hCommFile,
PChar(PhoneNumber)^,
Length(PhoneNumber),
NumberWritten,
Nil) = false Then Begin
ShowMessage('无法写 ' + CommPort);
End;
End;
但我编译时,在
If WriteFile(hCommFile,PChar(PhoneNumber)^,Length(PhoneNumber),NumberWritten,Nil) = false
出现了:
[Error] Types of actual and formal var parameters must be identical
后来我把这句该为:
If WriteFile(hCommFile,PChar(PhoneNumber)^,Length(PhoneNumber),@NumberWritten,Nil) = false
还是出现同样的错误,请问:我该如何解决?谢谢.

LPDWORD(NumberWritten)^
编译可以通过，没试对不对。

王亮，我按你教的方法做了，编译通过了，单在运行时出现：“无法写”，请问
该咋办

LPDWORD(@NumberWritten)^;
你应该多试试。

接受答案了.