Архивы автора: android developer

Автозагрузка программы

Автор: | 06.10.2013

Во время запуска программы пропишем её в реестр Windows, в раздел  автозагрузки [cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”] uses Registry; procedure TForm1.FormCreate(Sender: TObject); var reg: TRegistry; path: string; begin path := Application.EXEname; // узнаем путь к программе и ее имя reg := TRegistry.Create; // открываем реестр reg.RootKey := HKEY_CURRENT_USER; // ветка текущего пользователя if reg.OpenKey(‘\Software\Microsoft\Windows\’ +… Читать далее »

Работа с CD/DVD приводом

Программно открыть dvd привод: [cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”] mciSendString(‘set cdaudio door open wait’,nil,0,0); // uses , mmsystem; [/cc] Программно закрыть (если поддерживается железом) dvd привод: [cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”] mciSendString(‘set cdaudio door closed wait’,nil,0,0); // работает только когда в системе 1 физический dvd привод. [/cc]

Попадание в определенную область сетки координат

Текст задания : Написать программу, определяющую по введенным с клавиатуры значениям координаты точки (x,y) её принадлежность к одному из образов. Решение :

Сортировка массива методом Шелла, поиск методом Фибоначчи

Текст задания : Ввести список чисел из файла, затем сортировать их методом Шелла, а после поиск по списку методом Фибоначчи. Решение :

Подсчет числа оценок без использования условного оператора

Текст задания : Известны оценки по информатике каждого из 20 учеников класса. В начале списка перечислены все пятерки, затем все остальные оценки. Сколько учеников имеют по информатике оценку “5”? Условный оператор не использовать. Известно, что пятерки имеют не все ученики класса.

В одном шаге от счастья

Текст задания : Вова купил билет в трамвае 13-го маршрута и сразу посчитал суммы первых трёх цифр и последних трёх цифр номера билета (номер у билета шестизначный). Оказалось, что суммы отличаются ровно на единицу. «Я в одном шаге от счастья», — подумал Вова, — «или предыдущий или следующий билет точно счастливый». Прав ли он?

Вывести в таблицу локальные максимумы и минимумы функции y=sin(a*x^2)

Текст задания : Вывести значение аргумента при изменении которого от нуля до данного значения, число локальных минимумов и максимумов функции y=sin(a*x^2) достигнет 20. Решение :

Формирование строки подключения во время запуска программы

Автор: | 22.03.2013

В Windows7 компонент ADOConnection при переносе на другие компьютеры готового исходника, сбрасывает строку подключения на собственную “C:\Windows\system32″ или подобную. Выхода и данной ситуации может быть два. Или переносить файл с базой данных в эту папку, или поставить ниже следующий костыль. Данный костыль формирует строку подключения во время запуска программы, а именно создания Дата модуля. [cc… Читать далее »