自动拨号以及自动断开拨号网络（help）(100分)

大侠们：我想做一个自动拨号以及自动断开拨号网络的程序，可发现不同的操作
系统间要一个程序来实现有一点难度，请高手帮忙，最好有详细的源代码，一旦
测试通过，立即给分。

use wininet;

var
hInternetSession: HINTERNET;
begin
hInternetSession :=InternetOpen('我的连接', INTERNET_OPEN_TYPE_DIRECT , nil, nil, 0);
if hInternetSession=nil then memo1.Lines.Add('初始化失败.')
else memo1.Lines.Add('初始化成功 .');
......

if hInternetSession<>nil then InternetCloseHandle(hInternetSession);
InternetAutodialHangup(0);
memo1.Lines.Add('断开');

end;

var
hInternetSession: HINTERNET; 报错

to ssjjll
如果你有写好的源代码，请发送一份给我，commander_zhao@sohu.com,通过立即给分，谢谢！

已经给你发了

多人接受答案了。