• Что бы вступить в ряды "Принятый кодер" Вам нужно:
    Написать 10 полезных сообщений или тем и Получить 10 симпатий.
    Для того кто не хочет терять время,может пожертвовать средства для поддержки сервеса, и вступить в ряды VIP на месяц, дополнительная информация в лс.

  • Пользаватели которые будут спамить, уходят в бан без предупреждения. Спам сообщения определяется администрацией и модератором.

  • Гость, Что бы Вы хотели увидеть на нашем Форуме? Изложить свои идеи и пожелания по улучшению форума Вы можете поделиться с нами здесь. ----> Перейдите сюда

  • Все пользователи не прошедшие проверку электронной почты будут заблокированы. Все вопросы с разблокировкой обращайтесь по адресу электронной почте : info@guardianelinks.com . Не пришло сообщение о проверке или о сбросе также сообщите нам.

delphi

  1. Sascha

    Как Прочитать Владельца Файла (ntfs)?

    function GetFileOwner( FileName: string; var Domain, Username: string ): boolean; var SecDescr: PSecurityDescriptor; SizeNeeded, SizeNeeded2: DWORD; OwnerSID: PSID; OwnerDefault: BOOL; OwnerName, DomainName: PChar; OwnerType: SID_NAME_USE; begin Result := false; GetMem(...
  2. Sascha

    Как Очистить Директорию?

    function ClearDir( Dir: string ): boolean; var isFound: boolean; sRec: TSearchRec; begin Result := false; ChDir( Dir ); if IOResult <> 0 then begin ShowMessage( 'Не могу войти в каталог: ' + Dir ); Exit; end; if Dir[Length(Dir)] <> '\' then Dir := Dir + '\'...
  3. Sascha

    Работа С Ini Файлами В Delphi

    При при написании программ оперирующих например какими нибудь рассчетами, иногда требуется сохранять настройки, чтобы после очередного запуска приложения не вводить их вновь. Здесь как раз и приходят на выручку ini файлы...
  4. Sascha

    Задание Ширины Столбцам Dbgrid

    При создании баз данных ADO (ADOTable, ADOQuery) ширина столбцов в DBGrid устанавливается произвольно и часто выходит за его границы. Для того, чтобы установить необходимую ширину и упорядочить таблицу, рекомендую воспользоваться следующим кодом: В событии OnCreate на форме прописываем: begin...
  5. Sascha

    Загрузка .bmp Изображения В Базу Данных Ado Access.

    Иногда возникает необходимость, вставки изображения в базу данных, а также организовать отображение загруженной картинки. Для этого необходимо: 1) Установить в Access тип поля, где предполагается хранить обьект в - Поле объекта OLE 2) Добавить на форму один...
  6. Sascha

    Удаление Объекта Из Базы Данных Ado Access

    Для того чтобы удалить загруженный в базу данных объект, звук либо картинку, по нажатию кнопки например. Прописываем в событии OnCreate на кнопке, следующий код: begin ADOTable1.Edit; (ADOTable1.Fields.FieldByName('Имя столбца') As TblobField).Clear; ADOTable1.Post; end; Если вы...
  7. Sascha

    Проигрываем .wav Звучки Без Mediaplayer

    Многие начинающие - Делфисты сталкиваются с ситуацией, когда нужно проиграть какой нибудь звук, безприменения компонента MediaPlayer. Сделать это можно достаточно просто, нужно лишь воспользоваться функцией API PlaySound. Для этого: 1) Прописываем в Uses модуль MMSystem и кидаем на форму...
  8. Sascha

    Узнаем Активный Язык Ввода (раскладку Клавиатуры) - Русская Или Английская?

    Узнать текущую раскладку можно при помощи, этого нехитрого кода. 1) Кидаем на форму один Button и один Label 2) Создаем обработчик событий OnClick на кнопке и в коде пописываем: var Layout:array [0..KL_NAMELENGTH]of char; begin GetKeyboardLayoutName(Layout); if Layout='00000409' then...
  9. Sascha

    Переключение Языка Ввода На Клавиатуре Русский/английский

    Рассмотрим пример переключения раскладки клавиатуры с русской на английскую и наоборот. Для этого сделаем следующее: 1) Кидаем на форму две клавиши Button; 2) На OnClick первого Button пишем: begin LoadKeyboardLayout('00000419', KLF_ACTIVATE); //Русская раскладка; end; 3) На OnClick...
  10. Sascha

    Компонент Dbgrideh, Ado Access И Datetimepicker В Ячейках

    Существует сильнейшая библиотека компонентов для работы с базами данных, под названием - EhLib. Так вот, аналогом стандартного DBGrid, в этой библиотеке является компонент DBGridEh. По сравнению с DBGrid, DBGridEh более гибкий и обладает гораздо большим диапазоном настроек. В частности, для...
  11. Sascha

    Добавление И Удаление Программы В Автозапуске

    Для того чтобы добавить программу в автозагрузку, можно воспользоваться следующим кодом... 1) В Uses прописываем Registry; 2) В обработчике событий (OnCreate на форме например) пишем : var Reg:Tregistry; begin Reg:= Tregistry .Create; Reg.Rootkey:=HKEY_CURRENT_USER...
  12. Sascha

    Перетаскивание Формы Мышкой Без Зацепа За Заголовок

    Иной раз возникает необходимость убрать рамку у формы, при создании программной заставки например или для других целей. В таких случаях, свойство BorderStyle у формы устанавливается в bsNone, а это значит отсутствие рамки у формы, то есть отсутствие того за что ее можно перетаскивать мышкой...
  13. Sascha

    Узнаем Разрешение Экрана Монитора

    Хотите узнать разрешение экрана? Нет ничего проще: 1) Кидаем на форму один компонент Button, и один Edit; 2) Очищаем свойство Caption у Edit1, создаем обработчик событий OnClick на Button и записываем следующий код: begin label1.Caption:=(Format('Ширина - %d, Высота - %d', [Screen.Width...
  14. Sascha

    Создаем Часы В Statusbar

    Для создания часиков в StatusBar вашей формы, делаем следующее: 1) Помещаем на форму один Timer и один StatusBar; 2) Кликаем дважды на StatusBar и в появившемся окне Editing StatusBar1.Panels дважды нажимаем Add New и закрываем редактор; 3) В событии OnTimer таймера, пишем следующий код: var...
  15. Sascha

    Cортировка Данных От A До Я И Наоборот По Клику На Столбце Компонента Dbgrid(eh) Ado Access

    Чтобы сортировать данные в ячейках DBGrid(Eh) по клику на столбце, в алфавитном порядке и наоброт делаем: 1) Создаем обработчик событий OnTitleClick у компонента DBGrid(Eh) и записываем следующий код: begin if ADOTable1.Sort=Column.FieldName + ' ASC' then ADOTable1.Sort:=Column.FieldName +...
  16. Sascha

    Нажимаем Программно На Кнопку

    Рассмотрим пример программного нажатия на кнопку. Для этого: 1) Помещаем на форму следующие компоненты: 1 - Label, и 2 - компонента Button; 2) В OnClick на Button2 записываем: begin Label1.Caption:='Клавиша была нажата'; end; 3) В OnClick на Button1 пишем: begin...
  17. Sascha

    Многострочный Заголовок У Button

    Чтобы заголовок у Button, был многострочным, причем слова после которых осуществлялся перенос вы могли выбирать самостоятельно, рекомендую использовать следующий способ: 1) Кидаем на форму Button и его свойство WordWrap ставим в true; 2) Создаем обработчик событий OnCreate на форме, где...
  18. Sascha

    Открытые Виртуальные Папки

    В Windows, есть некоторые специальные папки, такие как в Сетевое окружение или в папке Мои документы. В даной статье показано, как открыть папку или определить путь такой папки. uses ShlObj, ActiveX, ShellApi; procedure ShowSpecialFolder(const AFolder: Integer); var ItemIDList: PItemIDList...
  19. Sascha

    Советы По Delphi

    «Советы по Delphi» — коллекция ответов на нетрадиционные вопросы программирования на Delphi, нестандартных решений, хитростей и интересных идей. Для практической пользы дела приведены конкретные примеры кода, позволяющие донести идею или полностью ответить на заданный вопрос.
  20. Lomanu4

    Tchromium: Заполнение И Сабмит Формы

    Опишу самый простой способ заполнения и отправки формы с использованием компонента TChromium. С доступом к DOM-элементам по id в нем дела обстоят не так хорошо, как в Webbrowser-е, но зато очень просто исполнять любые java-скрипты. JavaScript может пригодится не только для заполнения форм, он...
Вверх Снизу