导航

心动吧DELPHI网络书

自发研究:须要多维思想而且要想不可能为可能的人才能做到

« {下载}本站提供delphi下载获取鼠标当前位置坐标的方法 »

Delphi程序自动拨号连接网络

 

procedure TForm1.dialogon;    //启动拨号连接
var
fname:string;
myhand:hwnd;
mybutton:hwnd;
begin
fname:='rasphone.exe ';
ShellExecute(0,'open',pchar(fname),'-d 163',nil,sw_show);
sleep(300);
myhand:=FindWindow(nil,'连接 163');
if myhand<>0 then
begin
mybutton:=FindWindowEx(myhand,0,nil,'连接(&C)');
if mybutton<>0 then
begin
SendMessage(mybutton,WM_LBUTTONDOWN,0,0);
SendMessage(mybutton,WM_LBUTTONUP,0,0);
end;
end;

 

原创文章如转载,请注明:转载自心动吧DELPHI网络书 [ http://www.abcxd.com/delphi/ ]

本文链接地址:http://www.abcxd.com/delphi/abcxddelphi/DELPHITS/346/

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。

搜索内容

日历

Copyright ⊙ 2004-2009 心动吧 UrL:ABCXD.CoM All RiGhts Reserved