[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]

    > I'd like to have my Delphi Program  dial up my ISP (using the WIN95)

    Hi Scott

        To start your Dial Up Connection, you can use something like this:
    WinExec('rundll32.exe rnaui.dll,RnaDial NAME',SW_SHOWNORMAL);
    where NAME is the exact title of your connectoid in dial up networking.
    To automatic press button "Connect" you can use this:

    procedure TForm1.Timer1Timer(Sender: TObject);
    var buf,buf1 : array [0..100] of char;
        hnd,hnd1 : hWnd;
        ln  : integer;
    begin
         Try
           hnd := GetForegroundWindow;
           ln:=GetWindowTextLength(hnd);
           GetMem(lpStr,ln+1);
           GetWindowText(hnd,lpStr,ln+1);
           Edit1.Text := StrPas(lpStr);
           if lpstr='Connect with' then
           begin
             hnd1 := GetWindow(hnd,GW_child);
             getwindowtext(hnd1,buf1,sizeof(buf1));
             while (buf1<>'Connect') do
             begin
               hnd1 := GetWindow(hnd1,GW_hwndnext);
               getwindowtext(hnd1,buf1,sizeof(buf1));
             end;
             beep;
             PostMessage(hnd1,BM_CLICK,0,0);
           end;
         Finally
           FreeMem(lpStr,ln);
         end;
    end;

[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]