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

[shilovec5377]

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


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]

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

[raxp]

...просто хэндл, да и вообще там ноль можно ставить