Delphi 6

[LedWorm]

1) Как узнать подключён ли компьютер к интернет.
2) Если да, то как можно отправить файл по определённому мылу, без использования почтовиков.

Заранее благодарен

[Megabyte]

1) Где-то на форуме об этом спрашивалось кучу раз, можешь поискать на delphi.mastak.ru статью про это. Насколько я помню, можно только определить, достижим ли определённый хост.
2) Для Дельфи есть великолепный набор сетевых компонентов FPiette (http://www.rtfm.be/fpiette), там есть SMTP-клиент, им цепляешься к smtp-серверу получателя и отправляешь.

[Megabizon]

Есть функция API, сам ее не пробовал.

InetIsOffline

Функция InetIsOffline определяет, подключена ли система к интернету или нет.

BOOL InetIsOffline( DWORD dwFlags);

Параметры

dwFlags – входные флаги функции. Значение параметра должно быть равно нулю.

Возвращаемые значения

Возвращается TRUE, если локальная система не подключена в настоящий момент к интернету.
Возвращается FALSE, если локальная система подключена в настоящий момент к интернету,
или еще не было попыток соединиться с интернетом.

[Guest]

InetIsOffline -- это шутка? Нет такой функции! :(

[Megabizon]

InetIsOffline -- это шутка? Нет такой функции!

Стыдно должно быть, лень в MSDN заглянуть
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/functions/inetisoffline.asp

[JCooper]

Без шуток! :)

импорт ф-ции
function InetIsOffline(Flag: Integer): Boolean;
stdcall; external 'URL.DLL';

где-то в коде...

if InetIsOffline(0) then
 ShowMessage('This computer is not connected to Internet!')
else
 ShowMessage('You are connected to Internet!');