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!

1. uses
2.   ShellAPI;
3.  
4. procedure TForm1.Button1Click(Sender: TObject);
5. begin
6.   case OSVer of
7.     VER_PLATFORM_WIN32_NT:
8.     // Win NT, 2000, XP:
9.         {connection_name = the name of the connection in "Network and
10.         DialUp Connections", logon = logon string, password = password string.
11.         All are separated by spaces.}
12.         ShellExecute(Handle, 'open', 'rasdial.exe', 'connection_name logon password', nil, SW_HIDE);
13.         // disconnect:
14.         // ShellExecute(Handle, 'open', 'rasdial.exe', ' /disconnect', nil, SW_HIDE);
15.     VER_PLATFORM_WIN32_WINDOWS:
16.     // VERSION = 95, 98
17.        (*
18.       Dial Up Networking (DUN)
19.  
20.         module:
21.                 RNAUI.DLL
22.  
23.       command:
24.                 rundll32.exe rnaui.dll,RnaDial {name of connection to establish}
25.           result:
26.                 displays the Connect To dialog for the passed connection
27.       *)
28.  
29.       ShellExecute(Handle, PChar('open'), PChar('rundll32.exe'),
30.         PChar('rnaui.dll,RnaDial exact name of dialer entry TRACERT -h 1 -w 1'),nil, SW_NORMAL);
31.   end;
32. end;