| SeM | Дата: Четверг, 31.03.2011, 17:35 | Сообщение # 1 |
 Лейтенант
Группа: Администраторы
Сообщений: 62
Статус: 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;
|
| |
| |
