Взаимодействие-управление своим сервисом

[Alter]

Допустим есть свой сервис, запущен. Может работать с файлами, работать с реестром.
Так же есть программа взаимодействующая с этим сервисом, посылающая команды операций сервису.

Пример: О&О Dеfrаg, КIS, и т.п.

Как лучше организовать взаимодействие(двустороннее) между сервисом и программой?

[ex.cluz]

Вообще сначала в тему не "въехал".

Есть же известный и очень краткий обзор:
http://delphiworld.narod.ru/base/delphi_services.html
А развернутое описание каждой функции можно найти по поисковику.

[Alter]

ммм, примеры желательны.

Пишите, поглядим кто что предложит.

[raxp]

параметры командной строки никто не отменял... пример:

...

function RunService: boolean; stdcall;
var pParameters: PChar;
begin
 result:= false;
 //
 hSCM:= OpenSCManager(nil, nil, GENERIC_READ or GENERIC_EXECUTE);
 if hSCM = 0 then begin
  ErrorLog('RunService OpenSCManager : '+GetErrosString);
  exit
 end;
 hService:= OpenService(hSCM, SERVICE_NAME, SERVICE_ALL_ACCESS);
 if hService = 0 then begin
  ErrorLog('RunService OpenService : '+GetErrosString);
  CloseServiceHandle(hSCM);
  exit
 end;
 if not StartService(hService, 0, pParameters) then
  ErrorLog('RunService StartService : '+GetErrosString);
 //
 CloseServiceHandle(hService);
 CloseServiceHandle(hSCM);
 result:= true
end;

begin
 HUDP1:= HUDP.Create;
 //
 ErrorLogFileName:= ParamStr(0);
 ErrorLogFileName:= Copy(ErrorLogFileName, 1, length(ErrorLogFileName)-3) + 'Log';
 ServicesListFileName:= Copy(ErrorLogFileName, 1, length(ErrorLogFileName)-3) + 'Txt';

 if ParamCount > 0 then begin
    if UpperCase(ParamStr(1)) = 'I' then begin
      if Install then begin
        ErrorLog('Service Installed');
        if RunService then ErrorLog('Service Run')
        else ErrorLog('Service Error on Run');
      end else ErrorLog('Error on install');
    end;
    if UpperCase(ParamStr(1)) = 'U' then begin
      HUDP1.Destroy;
      if UnInstall then ErrorLog('Service UnInstalled')
      else ErrorLog('Error on UnInstall');
    end;
    if UpperCase(ParamStr(1)) = 'G' then begin
      if GetData then ErrorLog('List Services Created')
      else ErrorLog('Error on List Services');
    end;
    exit;
  end;
 Start
// END CЕРВИС -----------------------------------------------------------------

end.

...кроме того, сообщениями можно обмениваться postmessage

[Stilet]

между сервисом и программой?

Пайпы, сокеты... не?

[OCTAGRAM]

\\.\pipe\ я думаю, без проблем в наше время можно использовать. Мастдай таки сдох.

В Platform SDK ещё помню разделы, посвящённые LPC, не знаю, по теме или нет.

Кроме сокетов и пайпов, в Platform SDK описаны другие механизмы, такие, как очереди сообщений (не оконных).