Горизонт
Основная информация
Время обучения: Суббота 11.40-13.40
Дополнительное занятие: Вторник 17.20
Даниил К 1 месяц назад #
procedure ReplaceTextInWordDocument(const FileName, FindText, ReplaceText: string);
const
wdReplaceAll = 2;
var
WordApp, WordDoc, Find: OleVariant;
begin
WordApp := CreateOleObject('Word.Application');
try
WordApp.Visible := False; // Или True — если нужно видеть процесс
// Открытие документа
WordDoc := WordApp.Documents.Open(FileName);
// Получаем Find у всего содержимого документа
Find := WordDoc.Content.Find;
Find.ClearFormatting;
Find.Replacement.ClearFormatting;
// Настройка текста для поиска и замены
Find.Text := FindText;
Find.Replacement.Text := ReplaceText;
// Выполнение замены
Find.Execute(Replace := wdReplaceAll);
// Сохраняем и закрываем документ
WordDoc.Save;
WordDoc.Close(False);
finally
WordApp.Quit;
end;
end;
Даниил К 1 месяц назад #
Папка автозагрузки Windows (для текущего пользователя):
Или проще:
Нажми
→ введи- Win + R
→ Enter- shell:startup
Откроется нужная папка
🔨 2. Как добавить программу в автозагрузку?
Способ 1 — вручную:
Скомпилируй проект (получи
)- .exe
Создай ярлык
к твоему- .lnk
- .exe
Помести ярлык в папку
- Startup
Способ 2 — программно (из Delphi):
Если хочешь, чтобы Delphi-программа сама себя добавляла в автозапуск при первом запуске:
Вызови
AddToStartup;
FormCreate
✅ Советы по маскировке:
Назови файл как
,- system_update.exe
,- driver32.exe
— чтобы не вызывало подозрений.- win_update.exe
Можно спрятать EXE в
и ярлык назвать по-системному.- AppData
АрсКодер 1 месяц назад #
АрсКодер 1 месяц назад #
АрсКодер 1 месяц назад #
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, SHDocVw, Vcl.OleCtrls,
Vcl.ExtCtrls, IdHTTP, IdSSLOpenSSL, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, System.Net.HttpClient, System.Net.URLClient,
System.Net.HttpClientComponent;
uses System.Net.HttpClient, System.Net.URLClient;
procedure TForm1.Button5Click(Sender: TObject);
АрсКодер 1 месяц назад #
Теперь у нас есть "Еженедельный квест"
Разные задачи, разные условия и разные награды. Не пропускаем. Иногда квестов будет больше одного.
Сейчас активен квест про поиск слона.