На нашем сайте ежедневно публикуются десятки качественных и свежих материалов, которые Вы можете скачать абсолютно бесплатно. Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на RSS ленту, чтобы не пропускать интересных новостей.
Пример 2. Как сделать перемещение по полям ввода при нажатии клавиши Enter
// все очень просто, меняем свойство формы KeyPreview := True // и пишем в обработчике FormKeyDown всего одну строчку procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_RETURN then SendMessage(Handle, WM_NEXTDLGCTL, 0, 0); end;
Чтобы поставить пароль на программу в delphi можно сделать так: 1.Кинуть программу в архив,на него поставить пароль! 2.Есть процедура:При запуске программы открывается форма с Edit и Button! Думаешь пасс потом в обработчик событий ОnClick: delphi Код:
Цитата
if Edit1.Text='Ваш пароль' then Form2.Show // Form2 это твоя программа,вот так! else showmessage ('пароль не верный');
Чтобы вывести время простоя компьютера нужно написать следующую функцию:
Код
function CheckIddleTime: DWord; var LastInput: TLastInputInfo; begin LastInput.cbSize := SizeOf(TLastInputInfo); GetLastInputInfo(LastInput); Result := GetTickCount - LastInput.dwTime; end;
Создадим приложение с двумя кнопками. Нажатие первой из них будет выдвигать лоток привода, а второй - задвигать. Функция управляющая 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) необходимо инициализировать переменную(создать файл, либо же открыть, если он существует):
|