На нашем сайте ежедневно публикуются десятки качественных и свежих материалов, которые Вы можете скачать абсолютно бесплатно. Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на RSS ленту, чтобы не пропускать интересных новостей.
Целью данного урока является создание mp3 playera (проигрывателя) на основе библиотеки bass.dll. В данном проекте я попытаюсь рассказать, как подключить библиотеку bass.dll, создать простейший PlayList, подключить кнопки (Play, Pause, Stop) для управления проигрыванием.
Приступим...
Запускаем Delphi и создаем новое приложение: File->New->VCL Forms Application – Delphi. В свойство Name формы напишем Form_player, а Caption -> mp3player Сохраняем модуль(unit1) с именем mp3, а проект(project1) с именем mp3player.
В папку с проектом помещаем файлы bass.dll и bass.pas. Файлы можно скачать с официального сайта www.un4seen.com или Здесь Далее размещаем на форме компоненты как показано на рисунке. ... Читать дальше »
Чтобы поставить пароль на программу в delphi можно сделать так: 1.Кинуть программу в архив,на него поставить пароль! 2.Есть процедура:При запуске программы открывается форма с Edit и Button! Думаешь пасс потом в обработчик событий ОnClick: delphi Код:
Цитата
if Edit1.Text='Ваш пароль' then Form2.Show // Form2 это твоя программа,вот так! else showmessage ('пароль не верный');
id: 70Комментарии: 0Просмотров: 1966Автор: Reif
Категория: Для новачка
Создадим программу, которая будет запрашивать ввод числа от 1 до 12 и выводить название времени года, которому принадлежит месяц с указанным номером. Интерфейс прост: поле ввода (Edit1) и кнопка (Button1) Пишеи команду для кнопки(Button1)
Цитата
procedure TForm1.Button1Click(Sender: TObject); var Month: Integer; begin Month:=StrToInt(Edit1.Text); case Month of 1,2,12: ShowMessage('Зима'); 3..5: ShowMessage('Весна'); 6..8: ShowMessage('Лето'); 9..11: ShowMessage('Осень') else Sho
... Читать дальше »
//открываем документ procedure TMainForm.FileOpen(Sender: TObject); begin if OpenDialog.Execute then Memo1.Lines.LoadFromFile(OpenDialog.FileName); S:=OpenDialog.FileName; //переменная S имеет формат String. end;
Мы будем создавать программу, которая считает сколько слов, строк и символов вы ввели в memo. (см. рисунок)
И так, бросаем на форму компоненты Memo и StatusBar. Сначала создаем три панелей в строке состояния (StatusBar): 0 - Символов: 0 1 - Слов: 0 2 - Строк: 0
Далее прописываем следующие коды:
Цитата
procedure TForm1.Memo1Change(Sender: TObject); Begin n := 0; for i := 0 to Length (Memo1.Text) do begin if (Memo1.text[i]<>' ') and ((Memo1.text[i+1]=' ') or (Memo1.text[i+1]=#1
... Читать дальше »
|