Процедура для разрыва связи с интернетом

@shilovec5377 · Регистрация: 26.05.2011

Author24 — интернет-сервис помощи студентам

привет всем. нашёл процедуру для разрыва нета, но выдает ошибку, помогите пж кто может, буду очень благодарен.
необходимо еще подключить модуль shellapi.

Delphi

procedure disconnect(name:string);  // отключение
var
cs:PCHAR;
begin
cs:=PChar(name+' /DISCONNECT');
ShellExecute(Self.Handle, 'open', 'rasdial.exe',
cs, 'C:', SW_SHOWMINNOACTIVE);
end;

ошибка: неизвестная переменная (SELF)

@shilovec5377 · 10.05.2012, 19:41 **[ТС]**

вот скрин ошибки

@Славик___077 · 11.05.2012, 16:26

shilovec5377, а не пробывал Self заменить на Form1 или вообще убрать

Delphi

1	ShellExecute(Handle, 'open', 'rasdial.exe', cs, 'C:', SW_SHOWMINNOACTIVE);

@shilovec5377 33 / 58 / 13 Регистрация: 26.05.2011 Сообщений: 756
	10.05.2012, 19:41 [ТС]	2
	вот скрин ошибки Миниатюры 0

	11.05.2012, 16:26