Отправляет email-рассылки с помощью сервиса Sendsay

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 30.04.04 09:05 Новые компоненты |x| Отличная новость - FastReport 2.52. (29.04.04 10:12) Что же отличного? добавлено: ! добавлен экспорт в текст с возможностью печати на матричном принтере (ждали? просили? - есть /а в "тройке" будет еще лучше/ ;) ) По поводу экспортов: ! добавлен экспорт в HTML-формат на основе таблиц и стилей ! добавлен экспорт в Excel на основе формата XML (MS Office 2000/XP/2003) - полно...

2004-04-30 09:03:53 + Комментировать

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 29.04.04 09:05 Лучшее из нашего FAQ |x| Как узнать IP адрес. HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\NetTrans\ (для 98-винды) Ищем параметр IPAddress Программно можно определить следующим образом: var WSAData : TWSAData; p : PHostEnt; Name : array [0$FF] of Char; begin WSAStartup$0101, WSAData); GetHostName(name, $FF); p = GetHostByName(Name); showmessage(inet_ntoa(PInAddr(p.h_addr_list);...

2004-04-29 09:03:54 + Комментировать

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 28.04.04 09:05 Лучшее из нашего FAQ |x| Как изменить размер Jpeg и сохранить его в новый файл procedure TForm1.Button1Click(Sender: TObject); var bmp: TBItmap; jpg: TJpegImage; scale: Double; begin if opendialog1.execute then begin jpg= TJpegImage.Create; try jpg.Loadfromfile( opendialog1.filename ); if jpg.Height > jpg.Width then scale = 50 / jpg.Height else scale = 50 / jpg.Width; bmp= Tbitmap.Create; try...

2004-04-28 09:03:50 + Комментировать

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 27.04.04 09:05 Кое-что из нашей кладовки |x| FastLaunch 1.3 Maxud kama@dina.ans.aero (20.02.04 23:39) "Запускатель" папок и файлов. Несколько мелких доработок + все использованные модули + комментарии. > Скачать: исходные тексты (31кб) демонстрационный EXE файл (197кб) посмотреть скриншот Лучшее из нашего FAQ |x| Поиск строки в ListBox Есть функция API Windows, что заставляет искать строку в ListBox с указа...

2004-04-27 09:03:52 + Комментировать

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 26.04.04 09:05 Лучшее из нашего FAQ |x| Имеется у меня дескриптор (Handle) элемента(TEdit, с помощью какой функции API мне можно вставить в этот элемент какой либо текст. Можно воспользоваться SendMessage (посылать сообщение внутри приложения или другой программы. Для этого необходимо знать хэндл окна программы источника и получателя сообщения. данный код демонстрирует возможность посылки соообщения внутри ...

2004-04-26 09:04:10 + Комментировать

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 25.04.04 09:05 Лучшее из нашего FAQ |x| Можно-ли из Дельфей вызвать Outlook и автоматически послать месаги > Юрий (28.06.00 14:29) Здравствуйте, помогите пожалуйста решить проблему (если она решаема) Мне надо выбрать из БД e-mail адреса и разослать по ним месаги с attachmentами (можно ли из Дельфи вызвать Outlook Express и какими-нибудь командами заставить его сгенерить сообщение и послать его) ну типа как ...

2004-04-25 09:03:46 + Комментировать

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 24.04.04 09:05 Кое-что из нашей кладовки |x| xIcon _edWin edwin@front.ru (27.02.04 14:20) Маленькая программка для "выдергивания" иконок из EXE-шника. Бывает полезна. ) > Скачать: исходные тексты (7кб) демонстрационный EXE файл (198кб) Лучшее из нашего FAQ |x| Как программно переключить раскладку клавиатуры? LoadKeyboardLayout'00000409, KLF_ACTIVATE); // английский LoadKeyboardLayout'00000419, KLF_ACTIVATE)...

2004-04-24 23:35:08 + Комментировать

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 23.04.04 09:05 Лучшее из нашего FAQ |x| Состояние кнопки insert (Insert/Overwrite) } { Returns the status of the Insert key. } } function InsertOn: Boolean; begin InsertOn = LowOrderBitSet(GetKeyState(VK_INSERT) end ; > Прислать свои комментарии Обсуждается в конференциях |x| Как прятать програму из Task Manager (win 2k? Здравствуйте мастера! Как прятать програму из Task Manager-а? RegisterServiceProcess ра...

2004-04-23 09:03:51 + Комментировать

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 22.04.04 09:05 Лучшее из нашего FAQ |x| Как сделать так, чтобы по Alt-F4 форма не просто закрывалась, а выдавала запрос на сохранение? Обрабатывать OnCloseQuery. > Прислать свои комментарии Обсуждается в конференциях |x| создать файл сообщений (разработка службы) Хочу чтобы в EventLog служба писала сообщения из exe-файла. Как создать файл сообщений и включить его в проект. Про mc. События ActiveX Такая ситу...

2004-04-22 09:03:54 + Комментировать

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 21.04.04 09:05 Лучшее из нашего FAQ |x| Доступ к иконкам Всё перетянуто из CommCtrl.pas uses CommCtrl; var i, k:Integer; XYold, XY : Array[1.100] of TPoint; CurPos:TPoint; Сначала получаем Handle DeskTop'a: function GetHandle: THandle; var S: String; begin Result = FindWindow'ProgMan, nil); Result = GetWindow(Result, GW_CHILD); Result = GetWindow(Result, GW_CHILD); SetLength(S, 40); GetClassName(Result, PCh...

2004-04-21 09:03:43 + Комментировать