Как в Делфи сделать аналог дос команды
copy file1 + file2 + file3 (+ …) file_res
Другими словами, объединить несколько файлов в один копированием.

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

Как изменить пользователя — раньше был админ другой?

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

Есть N JPG картинок загруженных в Лист.
Запускаем режим слайдшоу. Выбираем по одной картинке.
Когда перебираем последовательно — все просто.
Как сделать рандомный выбор картинки без повторов.
Присваивать каждой картинке переменную? А если N=500…?
Может есть более хитрый способ исключить из результата «уже использованные»?
(Удалять «уже использованные» из листа не получится он чистится только весь)

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

Реально ли создать событие при входе мышки в НЕпрямоугольную область?

1) Для TImage
2) Для другого компонента

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

Поможете мне устранить такой баг?

У меня в папке «E:\tmp» имеется множество файлов и папок. Мне нужно удалить полностью всю папку.
Вот код:

type TArrayString = array of string;

procedure DirList(Dir: string; var DirArr: TArrayString; Over: byte = 0);
var F: TSearchRec;
begin
   ChDir(Dir);
   if Over=0 then
      SetLength(DirArr, 0);
   SetLength(DirArr, Length(DirArr)+1);
   DirArr[Length(DirArr)-1]:=Dir;
   if Dir[Length(Dir)]<>'\' then
      Dir:=Dir+'\';
   if FindFirst('*', faAnyFile, F)=0 then
   repeat
      if F.Attr and faDirectory <> faDirectory then
         DeleteFile(Dir+F.Name);
   until FindNext(F)<>0;
   if FindFirst('*', faAnyFile, F)=0 then
   repeat
      if F.Attr and faDirectory = faDirectory then
         if not (F.Name='.') and not (F.Name='..') then
         begin
            DirList(Dir+F.Name, DirArr, 1);
            ChDir(Dir);
         end;
   until FindNext(F)<>0;
   FindClose(F);
   if Over=0 then
      ChDir('C:\');
end;

procedure TForm1.Button1Click(Sender: TObject);
var DirArr: TArrayString;
    i: integer;
begin
   DirList('E:\tmp', DirArr);
   for i:=High(DirArr) downto Low(DirArr) do
      RemoveDir(DirArr);
end;

Проблема заключается в том, что программа удаляет папки с ошибками (см. скриншот).
Подробнее: при нажатии на кнопку папка физически не удаляется (она остается), но зайти в нее не получается. Однако, при закрытии программы она автоматически удаляется.

В связи с этим вопрос: как удалить папку с файлами полностью без закрытия приложения?

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

Как отправить на распечатку файл средствами delphi?

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

Есть массив данных.

 BufferREAD  : Array[0..3] Of Byte;

В нём лежат 4 байта.
Необходимо конвертировать содержимое в значение Double.
Чередование байтов в массиве верное.

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

Как в компоненте TChromium (CEF3) сохранять изображения, например из контекстного меню?

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

У меня есть кнопка, и надо чтобы через 5 секунд после её нажатия — она отжалась назад. Я попробовал добавить на форму таймер, и в обработчике нажатия кнопки написал:

ReturnToReadModeTimer.Enabled:=false;
ReturnToReadModeTimer.Interval:=5000;
ReturnToReadModeTimer.Enabled:=true;

В событии таймера соответственно ReturnToReadModeTimer.Enabled:=false;
Но это пока не работает как надо: в первый раз кнопка отжимается через 5 секунд, а в последующие — сразу. Как обнулить счётчик таймера, чтобы он и во второй раз сработал не сразу, а через 5 секунд после нажатия кнопки?

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

Что надо написать в поле ForeColor, чтобы цвет шрифта вводимого в TextBox на форме стал темно-синий и темно-зеленый. Если «&H8000000D&» — цвет голубой.

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