Сматря какой ADSL - модем если Lan дык тада можно его повесить шоб он постоянно в инете висел. вообшем не суть, попробуй код
| Код |
var
cmd, par, fil, dir: PChar;
begin
if connect=false then
begin
cmd := 'open';
fil := 'rasdial.exe';
par := PChar(Name.Text + ' ' + Login.Text + ' ' + Pass.Text);
dir := 'C:';
ShellExecute(Self.Handle, cmd, fil, par, dir, SW_SHOWMINNOACTIVE);
connect:=true;
email:=mail.Text;
emailLogin:=eLogin.Text;
emailpass:=ePass.Text;
end
else
begin
cmd := 'open';
fil := 'rasdial.exe';
par := PChar(Name.Text + ' /DISCONNECT');
dir := 'C:';
ShellExecute(Self.Handle, cmd, fil, par, dir, SW_SHOWMINNOACTIVE);
end;
|
вот попробуй где Name.text - имя соединения с инетом созданного на компе,
Login.text - стало быть логин,
Pass.text - стало быть поролллл
у мя с ADSL работало нармуль. |