Запуск chm файла из под сервиса

[JOHNKZ1]

Добрый день!
У меня возникла проблема с запуском файла справки chm из под сервиса.Пробовал запускать так:
WinExec(PChar('hh '+Application.HelpFile+'::/RM_About_Welcome.htm'), SW_SHOW)
и так
ShellExecute(0, nil, PChar(Application.HelpFile), nil, PChar(ExtractFilePath(Application.H elpFile)), 1);
все эти методы работают только тогда когда программа запущенна как обычное приложение, но из под сервиса отказываются работать.
Может кто нибудь сталкивался с подобной проблемой ?

[hinst]

Предлагаю суперрешение: написать консольную прогу "sheller.exe", которая в качестве первого параметра получает то, что надо shell'ить. Дальше исполнять её sheller.exe my.chm

[JTG]

CreateProcess C:\WINDOWS\hh.exe с именем chm-файла первым параметром

[JOHNKZ1]

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

[hinst]

Это какая операционная система вообще??

[JOHNKZ1]

Windows XP and Windows Vista and Windows Server 2008

[JTG]

Оно запускается, но на "десктопе винлогона".
Startupinfo.lpDesktop := 'winsta0\default', и/или SetThreadDesktop (вызывать до создания окон!)

[s.Creator]

Проблему можно решить выставив у сервиса

Interactive := True

Но это при условии что Вам не нужно обеспечить его работу когда ни один пользователь не залогинился.

[JOHNKZ1]

Всем спасибо за советы... но ни один из них не работает
Сервис и так был интерактивный, все работает кроме запуска справочных файлов. И создание процесса работает, но только если запускать его не из под сервиса.. Для создания процесса я пробовал использовать пример из JEDI он запускает любой exe коме hh.exe.

procedure TfrmMain.StartApp(const App, Parameters, CurDir : TJwString);
var
  StartupInfo: {$IFDEF UNICODE}TStartupInfoW{$ELSE}TStartupInfoA{$ENDIF};
  ProcInfo : TProcessInformation;
  pEnv : Pointer;

  pCurDir,
  pCmdLine : TJwPChar;
begin
  ZeroMemory(@StartupInfo, sizeof(StartupInfo));
  StartupInfo.cb          := SizeOf(StartupInfo);
  StartupInfo.lpDesktop   := 'winsta0\default';

  CreateEnvironmentBlock(@pEnv, 0, true);

  try
    if Length(Parameters) > 0 then
      pCmdLine := TJwPChar('"'+App+'" ' + Parameters)
    else
      pCmdLine := TJwPChar('"'+App+'" ');

    pCurDir := Nil;
    if Length(CurDir) > 0 then
      pCurDir := TJwPChar(CurDir);

   if not
{$IFDEF UNICODE}CreateProcessW{$ELSE}CreateProcessA{$ENDIF}(
    TJwPChar(App),//__in_opt     LPCTSTR lpApplicationName,
    pCmdLine, //__inout_opt  LPTSTR lpCommandLine,
    nil,//__in_opt     LPSECURITY_ATTRIBUTES lpProcessAttributes,
    nil,//__in_opt     LPSECURITY_ATTRIBUTES lpThreadAttributes,
    true,//__in         BOOL bInheritHandles,
    CREATE_NEW_CONSOLE or CREATE_UNICODE_ENVIRONMENT,//__in         DWORD dwCreationFlags,
    pEnv,//__in_opt     LPVOID lpEnvironment,
    pCurDir,//__in_opt     LPCTSTR lpCurrentDirectory,
    StartupInfo,//__in         LPSTARTUPINFO lpStartupInfo,
    ProcInfo)//__out        LPPROCESS_INFORMATION lpProcessInformation
   then
   raiseLastOsError;
  finally
    DestroyEnvironmentBlock(pEnv);
  end;
  CloseHandle(ProcInfo.hProcess);
  CloseHandle(ProcInfo.hThread);

end;

вот так вызываю :

StartApp('C:\WINDOWS\hh.exe',Application.HelpFile+'::/RM_About_Welcome.htm',ExtractFileDir(ParamStr(0)));

[Горизонт]

В среде Windows XP можно было установить ActiveX компонент HHopen в панель компонентов, затем использовать его методы Open и Close. В среде Windows 7 такая библиотека отсутствует!