Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2002.08.22;
Скачать: [xml.tar.bz2];

Вниз

IBSever запуск и закрытие?   Найти похожие ветки 

 
Sour   (2002-06-19 07:03) [0]

Господа, помогите, пожалуйста.
Для работы программы необходим запущенный IBServer (ibserver.exe).
OnCreate главной формы пишу:
IBInst := ShellExecute(0, 0, PChar(Path + "ibserver.exe"), "-a", 0, SW_HIDE);

Первый вопрос: почему в трее появляется иконка, я же написал SW_HIDE?
Второй вопоос: как на завершение работы приложеня закрыть IBServer?
Пишу SendMessage(IBInst, SW_QUIT, 0, 0) и сервер не закрывается?
Писал и SW_CLOSE и SW_DESTROY не помогает?

З.Ы. IBInst: THandle - описан глобально?


 
Raptor   (2002-06-19 14:58) [1]

Первый вопрос: почему в трее появляется иконка, я же написал SW_HIDE?

А почему, собственно, она там не должна появляться. То что ты задал SW_HIDE означает только, что окно приложения не появится (и то не всегда) на экране. Иконку в трей запихивает твой IBServer и на нее никакой SW_HIDE не действует. Здесь имеются 2 решения этого вопроса.
1) Попросить твой IBServer не показывать иконку в трее. То есть указать это в настройках (если такая возможность предусмотрена).
2) Самому убирать иконку из трея после запуска IBServer.
Второй способ наиболее универсальный. Только сначала надо найти ID иконки, который ей присваивает IBServer при помещении ее в трей (этот ID не меняется от запуска к запуску приложения), а потом с помощью Shell_NotifyIcon() убирать иконку сразу же после запуска.

Второй вопоос: как на завершение работы приложеня закрыть IBServer?
Пишу SendMessage(IBInst, SW_QUIT, 0, 0) и сервер не закрывается?
Писал и SW_CLOSE и SW_DESTROY не помогает?


Опять же почему это он должен закрываться? ж-))
Если ты прочитаешь ВНИМАТЕЛЬНО хелп или MSDN, то сразу увидишь, что результатом работы функции

ShellExecute() является HINSTANCE, а не HWND, который требуется для твоего SendMessage.
Тебе сначала нужно найти хендл главного окна с помощью функции FindWindow(<класс окна>,<загаоловок окна>)

(класс и заголовок требуемого окна можна подсмотреть с помощью WinSight32, который идет в стандартной

поставке Delphi), а потом подставить его вместо первого параметра функции SendMessage() (лучше используй

PostMessage).



Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2002.08.22;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.016 c
3-71003
edik
2002-07-31 14:49
2002.08.22
2 Вопроса по SQL


1-71251
V.Turecky
2002-08-11 18:30
2002.08.22
Обновление explorer a без перезагрузки компа...


3-71032
Enig
2002-08-01 12:28
2002.08.22
ATTENTION!!! HELP ME!!!


1-71236
Shrek
2002-08-11 18:33
2002.08.22
Key


1-71213
[BAD]Angel
2002-08-10 12:56
2002.08.22
Есть ли такая возможность в Delphi?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский