Можно ли запустить CMD скрипт с самой программы, например с компонента memo? Как если бы запустили его посредством запуска файла .cmd ???
Нужно чтобы весь скрипт считывался с компоненты.

(читать всё…)

Есть куча *.cer файлов. Как программно узнать дату окончания сертификата?

(читать всё…)

Как определить кол-во знаков после запятой в числе extended?

(читать всё…)

на форме простой веббраузер1
загружаю гуглю

WebBrowser1.Navigate(ComboBox1.Text);

нахожу сайт через гугл = любой. здесь можно:

var
  TabSheet: TTabSheet;
  WebBrowser : TWebBrowser ;
begin
  TabSheet := TTabSheet.Create(PageControl1);
  TabSheet.Caption := 'New Tab Sheet';
  TabSheet.PageControl := PageControl1;
WebBrowser := TWebBrowser.Create(Self);
TWinControl(WebBrowser).Parent:=TabSheet;
TWinControl(WebBrowser).Align := alClient;
pagecontrol1.ActivePage:=tabsheet;

сделать так.
а через яндекс открывает в другом браузере ie, firefox и.т.п.
но не webbrawser1
как сделать чтобы новые ссылки открывал в TabSheet в созданных

(читать всё…)

можно ли узнать частоту звука = эквалайзеры как то же делают.

MediaPlayer1.FileName := 'sound.mp3';

  if MediaPlayer1.Media <> nil then
  begin
      MediaPlayer1.Play;
end;

если высокая частота то выводить красную картинку JPG
если низкая то зеленую
андройд — delphi 11

(читать всё…)

Нужно отредактировать строку в буфере обмена. А именно: убрать из неё CRLF’ы с их заменой на » » или «,». Собственно замену символов в строке я могу сделать. Интересует именно как скопировать содержимое буфера обмена в String. Как это можно сделать?

Варианты подходящих решений, как я вижу на настоящий момент:
1) Отредактировать строку с заменой символов прямо в буфере обмена и потом скопировать её в переменную типа String
2) Скопировать в переменную типа String содержимое буфера обмена и уже там делать замену символов.

Второе думаю проще?

(читать всё…)

Для своих классов можно просто добавить свойство Self (или любое иное имя), которое вернет ссылку на объект.

И как его добавить?

(читать всё…)

Почему деление на 0?

Function ProbelsInStr(const s:string128; const c:char; const chastota, nachalo:byte):ShortString;
asm
  mov ecx, 0
  mov cl, chastota

  push ebx
  push edi
  push esi

  mov edi, result
  mov esi, s

  mov eax, 0
  mov al, [esi]
  mov edx, 0

  div ecx

  pop esi
  pop edi
  pop ebx
end;

Почему на «div ecx» выдаёт ошибку деления на ноль?

Почему после такого кода

  mov ecx, 0
  mov cl, chastota

(читать всё…)

Как сделать на Delphi чтобы персонаж обходил препятствия?

(читать всё…)

Можно ли как нибудь сделать прозрачную форму по краям рисунка PNG и вообще как его поставить на форму?

(читать всё…)