Вопрос № 79726: Здравствуйте уважаемые Эксперты! У меня возникла проблема с drag and drop: не могу понять, как переключиться между копированием и перемещением объектов в процессе их перетаскивания (когда нажата кнопка мыши). Иными словами, как в Windows: Shift - объ...Вопрос № 79753: Здравствуйте!!! Скажите пожалуйста, как программно узнать запущена ли конкретная программа (меня интересует сервер Апач). Спасибо....
Вопрос № 79.726
Здравствуйте уважаемые Эксперты! У меня возникла проблема с drag and drop: не могу понять, как переключиться между копированием и перемещением объектов в процессе их перетаскивания (когда нажата кнопка мыши). Иными словами, как в Windows: Shift - объект перемещается, Ctrl - копируется. Получается только, если клавиша была нажата, до старта drag.
Отвечает: Coupler
Здравствуйте, Шеллер Алексей Каспарович!
В приложении модуль для реализации drag and drop и текст программы, иллюстрирующей функции модуля на примере перетаскивания строк между двумя ListBox-ами. Если нужно, сообщите мне свой e-mail, и я вышлю проект полностью.
Приложение:
Ответ отправил: Coupler (статус: Студент)
Ответ отправлен: 26.03.2007, 04:53 Оценка за ответ: 5 Комментарий оценки: ОГРОМНОЕ СПАСИБО!!! Модуль работает как часы!
Вопрос № 79.753
Здравствуйте!!! Скажите пожалуйста, как программно узнать запущена ли конкретная программа (меня интересует сервер Апач). Спасибо.
Отправлен: 26.03.2007, 09:15
Вопрос задал: Piit (статус: 2-ой класс)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Pavel Maltsev
Здравствуйте, Piit!
В приложении пример получения списка процессов
Приложение:
Ответ отправил: Pavel Maltsev (статус: 3-ий класс)
Ответ отправлен: 26.03.2007, 11:35 Оценка за ответ: 3 Комментарий оценки: Что-то непонятно, где Апач фигурирует. Если бы вот с конкретной прогой, а то общая схема какая-то чтоли.
Отвечает: МЕДВЕД
Превед, Piit!
юзай API.
findwindow(class,wn);
где class - класс окна (чтоб узнать использ winsight32, поставляем вмест с Дельфи)
wn - заголовок окна (если неизвестен пиши null);
если окно нашлось, то функца вернет хендл окна.
если так не хотишь, то юзай следущ(болье долгий способ и не рациональный:)
function EnumProc (Wd: HWnd; Param: LongInt): Boolean; stdcall;
begin
ListBox1.Items.add(IntToStr(Wd)); // mov listbox, handle of window
EnumProc := True;
end;
procedure TForm1.GetWindowz;
begin
ListBox1.Items.Clear; // clear before
EnumWindows (@EnumProc, 0); //and start searching..
end;
после этого у тебя в листбоксе будут фсе хендлы окон системы, дальше банальным перебором сверяешь их классы, с эталонным, в данном случае класс главного окна апач.
гм. класс можно получить с помощью getclassname(handle,buffer,sizeofbuffer)
--------- У меня зазвонил телефон -Кто говорит? -Слон!! А потом позвонили гуууси.. ну когда меня отпустит??
Ответ отправил: МЕДВЕД (статус: 2-ой класс)
Ответ отправлен: 26.03.2007, 13:13 Оценка за ответ: 5