В проекте есть форма, в опциях проекта она записана как доступная, т.е. автоматически не создается. Ее имя mOpenFile и создается при нажатии на кнопку. Но при уничтожении (при освобождении памяти от формы) возникает ошибка в модуле программы «Access violation at adress ###». Форма закрывается но память не освобождается. Что-то я не так делаю? (читать всё…)

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

Как вывести список свободных букв? Те буквы, которые доступны в меню «Назначить букву диска» из оснастки Управления дисками Windows. (читать всё…)

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

Вот написал код для чтения последнего пути бд но ругается на ошибку хотя все правильно (этот код работает у меня в другой программе без ошибок) но в это ругается на «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; у меня хранятся ссылки. (читать всё…)