Объявите следующее в области объявления (используйте Public в файле .bas и PRivate в форме)
PrivateDeclareFunctionShellExecuteLib "shell32.dll" Псевдоним "ShellExecuteA" (ByValhWndAsLong, ByVallpOperationAsString, ByVallpFileAsString, ByVallpParametersAsString, ByVallpDirectoryAsString, ByValnShowCmdAsLong) AsLong
в программе
Интранет:
ShellExecuteMe.hWnd,"open","http://хост/каталог интрасети","","",5
Интернет:
ShellExecuteMe.hWnd,"open","http://www.ruentex.com.tw","","",5
Это очень просто!!! Даже если ваша машина не может подключиться к Интернету, вы все равно можете сразу же воспользоваться функциями интрасети.->