Уважаемые знатоки, помогите! (если не трудно приведите пример програмульки)

Нужно написать программку, которая запускала соединение с интернет, используя созданное подключение (например VPN), в удалённом доступе.

погите тогда найти этот TDialUp. Поискала и ничего не нашла. :(

вопрос gek:
Использую Delphi 6, скачала компонент dialup20.exe, я так поняла его устанавливать не надо, а лишь в проекте созадать строку
uses DialUp;

Далее я в своей программе в событии пытаюсь вызвать метод DialUp.GetEntries;
и вылетает ошибка: Undeclared identifier: 'Getentries'

Что я не так делаю и как использовать этот компонент? А может он в Delphi6 не работает???
Помогите плиз. :(

помогите погибаю :(

Ув. SnowMan если не затруднит покажите тоже самое на Delphi, я как-то в СИ слабовата :)

Умоляю покажите пример на Delphi !!!! :(

Огромное спасибо за линк funikovyuri
но попробовав использовать этот пример, сразу же выдаётся ошибка:
1.неизвестный тип TRasDialParams
2.неизвестный тип THRASCONN
Соответственно неизвестна функция: RasDial

что нужно? помогите плиз :(

Вроде бы нашла что нужно преобразовать заголовочный файл RAS.h в эквивалент Delphi. Если это поможет моей проблеме, как это сделать, подскажите !!!!!!!

Вот пример моего кода:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
......................................................................................................
procedure TForm1.Button1Click(Sender: TObject);
var
uLastErr,dwRet: Dword;
DialParams: TRasDialParams;
hRas: THRASCONN;
bPwd: Boolean; // was the password retrieved
EntryName: string;
begin
uLastErr := 0; // Prepare dial parameters
FillChar(DialParams, SizeOf(DialParams), 0);
DialParams.dwSize := SizeOf(DialParams);
StrPLCopy(@(DialParams.szEntryName[0]), EntryName,
SizeOf(DialParams.szEntryName));
hRas := 0; // must do that before calling RasDial
bPwd := False;
RasGetEntryDialParams(nil, @DialParams, bPwd);
dwRet := RasDial(nil, nil, @DialParams, 0, nil, hRas); // receives connection handle
Result := dwRet = 0; // Connection failed... if not Result then begin
if hRas <> 0 then
RasHangupConnection(hRas);
uLastErr := dwRet;
end;