Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Delphi


РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 766
от 31.03.2007, 09:35

Администратор:Калашников О.А.
В рассылке:Подписчиков: 456, Экспертов: 85
В номере:Вопросов: 2, Ответов: 3


Вопрос № 79726: Здравствуйте уважаемые Эксперты! У меня возникла проблема с drag and drop: не могу понять, как переключиться между копированием и перемещением объектов в процессе их перетаскивания (когда нажата кнопка мыши). Иными словами, как в Windows: Shift - объ...
Вопрос № 79753: Здравствуйте!!! Скажите пожалуйста, как программно узнать запущена ли конкретная программа (меня интересует сервер Апач). Спасибо....

Вопрос № 79.726
Здравствуйте уважаемые Эксперты! У меня возникла проблема с drag and drop: не могу понять, как переключиться между копированием и перемещением объектов в процессе их перетаскивания (когда нажата кнопка мыши). Иными словами, как в Windows: Shift - объект перемещается, Ctrl - копируется. Получается только, если клавиша была нажата, до старта drag.
Отправлен: 26.03.2007, 01:58
Вопрос задал: Шеллер Алексей Каспарович (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: 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


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2007, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: support@rusfaq.ru, Тел.: +7 (926) 535-23-31
ООО "Мастер-Эксперт Про", Москва, 2007
Авторские права | Реклама на портале
Версия системы: 4.46 от 18.03.2007
Яндекс Rambler's Top100

В избранное