Работа с Microsoft Office Word

Автор: | 07.10.2013
Нет комментариев

Post Views: 4 402 uses ComObj; var MSWord: Variant; Создаём экземпляр Ворда — MsWord := CreateOleObject(‘Word.Application’); Делаем видимым документ — MsWord.Visible := True; Скрываем документ — MSWord.Visible:=false; Создаём новый документ — MSWord.Documents.Add; Открываем документ — MSWord.Documents.Open(‘C:\ex.doc’); Записываем текст в документ — MSWord.Selection.TypeText(‘Текст’); Сохраняем документ — MSWord.ActiveDocument.SaveAs(‘C:\ex.doc’); Устанавливаем размер шрифта — MSWord.Selection.Font.Size:=12; Перенос текста на новую строку… Читать далее »

Атрибуты файлов

Автор: | 07.10.2013
Нет комментариев

Post Views: 5 936 Установить атрибут «Скрытый» — SetFileAttributes(PChar(‘1.txt’),faHidden); Установить атрибут «Только для чтения» — SetFileAttributes(PChar(‘1.txt’),faReadOnly); Установить атрибут «Системный» — SetFileAttributes(PChar(‘1.txt’),faSysFile); Установить атрибут «Архивный» — SetFileAttributes(PChar(‘1.txt’),faArchive); Снять атрибут «Только для чтения» с файла — FileSetAttr(PChar(‘1.txt’),Not(faReadOnly)); Снять атрибут «Скрытый» — FileSetAttr(PChar(‘1.txt’),Not(faHidden)); Снять атрибут «Системный» — FileSetAttr(PChar(‘1.txt’),Not(faSysFile)); Снять атрибут «Архивный» — FileSetAttr(PChar(‘1.txt’),Not(faArchive)); Вывести сообщение если файл имеет атрибут… Читать далее »

Работа с ini файлами

Автор: | 07.10.2013
1 комментарий

Post Views: 7 115 Создание или открытие Ini файла — Ini:= TIniFile.Create(‘Ini.ini’); // Var Ini : TIniFile; uses , inifiles Создается, если не задан путь в папке Виндовс. Создание или открытие Ini.ini файла в директории программы — Ini:=TiniFile.Create(extractfilepath(Application.ExeName)+’Ini.ini’); // Var Ini : TIniFile; uses , inifiles Освобождение памяти от переменной — Ini.Free; // Var Ini :… Читать далее »

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

Автор: | 06.10.2013
4 комментария

Post Views: 5 304 Во время запуска программы пропишем её в реестр 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; // ветка текущего пользователя… Читать далее »

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

Автор: | 06.10.2013
Нет комментариев

Post Views: 2 441 Программно открыть 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]

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

Автор: | 03.06.2013
Нет комментариев

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

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

Автор: | 27.05.2013
5 комментариев

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

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

Автор: | 27.05.2013
Нет комментариев

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