Tạo một Dịch vụ Windows để mở một chương trình- Delphi

Question

Tôi đang tạo một Dịch vụ Windows với Delphi. Những gì dịch vụ của tôi cần làm là cơ bản mở một chương trình. Trong mã của tôi, tôi đang sử dụng WinExec(aux,SW_SHOWNORMAL);. Khi tôi bắt đầu và chạy các dịch vụ không có gì xuất hiện để được thực hiện, nhưng khi tôi nhìn vào TaskManager chương trình dịch vụ của tôi nên mở là trong danh sách và trong cột Tên người dùng xuất hiện SYSTEM.

Vì vậy, chương trình đang mở nhưng chương trình không hiển thị trên màn hình. Tôi đã thực hiện một nghiên cứu trong Google và tìm thấy một số chức năng như CreateProcess nhưng tôi không biết cách sử dụng nó. Tôi đang làm gì sai?

Xin lỗi về tiếng anh xấu của tôi.

Answer 1

Dịch vụ luôn chạy trong Phiên 0. Quá trình được khởi động bởi dịch vụ chạy trong Phiên dịch vụ theo mặc định, trừ khi dịch vụ sử dụng CreateProcessAsUser() để chạy quy trình trong Phiên khác.

Trong XP và trước đó, người dùng đầu tiên đăng nhập cũng chạy trong Phiên 0 (người dùng tiếp theo để đăng nhập chạy trong Phiên 1+). Do đó, nếu dịch vụ được đánh dấu là Tương tác khi nó được cài đặt và nó chạy một tiến trình có giao diện người dùng, người dùng đang chạy trong Phiên 0 có thể thấy giao diện người dùng.

Trong Vista trở lên, điều này không thể thực hiện được nữa. Người dùng không bao giờ chạy trong Phiên 0 nữa và các dịch vụ không thể được đánh dấu là Tương tác nữa. Điều này được gọi là "Cách ly phiên 0". Dịch vụ phải sử dụng CreateProcessAsUser() ngay bây giờ để chạy quy trình giao diện người dùng trong Phiên tương tác để người dùng có thể xem nó.

Tham khảo MSDN để biết thêm chi tiết:

Session 0 Isolation

Impact of Session 0 Isolation on Services and Drivers in Windows

Calling CreateProcessAsUser() from service

Launching an interactive process from Windows Service in Windows Vista and later

CreateProcessAsUser function