Служба Windows и запуск приложения

[Dee63]

Путь определяется так:

path:=extractfilepath(paramstr(0))+'MyApp.exe'

Сообщение от astecenko

Может дело в пути к запускаемому приложению? Как он определяется?
Возможно нужно вызывать Wow64DisableWow64FsRedirection

Точно. Сейчас написал. завтра попробую отладить. Думаю-это оно и было.

Сообщение от waleri

Начните с того, что посмотрите какую ошибку возвращает ShellExecute()

Включил отлов ошибки. Почему-то небыло влючено.

[Dee63]

итак, благодаря наводке astecenko я победил эту проблему.
адаптировал службу для работы в 32\64 бит версии. универсальность-это сила.

В первом приближении имеет вид такой

function MyService.Check64bit:boolean;
var
  IsWow64Process:function (hProcess: THandle; out Wow64Process:bool):bool; stdcall;
  wow64process:bool;
begin
  // проверка разрядности
  {$IF Defined(CPU64)}
  Result:=true;
  {$ELSEIF Defined(CPU16)}
  Result:=false;
  {$ELSE}
  isWow64Process:= GetProcAddress(GetModuleHandle(Kernel32), 'IsWow64Process');

  wow64Process:=false;
  if Assigned(IsWow64Process) then
    Wow64Process:=IsWow64Process(GetCurrentProcess, Wow64Process) and Wow64Process;
  result:=Wow64Process;
  {$IFEND}
end;


//запуск из  потока службы
var
  //64bit running
  dll: Hwnd;
  OldValue:pointer;
  Wow64Disable: function (v:pointer):integer; stdcall;
  wow64Enable: function (v:pointer):integer; stdcall;

begin
...
    if not(MyService.Check64bit) then
      try
        ShellExecute(GetDesktopWindow,'open',pansichar(path),nil,nil,SW_MINIMIZE);
        MyService.LogMessage('App start OK with x86 method',EVENTLOG_SUCCESS);
      except
        on e:exception do
          MyService.LogMessage('App start BAD with x86 method '+inttostr(GetLastError),EVENTLOG_ERROR_TYPE);
      end
    else
      //go running app in 64bit
      //disable wow64
      //run
      //enable wow64
      begin
        try
          oldValue:=nil;
          dll:=LoadLibrary('Kernel32.dll');
          @Wow64Disable:=getProcAddress(dll,'Wow64DisableWow64FsRedirection');
          @wow64Enable:=GetProcAddress(dll,'Wow64EnableWow64FsRedirection');
          Wow64Disable(@OldValue);
          try
            ShellExecute(GetDesktopWindow,'open',pansichar(path),nil,nil,SW_MINIMIZE);
            MyService.LogMessage('App start OK with x64 method',EVENTLOG_SUCCESS);
          except
            on e:exception do
              MyService.LogMessage('App start BAD with x64 method '+inttostr(GetLastError),EVENTLOG_ERROR_TYPE);
          end;
          wow64Enable(OldValue);
          FreeLibrary(dll);
        except
          on e:exception do
            MyService.LogMessage('App start BAD with x64 method; Exception; lastError '+inttostr(GetLastError),EVENTLOG_ERROR_TYPE);
        end;
      end;

[consthab2]

Проблема запуска процессов из службы - известная. Здесь предлагается вариант решения и исходники.
http://strongcpp.blogspot.ru/2013/04/blog-post_8.html

PS к статье. Когда одному из наших клиентов понадобилось запускать программу из службы, надежно заработало решение именно через sheduled tasks.

[Dee63]

Сообщение от consthab2

Проблема запуска процессов из службы - известная. Здесь предлагается вариант решения и исходники.
http://strongcpp.blogspot.ru/2013/04/blog-post_8.html

PS к статье. Когда одному из наших клиентов понадобилось запускать программу из службы, надежно заработало решение именно через sheduled tasks.

Спасибо за ссылку.
Вариант интерактивного взаимодействия я себе сохраню.