如何用Delphi创建VPN客户端 ( 积分: 100 )

如何用Delphi创建VPN客户端<br>要求：在客户端界面上输入帐号密码之后直接登陆到VPN的运行界面<br><br>在线等

c#中是这样写的<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;string&nbsp;s;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;(tzh.Text&nbsp;==&nbsp;&quot;vpnuser&quot;&nbsp;&amp;&amp;&nbsp;tmm.Text&nbsp;==&nbsp;&quot;123&quot<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;s&nbsp;=&nbsp;&quot;ppp&quot;&nbsp;+&nbsp;&quot;&nbsp;&quot;&nbsp;+&nbsp;tzh.Text;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;s&nbsp;+=&nbsp;&quot;&nbsp;&quot;&nbsp;+&nbsp;tmm.Text;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;System.Diagnostics.Process.Start(&quot;rasdial.exe&quot;,&nbsp;s);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Application.Exit();<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;else<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;MessageBox.Show(&quot;用户名或密码错误&quot;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;private&nbsp;void&nbsp;button2_Click(object&nbsp;sender,&nbsp;EventArgs&nbsp;e)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Application.Exit();<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}

delphi&nbsp;中我现在是用这种方法实现的但是出现不了结果<br>请指教<br><br>procedure&nbsp;TForm1.Btn_DengLClick(Sender:&nbsp;TObject);<br>var&nbsp;&nbsp;str_log&nbsp;:&nbsp;String;<br>begin<br>&nbsp;&nbsp;str_log&nbsp;:=&nbsp;Edt_ZhangH.Text;<br>&nbsp;&nbsp;str_log&nbsp;:=&nbsp;',&nbsp;'+str_log+Edt_MiM.Text;<br>&nbsp;&nbsp;winexec(pchar('rasdial.exe&nbsp;'+str_log),SW_SHOW);<br>end;

WinExec(PChar(Format('rasdial.exe&nbsp;ppp&nbsp;%s&nbsp;%s,&nbsp;[Edt_ZhngH.Text,&nbsp;Edt_MiM.Text]),&nbsp;SW_SHOW);

to&nbsp;dreamisx<br>是不是这样子的？<br>WinExec(PChar(Format('rasdial.exe&nbsp;ppp&nbsp;%s&nbsp;%s',&nbsp;[Edt_ZhangH.Text,Edt_MiM.Text])),SW_SHOW);<br><br>但是执行完成后没有直接登陆上去阿<br>只是调用出来DOS界面闪了一下？<br><br>我想要直接登陆上去的效果

ShellExecute(handle,'open','rasdial.exe',pchar(Format('ppp&nbsp;%s&nbsp;%s',&nbsp;[Edt_ZhangH.Text,Edt_MiM.Text])),nil,sw_shownormal);

uses&nbsp;shellapi;

to&nbsp;maze<br>你少了一个参数<br>这样做也不行<br>&nbsp;<br>ShellExecute(Application.handle,&nbsp;'Open',&nbsp;PChar(Format('rasdial.exe&nbsp;ppp&nbsp;%s&nbsp;%s',&nbsp;[Edt_ZhangH.Text,Edt_MiM.Text])),nil,&nbsp;nil,&nbsp;SW_SHOW);

我做出来的<br>procedure&nbsp;TForm1.Button1Click(Sender:&nbsp;TObject);<br>var<br>&nbsp;&nbsp;cmd,&nbsp;par,&nbsp;fil,&nbsp;dir:&nbsp;PChar;<br>begin<br>&nbsp;&nbsp;cmd&nbsp;:=&nbsp;'open';<br>&nbsp;&nbsp;fil&nbsp;:=&nbsp;'rasdial.exe';<br>&nbsp;&nbsp;par&nbsp;:=&nbsp;PChar('pdsu'&nbsp;+&nbsp;'&nbsp;'&nbsp;+&nbsp;'vpnuser'&nbsp;+&nbsp;'&nbsp;'&nbsp;+&nbsp;'123');<br>&nbsp;&nbsp;dir&nbsp;:=&nbsp;'C:/WINDOWS/system32';<br>&nbsp;&nbsp;ShellExecute(Self.Handle,&nbsp;cmd,&nbsp;fil,&nbsp;par,&nbsp;dir,SW_SHOWMINNOACTIVE);<br>end;

还有一个<br>WinExec('rasdial.exe&nbsp;pdsu&nbsp;vpnuser&nbsp;123',SW_SHOWMINNOACTIVE);