Помогите пожалуйста. Есть прога проверяющая наличие активного подключения к интернету.
Function CheckRASConnections: String;
const MaxEntries = 100;
var BufSize : Integer;
NumEntries : Integer;
Entries : Array[1..MaxEntries] of TRasConn;
Begin
Entries[1].dwSize := SizeOf(TRasConn);
Bufsize:=SizeOf(TRasConn)*MaxEntries;
RasEnumConnections(@Entries[1],BufSize,NumEntries);
if numentries > 0 then result:=strpas(@Entries[1].szEntryName)
else Result:='Disconnected';
End;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(CheckRASConnections);
end;
Проблема в том, что она не компилируется и ругается на строку
RasEnumConnections(@Entries[1],BufSize,NumEntries);
Types of actual and formal var parameters must be identical
Не могу исправить ошибку. Заранее спасибо.
