На нашем сайте ежедневно публикуются десятки качественных и свежих материалов, которые Вы можете скачать абсолютно бесплатно. Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на RSS ленту, чтобы не пропускать интересных новостей.
1. Исходник программы, предназначенной для приема и отправки электронной почты. Для приема/отправки электронной почты в программе имеется поддержка протоколов POP3 и IMAP4
2.Исходник программы, который показывает пример реализации менеджера загрузок на подобии таких программ, как: ReGet, FlashGet, GetRight. Основные функции: докачка файлов, установка приоритетов загрузки, поддержка прокси-серверов и многое другое - Автор Сергей "Ex" Леньков
3.Исходник программы, показывающей пример создания утилиты являющейся оберткой для таких функций как CreateDesktop, SwitchDesktop и EnumDesktops. Умеет запускать программы на других рабочих столах. Ее очень удобно применять, когда надо отладить или отследить программу, которая сильно "сопротивляется", закрывая окна отладчика или монитора ... Читать дальше »
Авторизация вконтакте. Напишем программу которая будет отсылать логин, написанный в Edit1 и пароль, написанный в Edit2 на сервер Вконтакте, и тем самым попробуем авторизоваться.
Создаем новый проект в среде Delphi XE3, кидаем на форму Edit1, Edit2, Button1 с вкладки Standart и IdHTTP1 с вкладки Indy Client. Вид формы Изменяем свойство IdHTTP1 - HadleRedirects на true. Теперь кликаем по кнопке, и переходим в редактор кода. Объявляем переменную a типа TStringList, и b типа string. Код var a: TStringList; b: string; begin ...
function IsConnectedToInternet: Boolean; var dwConnectionTypes: DWORD; begin dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY; Result := InternetGetConnectedState(@dwConnectionTypes, 0); end;
procedure TForm1.Button1Click(Sender: TObject); begin if IsConnectedToInternet then ShowMessage('Connected.') else ShowMessage('Not Connected.') end;
|