Вернуться   CoderX :: Forums > Основные форумы > Программинг
Войти через OpenID

Программинг Форум для тем связанных с программированием

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 03.07.2008, 10:40   #1
Новичок
 
Регистрация: 20.03.2008
Сообщений: 6
Сказал Спасибо: 3
Имеет 1 спасибку в 1 сообщении
Pa6x
По умолчанию Рестарт Инета

Ктонить может объяснить как сделать так чтобы дельфя отключила/включила соединение с интернетом.

Искал на разных сайтах. пока не один способ не подошел.

ЗЫ. я начинающий ДельфиЁП поэтому прошу подробно обиснять
Pa6x вне форума   Ответить с цитированием
Старый 03.07.2008, 14:06   #2
Admin!
 
Аватар для xkor
 
Регистрация: 04.08.2007
Сообщений: 2,360
Сказал Спасибо: 113
Имеет 1,566 спасибок в 651 сообщенях
xkor на пути к лучшему
По умолчанию

соединения с интернетом бывают разные...
хотя наверно есть и универсальный способ но я не искал
__________________
Я здесь практически не появляюсь!, Skype - ikskor
xkor вне форума   Ответить с цитированием
Старый 03.07.2008, 14:44   #3
Новичок
 
Регистрация: 04.03.2008
Сообщений: 11
Сказал Спасибо: 2
Имеет 0 спасибок в 0 сообщенях
Oleg007
По умолчанию

а не проше чтоб комп просто в оф уходил) в инете таких программ куча)
Oleg007 вне форума   Ответить с цитированием
Старый 03.07.2008, 14:53   #4
Новичок
 
Регистрация: 20.03.2008
Сообщений: 6
Сказал Спасибо: 3
Имеет 1 спасибку в 1 сообщении
Pa6x
По умолчанию

У меня есть соединение типа Бридж моде... у меня есть Бат файлик который отключает инет через команду
RASDIAL Наименование соединения /DISCONNECT
и есть батник с подключением
RASDIAL Наименование подключения Логин Пароль

Каким образом я могу воспользоваться этими командами в Дельфи...

Програмки есть не спорю... но мне нужно привинтить этот Реконект к програмке в дельфях
Pa6x вне форума   Ответить с цитированием
Старый 03.07.2008, 18:40   #5
Новичок
 
Аватар для raid
 
Регистрация: 01.07.2008
Адрес: Пермь
Сообщений: 21
Сказал Спасибо: 0
Имеет 37 спасибок в 10 сообщенях
raid пока неопределено
По умолчанию

Цитата:
Сообщение от Pa6x Посмотреть сообщение
У меня есть соединение типа Бридж моде... у меня есть Бат файлик который отключает инет через команду
RASDIAL Наименование соединения /DISCONNECT
и есть батник с подключением
RASDIAL Наименование подключения Логин Пароль

Каким образом я могу воспользоваться этими командами в Дельфи...

Програмки есть не спорю... но мне нужно привинтить этот Реконект к програмке в дельфях
функция shellapi - shellexecute
rasdial.exe лежит в %windir%\system32\
(вроде)
__________________
Emo-chan style.
raid вне форума   Ответить с цитированием
За это сообщение raid нажился спасибкой от:
Старый 04.07.2008, 00:57   #6
Новичок
 
Регистрация: 20.03.2008
Сообщений: 6
Сказал Спасибо: 3
Имеет 1 спасибку в 1 сообщении
Pa6x
По умолчанию

Решил выложить функцию которая запускает любое приложение

uses ShellAPI

function ExecuteFile(var FileName, Params, DefaultDir: string): THandle;
var
zFileName, zParams, zDir: array[0..79] of Char;
begin
Result := ShellExecute(Application.MainForm.Handle, nil,
StrPCopy(zFileName, FileName), StrPCopy(zParams, Params),
StrPCopy(zDir, DefaultDir), SW_Hide);
end;


Для перезапуска Инета нужно
FileName := 'RASDIAL.exe'
Params := 'Наименование соединения /DISCONNECT'
после дисконекта
Params := 'Наименование подключения Логин Пароль'
DefaultDir := '%windir%\system32\'

PS: Пасибку кинул Большое СПАСИБО!
Pa6x вне форума   Ответить с цитированием
За это сообщение Pa6x нажился спасибкой от:
Ответ

  CoderX :: Forums > Основные форумы > Программинг



Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 03:38.

vBulletin style designed by MSC Team.
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Locations of visitors to this page
Rambler's Top100

Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!