Форум: "Основная";
Текущий архив: 2005.01.16;
Скачать: [xml.tar.bz2];

Вниз

TService + запуск программы   Найти похожие ветки 

← →
lm2   (2004-12-27 15:31) [0]

Как правильно запустить любое приложение из сервиса? Пробовал ShellExecute и CreateProcess, программа запускается, но в режиме SW_HIDE.

---

← →
Fay ©   (2004-12-27 16:39) [1]

Код где?

---

← →
sniknik ©   (2004-12-27 16:45) [2]

взаимодействие сервиса с рабочим столом не стоит скорее всего.

---

← →
lm2   (2004-12-27 16:53) [3]


unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs, ShellApi;

type
 TService1 = class(TService)
   procedure ServiceExecute(Sender: TService);
 private
   { Private declarations }
 public
   function GetServiceController: TServiceController; override;
   { Public declarations }
 end;

var
 Service1: TService1;

implementation

{$R *.DFM}

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

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

procedure TService1.ServiceExecute(Sender: TService);
begin
 ShellExecute(0, "open", "calc", "", nil, SW_SHOWNORMAL);
 try
   while not Terminated do
     ServiceThread.ProcessRequests(True);
 finally
 end;
end;

end.



---

← →
lm2   (2004-12-27 16:54) [4]

>>sniknik ©
А как организовать это взаимодействие?

---

← →
sniknik ©   (2004-12-27 17:07) [5]

галочку поставить в настройке службы. (так и называется "разрешить взаимодействие с рабочим столом)

---

← →
Рамиль (с)   (2004-12-27 17:16) [6]

И у Tservice есть property соответствующее, галочка тогда появится при регистрации.

---

← →
lm2   (2004-12-27 17:16) [7]

>>sniknik ©
Опс, спасибо тебе, не заметил этой фишки
А как-то программно можно сделать, так чтоб галочка эта стояла уже при установке сервиса?

---

← →
sniknik ©   (2004-12-27 17:26) [8]

> А как-то программно можно сделать
Рамиль (с)   (27.12.04 17:16) [6]
... - Interactive

---

← →
lm2   (2004-12-27 17:30) [9]

Спасибо всем, буду пробовать!

---

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

Форум: "Основная";
Текущий архив: 2005.01.16;
Скачать: [xml.tar.bz2];

Наверх

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