Недает врубить ИНЕТ

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1
1

Форум » Курилка » Обсуждения на разные темы » Недает врубить ИНЕТ

Недает врубить ИНЕТ

SeM

Дата: Четверг, 31.03.2011, 17:35 | Сообщение # 1

Лейтенант

Группа: Администраторы

Сообщений: 62

Награды: 0

Репутация: 100

Статус: Offline

procedure TForm1.Timer1Timer(Sender: TObject);
var
cmd, par,dir: PChar;
begin
cmd := 'open';
par := PChar('rasdial.exe /DISCONNECT');
dir := 'C:';
ShellExecute(Self.Handle, cmd, par, dir, SW_SHOWMINNOACTIVE);
end;

Форум » Курилка » Обсуждения на разные темы » Недает врубить ИНЕТ

Страница 1 из 1
1