Работа с Microsoft Office Word

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

Post Views: 3 741 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 257 Установить атрибут “Скрытый” – 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: 6 541 Создание или открытие 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: 4 726 Во время запуска программы пропишем её в реестр 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: 1 989 Программно открыть 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: 2 538 Текст задания : Написать программу, определяющую по введенным с клавиатуры значениям координаты точки (x,y) её принадлежность к одному из образов. Решение :

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

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

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

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

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

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