Создание службы Windows

[GenniY]

Создание службы Windows.
Добрый день. Кто в курсе подскажите.
Создаю свою службу. Эта служба должна при запуске определить, какие программы запущены. Результат сохранить в файл. Службу установил, запускаю вручную, при запуске результат сохраняется. Но завершить запуск служба не может. Остается на этапе «Запуск». При этом, соответственно, невозможно сделать uninstall или остановить. Приходиться перезапускать комп.

Что нужно сделать, чтобы служба завершила запуск?

Вот пример кода.

unit Service;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs, IniFiles;

type
  TService2 = class(TService)
  procedure ServiceStart(Sender: TService; var Started: Boolean);
  public
    function GetServiceController: TServiceController; override;
    { Public declarations }
  end;

var
  Service2: TService2;
  f:TextFile;
  str : TStrings;
implementation

{$R *.DFM}
function EnumWindowsProc( WND: HWND): BOOL;   stdcall;
var
Text : string;
Textlength : Integer;
s: string;
begin
  Result := True;
  Textlength := SendMessage(WND, WM_GETTEXTLENGTH,0,0);
  SetLength(Text,Textlength);
  if Textlength>0 then
  begin
    SendMessage(WND,WM_GETTEXT,Textlength,LParam(Text));
   // Str.Add(Text);
   // Sleep(2000);
    s :=  'c:\\test.txt';
    AssignFile( f, s );
    if FileExists(s) then
    begin
      Append(f);
      Writeln(f,Text);
    end
    else
    begin
      Rewrite(f);
      Writeln(f,Text);
    end;
   CloseFile(f);  
  end;
end;


procedure TService2.ServiceStart(Sender: TService; var Started: Boolean);

begin
EnumWindows(@EnumWindowsProc,0);
end;

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  Service2.Controller(CtrlCode);
end;

function TService2.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;

end.

[ArtInt]

Насколько помню примерно так:
Сначала в самом сервисе останавливаем:

 Started:=False;// останавливаем сервис

Потом, в программе вызывающей сервис делаем кнопку для удаления сервиса с кодом:

   //отключаем сервис
   winexec (Pchar(Windowsdir+'\system32\service.exe -UNINSTALL -SILENT'), sw_show);

[GenniY]

Мне не нужно отключать сервис. Он должен работать.
Загвоздка в том, что он стартует и процесс старта продолжается.

Проблема оказывается в EnumWindowsProc. У меня она возвращет всегда true;

EnumWindows, как мы знаем, занимается перечислением всех окнон верхнего уровня на экране и работает пока последнее окно верхнего уровня не будет перечислено, или пока функция повторного вызова не возвратит значение FALSE.
Если в функции EnumWindowsProc прописываю, чтобы,например, после третьего перечисления функция вернула false, то всё работает отлично. Только Получим всего три заголовка! А это не правильно.

Поблема в EnumWindows. Как остановить ее выполнение после перечисления всех окон?

Кто может знает как отлаживать при разработке сервисы. А то install / uninstall уже поднадоели.