Aktiviranje dial-up konekcije

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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;