Почему не устанавливает dial соединение ? [D7, WinXP]
GreySerg © (2004-09-24 01:40:00)
Есть такой код:
procedure TForm1.Button1Click(Sender: TObject);
var
dwConnectionTypes: DWORD;
ReturnValue: DWORD;
Conn: LPDWORD;
begin
dwConnectionTypes := INTERNET_CONNECTION_MODEM;
if not InternetGetConnectedState(@dwConnectionTypes,
0) then
begin
// not connected
ReturnValue := InternetDial(Self.Handle,'My
Connection',INTERNET_AUTODIAL_FORCE_UNATTENDED,Conn,0);
Case ReturnValue of
ERROR_SUCCESS: showMessage('Success.');
ERROR_INVALID_PARAMETER:
showMessage('ERROR_INVALID_PARAMETER.');
else showMessage('Unknown error.');
end;
end;
end;
Почему InternetDial всегда возвращает ERROR_INVALID_PARAMETER
?
Как правильно задать параметры ?
GreySerg (2004-09-24 13:32:00) [1]
Никто что-ли не пользовался функцией InternetDial ?
Наверх 
ЧАТ |
Орешник |
|
