Здравствуйте !

Как программно подключиться к Инету ?
Есть функция InternetAttemptConnect и когда-то
у меня работали программы использующие эту функцию,
например:

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
 If not (InternetAttemptConnect(0) = ERROR_SUCCESS) then
 memStatus.Lines.Append('InternetAttemptConnect - Error') else
 memStatus.Lines.Append('InternetAttemptConnect - succesful ');
end;

Сейчас, после повторной инсталляции и настройки WinXP эти
программки не работают, в смысле: исполняемый файл сообщает
InternetAttemptConnect - succesful , но вроде бы больше ничего
не происходит. Думаю, что это из-за настроек системы, но не знаю где.
Помогите, пожалуйста!

>  If not (InternetAttemptConnect(0) = ERROR_SUCCESS) then


А функции GiveMeBeer не было раньше?  Рекомедую почитать про RasApi, если реально чего-то хочешь добиться.

> А функции GiveMeBeer не было раньше?

Тогда уж TProgrammer.GiveBeer(Self);

;D