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

Вниз

Сервисы   Найти похожие ветки 

← →
nap<>   (2006-03-10 08:31) [0]

Пожалуста дайте хорошую инфу по написанию и взаимодействию с сервисами

---

← →
API ©   (2006-03-10 08:39) [1]

Пожалуста дайте хорошую инфу по написанию и взаимодействию с сервисами

http://bdn.borland.com/
http://msdn.microsoft.com/

P.S. А Вам не кажется, что для Вас это еще очень-очень рано? Весь форум зафлудил глупейшими сообщениями, даже языка толком не знает, а уже к сервисам полез. Эх, и хватает же наглости. Поколоение "Кока". Взорвут планету нафиг!

---

← →
nap<>   (2006-03-10 08:47) [2]

Спасибо за мое точное описание :)
Я постараюсь исправится

---

← →
nap<>   (2006-03-10 09:08) [3]

Вопрос такой
почему сервис зависает при оостановке:вот код:

procedure TDocumentCheck.ServiceExecute(Sender: TService);
const
 PROCESS_TERMINATE=$0001;
 ExeFileName = "DovInOut.exe";
var
 ContinueLoop: BOOL;
 FSnapshotHandle: THandle;
 FProcessEntry32: TProcessEntry32;
 res: boolean;
begin
res:= false;
repeat
sleep(180000);
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);

while integer(ContinueLoop) <> 0 do
begin
  if (UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =  UpperCase(ExeFileName)) or
     (UpperCase(FProcessEntry32.szExeFile) =  UpperCase(ExeFileName)) then res:=false else res:=true;
  ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
end;
if res then ShowMessage("&#199;&#224;&#239;&#243;&#241;&#242;&#232;&#242;&#229; &#228;&#238;&#234;&#243;&#236;&#229;&#237;&#242;&#238;&#238;&#225;&#238;&#240;&# 238;&#242;!");
CloseHandle(FSnapshotHandle);
until false;


---

← →
API ©   (2006-03-10 09:18) [4]

Вставьте код в OnButtonClick простого приложения - и изучайте.

P.S. Он не зависает. Он спит.

---

← →
Сергей М. ©   (2006-03-10 09:29) [5]

Вызов ShowMessage() здесь недопустим - обработчик этого события (а также OnStart, OnStop) выполняется в доп.код.потоке.

На кр.случай в целях отладки используй MessageBox(), при этом сервис должен иметь установленную опцию взаимодействия с рабочим столом.

---

← →
nap<>   (2006-03-10 09:32) [6]

Поставил таймер и всё решилось. Спасибо за терпение!
Вопрос такой тогда чтобы реализовать таймер по моему принципу нужен отдельный поток?

---

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

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

Наверх

Память: 0.46 MB
Время: 0.037 c