| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Services
BOOMER © (2002-10-25 13:05:00)Как определить, запущен какой-либо сервис или нет
Sergey V. Shadrin (2002-10-29 07:41:00) [1]упс, я про процессы говорил :( для меня это было одно и тоже :(
ZZ (2002-10-28 12:25:00) [2]Sergey V. Shadrin
Это шутк такой несмешной или...???
Оооочень хотел бы увидеть код, проверяющий, запущен ли сервис "Сервер" (lanmanserver) ??? (ведь мы про одинаковые сервисы говорим???)
Sergey V. Shadrin (2002-10-28 07:23:00) [3]а тут что написано? бери и сравнивай s(это строка) с нужным.
ZZ (2002-10-25 17:03:00) [4]Sergey V. Shadrin
Мне бы пример на тему
Как определить, запущен какой-либо сервис или нет
но с использованием ToolHelp32
Sergey V. Shadrin (2002-10-25 16:49:00) [5]
uses tlhelp32;
var
snap:THandle;
process:TProcessEntry32;
b:boolean;
begin
snap:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
process.dwSize:=sizeof(TProcessEntry32);
Process32First(snap,process);
repeat
s:=process.szExeFile;
Application.MessageBox(pchar(s),"test",MB_OK);
b:=Process32Next(snap,process);
until not b;
end;
ZZ (2002-10-25 16:06:00) [6]BOOMER
OpenSCManager->QueryServiceStatus
Sergey V. Shadrin
Можно пример????
Sergey V. Shadrin (2002-10-25 13:49:00) [7]ToolHelp32 функции
Тейксейра и Пачеко Руководство разаработчика.
Главы есть на delphi.vitpc.com
| |
