Как получить список всех установленных программ? (читать всё…)

Вот написал код для чтения последнего пути бд но ругается на ошибку хотя все правильно (этот код работает у меня в другой программе без ошибок) но в это ругается на «Login». (читать всё…)

Как можно текст и RichEdit превратить в поток Stream для того, чтобы записать в ini в виде потока, и из потока превратить снова в текст? (читать всё…)

Есть txt файл с содержимым

halloween_85 ( 243 ) SELLER 12.11.12 21:04
adam ( 2731 ) SELLER 18.07.12 19:07
sara ( 10 ) SELLER 10.10.12 07:12
nicol ( 563 ) SELLER 14.11.12 04:06
jams ( 6095 ) SELLER 11.10.11 22:04

Требуется отсортировать строки по дате (от большей к меньшей). Как можно такое реализовать? Может есть готовые варианты?
(читать всё…)

У касперского и Eset такая защита. Как такое реализовать в Delphi?
(читать всё…)

Есть определенное окно, например notepad. Как переместить курсор по координатам в этом окне?

Lime

var

WindowName:string;

WindowRect : TRect;

WindowHandle : HWND;

CursorXpos,CursorYpos: Integer;

begin

WindowName := Edit1.Text; //Заголовок окна, например "Form1"

WindowHandle := FindWindow(nil,PChar(WindowName));

windows.GetWindowRect(WindowHandle,WindowRect);
memo1.Clear;

memo1.Lines.Add('window left pos: ' + IntToStr(WindowRect.Left));

memo1.Lines.Add('window top pos: ' + IntToStr(WindowRect.Top));
CursorXpos := StrToInt(Edit2.Text);//Х

CursorYpos := StrToInt(Edit3.Text);//Y
SetCursorPos(WindowRect.Left + CursorXpos, WindowRect.Top + CursorYpos);
memo1.Lines.Add('cursor final position: ' + IntToStr(WindowRect.Left + CursorXpos) + ','

+ IntToStr(WindowRect.Top + CursorYpos));

Пост написан при поддержке компании «Шторм-Элита» — основанной в 1993 году как центр технического обслуживания контрольно-кассовой техники.

Наше предложение:

Автоматизация торговли

Автоматизация розничной торговли позволяет владельцу бизнеса получить следующее:
1. Достичь точности учета товаров, недоступной при ручном учете.
2. Сократить сроки подготовки товаров к продаже.
3. Увеличить скорость обслуживания покупателей.
4. Снизить избыточные складские запасы.
5. Создать эффективную систему лояльности покупателей, которая невозможна без компьютерного учета.

тема на форуме

 
автоматизация торговли

В массиве music[ListBox1.itemindex].url; у меня хранятся ссылки. (читать всё…)

Никто не мог бы мне подсказать, как написать программу на Delphi, которая ищет файлы, и чтобы с ними можно было что-либо делать? Я поискала решение задачи в Сети, но все рецепты там, во-первых, какие-то мутные, во-вторых, не работают. (читать всё…)

Как отправить клик в чужое приложение? (читать всё…)

При наведении курсора на кнопку BitBtn рисунок, назначенный в свойстве Glyph, изменялся на другой, и если кнопку не нажали, и мышку увели с кнопки, то рисунок обратно изменялся на первый. Как это сделать? (читать всё…)