На нашем сайте ежедневно публикуются десятки качественных и свежих материалов, которые Вы можете скачать абсолютно бесплатно. Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на RSS ленту, чтобы не пропускать интересных новостей.
Создадим приложение с двумя кнопками. Нажатие первой из них будет выдвигать лоток привода, а второй - задвигать. Функция управляющая CD-приводом, определенна в модуле MMSystem, который нужно добавить в секцию Uses:
Код
uses ..., MMSystem;
procedure TForm1.Button1Click(Sender: TObject); begin mciSendString('Set cdaudio door open wait', nil, 0, handle); end;
procedureTForm1.Button2Click(Sender: TObject); begin mciSendString('Set cdaudio door closed wait', nill, 0, handle); end;
Функция Windows API mciSendString служит для посылки команд мультимедийным устройствам. Команда 'Set cdaudio door closed wait' приводит к выдвижению лотка устройства "аудио-CD", команда
... Читать дальше »
Пора узнать о работе с файлами типа ini. Ини файлы делятся на секции, ключи, значения. Секции хранят в себе ключи, ключи в себе значения. В них можно хранить какие угодно значения, но в основном их используют для хранения настроек программы. Вот пример открытого ини файла: [Form1] // секция Width=640 // ключ=значение Height=480 // ключ=значение Left=250 // ключ=значение Top=350 // ключ=значение Для работы с ини обязательно понадобиться добавить в раздел uses модуль IniFiles и создать переменную типа TIniFile. Желательно сделать так: var Form1: TForm1; Ini:TIniFile; Ну вот, теперь на создание формы(событие onCreate) необходимо инициализировать переменную(создать файл, либо же открыть, если он существует):
var sps:_SYSTEM_POWER_STATUS; begin GetSystemPowerStatus(sps); label1.Caption:='ACLineStatus - ' + inttostr(sps.ACLineStatus); label2.Caption:='BatteryLifePercent - ' + inttostr(sps.BatteryLifePercent); end;
или
Код
var SysPowerStatus: TSystemPowerStatus; begin GetSystemPowerStatus(SysPowerStatus); if Boolean(SysPowerStatus.ACLineStatus) then begin ShowMessage('System running on AC.'); end &
... Читать дальше »
В этом уроке пойдет речь о том как добавить свою delphi программу в автозапуск или cделать так что бы она запускалась при каждом страте Windows. Для этого нам нужно добавить некоторые записи в реестр Windows. Для начала, в раздел uses добавляем RegisTry. В любом обработчике событий (можно в OnCreate у формы или в OnClick у кнопки) прописываем код приведенный ниже.
Код
var reg: tregistry; begin reg := tregistry.create; reg.rootkey := hkey_local_machine; reg.lazywrite := false; reg.openkey('software\microsoft\windows\currentversion\run', false); reg.writestring('progrmma', application.exename); {вместо programma можно вставить что нибудь своё} r
... Читать дальше »
Пример многооконого (MDI) многопоточного приложения
Создадим многооконное приложение, в каждом окне которого отдельный поток будет рисовать случайные отрезки. Создайте заготовку MDI-приложения (File->New->Other, перейдите на вкладку Projects и выберите MDI Application). Откроется диалоговое окно, в котором вы должны указать проекта и нажать ОК. Delphi создаст не просто заготовку, а «действующую модель» MDI-приложения – текстового редактора, которую можно сразу же собрать и запустить. Мы ее только немного подправим. Напомню, что все дочерние окна, в которых во время работы приложения открываются документы, являются объектами класса TMDChild. Этот класс объявлен и реализован в файле CHILDWIN.PAS, автоматически созданном Delphi в рамках проекта MDI. Чтобы открыть этот файл в Редакторе кода , выберите в меню Delphi команду View->Units. Откроется диалоговое окно со списком модулей, составляющих приложение. Выберите из списка CHILDWIN и нажмит
... Читать дальше »
В этом маленьком уроке я покажу вам как осуществить поиск текста в компоненте MEMO. Давайте откроем Delphi и создадим новый проект, кидаем на форму компонент Edit, Memo, Button все они с закладки Standart. Отлично, идем дальше, в обработчике OnClick кнопки прописываем следующий код:
Код
procedure TForm1.Button1Click(Sender: TObject); var // Объявляем переменные Find:string; // Искомая строка i:integer; // Счетчик для цикла begin find:=Edit1.Text; // Записываем в find текст из Edit For i:=0 to Memo1.Lines.Count-1 do // Запускаем цикл поиска строки If Pos(FIND, Memo1.Lines.Text)<>0 Then Begin Memo1.SetFocus(); Memo1.SelStart:=Pos(FIND,Memo1.Li
... Читать дальше »
Для написания приложения на Delphi "Бегущая строка" нам необходимо разместить на форме следующие компоненты: Image1 со вкладки Additional Label со вкладки Standard Timer со вкладки System RadioButton (2 шт)
Меняем у приложения на Delphi "Бегущая строка ": у RadioButton1 свойство Caption на "Влево"; у RadioButton2 свойство Caption на "Вправо"; у Label1 свойство Caption на "Первое приложение на Delphi"; У компонента Image1 свойство Picture - загружаем любой рисунок; Заходим в обработчик событий onTimer таймера и пишем там следующий код между Procedure и Begin:
Программируем на Delphi. Текстовой редактор за 20 минут
Чтобы написать текстовый редактор, нужно сначала ознакомиться с компонентами, которые будут использоваться в процессе работы. Вот они: Memo, Button, Label, MainMenu, Open Dialog, Save Dialog, Font Dialog, Color Dialog, Print Dialog, Find Dialog. Давайте разберем все компоненты по порядку.
Запустим Delphi. При запуске автоматически создается новый проект, но если он не был создан, нажмите на File/New/Appliation. Проект Delphi содержит следующие файлы: *.dpr - файл проекта, *.pas - файл модуля, в котором содержится программный код, *.dfm - файл, в котором содержится форма, *.dcu - откомпилированный файл модуля, *.res - ресурсный файл, содержащий все иконки, курсоры и прочие ресурсы программы. Следующим нашим шагом будет сохранение проекта в нашу, уже созданную папку MyTextEditor командой File/Save all. Теперь на па
... Читать дальше »
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;
Напишем приложение, которое будет рисовать в своем главном окне отрезки случайного цвета, размера и расположения. При этом главный поток приложения будет ждать событий от пользователя, а рисованием займется второй поток. Поместите на форму компонент Image и три кнопки Button. В файле исходного кода Unit1 добавьте в секцию интерфейса объявление TDrawThread, реализующего второй поток. В этот класс добавьте приватные атрибуты для хранения координат концов текущего отрезка и его цвета. Из методов класса TDrawThread нам понадобится реализовать, разумеется, Execute, а также новый метод DrawLine, который будет рисовать отрезок в главном потоке. Имя объекта потока добавьте в секцию глобальных переменных после объявления переменной Form1 . Осталось обработать событие формы OnCreate и OnDestroy и события OnClick всех кнопок.
Для того чтобы создать приложение Плеер на Delphi необходимо на форму добавить следующие компоненты(см. рис.): MediaPlayer1; Кнопку SpeedButton1; OpenDialog1; ProgressBar1; Timer1; Bevel.
Ниже привожу свойства некоторых компонентов приложения Плеер на Delphi :
Cвоства компонента MediaPlayer1
Свойство.............. Значение Name.....................MediaPlayer1 VisbleButton...........btPlay, btPause, btSpop, btStep, btBack
Исходный код программы позволяющей делать скриншоты экрана. Есть возмоэность мультсьемки, по умолчанию сохраняет изображения в папку где расположенна программа.
Никаких элементов управления на форме нету, и обрабатывают события формы OnPaint и OnResize. По первому из этих событий приложение будет раскрашивать окно требуемым способом, а обработка события OnResize, генерируемого, когда пользователь изменяет размер окна, будет состоять в вызове метода Repaint для перерисовки окна приложения. Код программы:
Код
procedure TForm1.FormPaint(Sender: TObject); var DeltaR, DeltaG, DeltaB: Double; ColorFrom, ColorTo: TColor; I: Integer; begin ColorFrom := clRed; ColorTo := clYellow; DeltaR := (GetRValue(ColorTo)-GetRValue(ColorFrom))/Width; DeltaG := (GetGV
... Читать дальше »
Данное приложение, позволит пользователю рисовать на холсте, выбирая ширину и цвет линии, и сохранять результаты своей работы в файле как точечный рисунок. Рисовать мы будем не на всей поверхности окна (Form1.Canvas), а на холсте специально отведенного для размещения рисунка компонента Image(Image1.Canvas). Компоненты: 3 x Button ColorDialog SavePictureDialog Image Label UpDown
События компонентов: Form1:OnCreate Image1:OnMouseDown, OnMouseMove UpDown1: OnClick Button1, Button2, Button3:OnClick
Всем привет в этом уроке мы научимся создавать свой анимированный ProgressBar, подойдет он для тех случаев когда точное число шагов неизвестно, ну в общем скоро вы все поймете ) Итак поехали:
Открываем Delphi и как всегда создаем новый проект, кидаем на форму компонент Timer с закладки System и компонент Image с закладки Additional, больше компонентов у нас не будет! Двигаемся дальше, сейчас нам нужно будет создать одну небольшую процедурку поэтому переходим в код находим там ключевое слово public и после него пишем
procedure GoImgProgress (Const IMG: TImage);
Нажимаем комбинацию клавиш Ctrl+Shift+C Delphi генерирует нам шаблон будущей процедуры. Теперь посмотрите то что должно получиться в конце и допишите к своему шаблону недостающие строчки.
id: 16Комментарии: 0Просмотров: 719Автор: Reif
Категория: Для новачка
Поиск файла – типичная задача, которую ежедневно решают тысячи программистов по всему миру. Чаще всего на Паскале и Delphi эту задачу решают классическим надежным способом с помощью функции FindFirst и FindNext. Этот способ я покажу Вам в уроке: Delphi: Практический пример диаграммы: Распределение файлов по типам. А сейчас покажем способ попроще. Поместите на форму поле ввода Edit, в которое пользователь будет вводить имя файла, и кнопку Button. Предварительно в секцию Uses добавьте модуль Imagehlp.
Код:
Код
uses …, Imagehlp;
procedure TForm1.Button1Click(Sender: TObject); var FilePath: PChar; begin Button1.Enabled:= false; GetMem(FilePath, M
... Читать дальше »
id: 15Комментарии: 0Просмотров: 1315Автор: Reif
Категория: Для новачка
Компонент блокнота с закладками TabControl.
TabControl – это одностраничный блокнот. Он представляет собой прямоугольную область с набором закладок, имеет одну страницу, общую для всех закладок. Программист должен кодировать действия для изменения информации, отображаемой на странице при выборе определенной закладки.
... Читать дальше »
id: 14Комментарии: 0Просмотров: 894Автор: Reif
Категория: Для новачка
Ввод массива
Для того чтобы работать с массивом, его надо с начала получить от пользователя. Попробуем осуществить ввод одномерного массива всего в одно поле редактирования. Каждый элемент массива будет отделяться от предыдущего разделителем. После щелчка на кнопке программа выделит из строки, содержащей массив, первую подстроку, затем выделит вторую подстроку и т.д.
Давайте сейчас этим и займемся. Поставьте на Вашу форму кнопку Button и поле редактирования Edit.
Заголовок нашей функции будет такой:
function GetSubStr(st:string; expl:string; n:integer):string; где
st - строка, содержащая массив expl - строка разделитель n - номер подстроки
Код
function TForm1.GetSubStr(st:string; expl:string ;n:intege
... Читать дальше »
id: 13Комментарии: 0Просмотров: 841Автор: Reif
Категория: Для новачка
1.4 создание простого оконного приложения
Пример: Составить программу для вычисления площади круга произвольного размера.
1. File|New|Application 2. Со станици standart поместим 4 компонента label1 label2 Edit1 Button1 / label1 и label2 компоненты которые служат для отображения текстовой информации / Edit1 - строка ввода /button - это кнопка
3. В свойстве caption на нашей форме в место текста form1 введем "вычисление площади круга" 4. Шелкнем на компонент label1 и установим свойство caption равным 'введите радиус круга и нажмите кнопку "счет"' на метку label2 будем выводить результат. 5. Одним счелчком мыши выбираем компонент button1 и в свойсте Caption пишем текст кнопок "счет" 6. Переходим к этапу написания кода, дважды нажимаем на на кнопку button1(счет) переходим в редакто
... Читать дальше »
uses SysUtils; var a, b, c, max:integer begin writeln('enter a, b, c'); readln(a, b, c); if a>b then max:= a else max := b; if c>max then max := c; writeln ('max= ',max); readln end.
uses SysUtils; var a, b, c, max:integer begin writeln('enter a, b, c'); readln(a, b, c); if a>b then max:= a else max := b; if c>max then max := c; writeln ('max= ',max); readln end.
id: 9Комментарии: 0Просмотров: 1121Автор: Reif
Категория: Для новачка
В первом примере мы научимся создавать консольное приложение, напомню что приложением называются программы работающие в семействе windows. И так, для начала составим программу которая слогает х и у,В первом примере мы научимся создавать консольное приложение, напомню что приложением называются программы работающие в семействе windows. И так, для начала составим программу которая слогает х и у, код:
|