Aktiviranje dial-up konekcije

Aktiviranje dial-up konekcije

offline
  • Pridružio: 27 Jun 2005
  • Poruke: 36

E ovako, iz programa trba da pokrecem neku konekciju (u ovom slucaju se zove PTT) i to radim ovim kodom:

ShellExecute(Application.MainForm.Handle, nil,
pChar(ExtractFilePath('rundll32.exe')+'rundll32.exe'), pChar('rnaui.dll,RnaDial PTT'), pChar(ExtractFilePath('rundll32.exe')), SW_SHOW);

To fino radi na 9X windows-ima ali na Xp-u prijavljuje gresku ..kernel nesto..bla.

any hint?



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Đuro Glumac
  • dipl. ing. informatike
  • Pridružio: 08 Feb 2004
  • Poruke: 3640
  • Gde živiš: ApAtIn

uses   ShellAPI; procedure TForm1.Button1Click(Sender: TObject); begin   case OSVer of     VER_PLATFORM_WIN32_NT:     // Win NT, 2000, XP:         {connection_name = the name of the connection in "Network and         DialUp Connections", logon = logon string, password = password string.         All are separated by spaces.}         ShellExecute(Handle, 'open', 'rasdial.exe', 'connection_name logon password', nil, SW_HIDE);         // disconnect:         // ShellExecute(Handle, 'open', 'rasdial.exe', ' /disconnect', nil, SW_HIDE);     VER_PLATFORM_WIN32_WINDOWS:     // VERSION = 95, 98        (*       Dial Up Networking (DUN)         module:                 RNAUI.DLL       command:                 rundll32.exe rnaui.dll,RnaDial {name of connection to establish}           result:                 displays the Connect To dialog for the passed connection       *)       ShellExecute(Handle, PChar('open'), PChar('rundll32.exe'),         PChar('rnaui.dll,RnaDial exact name of dialer entry TRACERT -h 1 -w 1'),nil, SW_NORMAL);   end; end;



Ko je trenutno na forumu
 

Ukupno su 763 korisnika na forumu :: 4 registrovanih, 0 sakrivenih i 759 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: _Rade, avijacija, Koridor, Tas011